Removed filter generating code - this should never be used now

[exim-website.git] / filter / test_regexp.pl

diff --git a/filter/test_regexp.pl b/filter/test_regexp.pl
deleted file mode 100644 (file)
index b16d9fa..0000000
--- a/filter/test_regexp.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-#
-# Test a regexp against a file (message)
-#
-use strict;
-use FileHandle;
-use Carp;
-
-my $refile = shift;
-my $infile = shift;
-
-my $rfh = FileHandle->new($refile, 'r')|| croak;
-my @relines = <$rfh>;
-grep(s/\s*\#.*$//, @relines);
-chomp(@relines);
-my $repat = join('', @relines);
-my $re = qr{$repat}ix;
-
-my $infh = FileHandle->new($infile, 'r')|| croak;
-my $in = join('', <$infh>);
-$in =~ tr/\r\n/ /;
-
-print "no " unless ($in =~ /$re/);
-print "match\n";