cscvs to tla changeset 49

[onak.git] / gpgstats-0.0.2 / filt.pl

diff --git a/gpgstats-0.0.2/filt.pl b/gpgstats-0.0.2/filt.pl
deleted file mode 100755 (executable)
index a7e4353..0000000
--- a/gpgstats-0.0.2/filt.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl
-
-@keyfile=<>;
-
-$count=0;
-
-while ($count<scalar(@keyfile)) {
-       if ($keyfile[$count] =~ /^P/ &&
-               $keyfile[$count+1] =~ /^N/ &&
-               $keyfile[$count+2] =~ /^S/ &&
-               $keyfile[$count+3] =~ /^P/) {
-               $count = $count + 3;
-       } else {
-               print $keyfile[$count++];
-       }
-}