emulator to use FML::Filter

2 files changed, 51 insertions, 2 deletions

diff --git a/regress/filter/Makefile b/regress/filter/Makefile
index 2bbe0819..d51a58a0 100644
--- a/regress/filter/Makefile
+++ b/regress/filter/Makefile
@@ -1,16 +1,19 @@
 #
-# $FML: Makefile,v 1.1.1.1 2001/08/19 14:51:46 fukachan Exp $
+# $FML: Makefile,v 1.2 2001/10/14 22:22:13 fukachan Exp $
 #
 
 PERL = perl
 
 TARGETS = ../filter/t/0* ../testmails/text=* ../testmails/multipart=mixed*
 
-all: check
+all: check check2
 
 check:
 	$(PERL) ../filter/check.pl $(TARGETS)
 
+check2:
+	$(PERL) ../filter/check2.pl $(TARGETS)
+
 mesg_analyze:
 	@ echo "* check BodyCheck basic functions"
 	../filter/bodycheck.pl ../testmails/text=* \
diff --git a/regress/filter/check2.pl b/regress/filter/check2.pl
new file mode 100755
index 00000000..9d5658c7
--- /dev/null
+++ b/regress/filter/check2.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+#
+# $FML: check.pl,v 1.3 2001/10/14 22:22:40 fukachan Exp $
+#
+
+use lib qw(../../fml/lib ../../cpan/lib ../../img/lib);
+use FileHandle;
+use Mail::Message;
+
+for my $f (@ARGV) {
+    my $fh      = new FileHandle $f;
+    my $message = Mail::Message->parse( { fd => $fh } );
+
+    if (defined $message) {
+	my $curproc = {};
+
+	use File::Basename;
+	my $fn = basename($f);
+
+	use FML::Filter;
+	my $filter = new FML::Filter;
+	$curproc->{ 'incoming_message' } = $message;
+
+	use FML::Config;
+	my $config = new FML::Config;
+	$curproc->{ 'config' } = $config;
+	$config->{ use_header_filter } = 'yes';
+	$config->{ use_body_filter }   = 'yes';
+
+	$filter->check( $curproc );
+	my $error = $filter->error();
+	_print($fn, ($error ? "error" : "ok"), $error);
+    }
+}
+
+exit 0;
+
+
+sub _print
+{
+    my (@args) = @_;
+    printf STDERR "%-25s %-5s   %s\n", @args;
+}
+
+
+1;