]> granicus.if.org Git - neomutt/commitdiff
We don't need this any more.
authorThomas Roessler <roessler@does-not-exist.org>
Thu, 24 Jan 2002 21:54:37 +0000 (21:54 +0000)
committerThomas Roessler <roessler@does-not-exist.org>
Thu, 24 Jan 2002 21:54:37 +0000 (21:54 +0000)
reap.pl [deleted file]

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