Initial revision

1 files changed, 26 insertions, 0 deletions

diff --git a/reap.pl b/reap.pl
new file mode 100755
index 00000000..90e532bd
--- /dev/null
+++ b/reap.pl
@@ -0,0 +1,26 @@
+#!/usr/local/bin/perl
+#
+# A small script to strip out any "illegal" PGP code to make sure it is
+# safe for International export.
+#
+$word = shift;
+$illegal = 0;
+$count = 0;
+while (<>)
+{
+	if (/^#if/)
+	{
+		if (/${word}/) { $illegal = 1; }
+		if ($illegal) { $count++; }
+	}
+	elsif ($illegal && /^#endif/)
+	{
+		$count--;
+		if ($count == 0)
+		{
+			$illegal = 0;
+			next;
+		}
+	}
+	print if (! $illegal);
+}