apply FML::Filter::{Header,Body}Check

1 files changed, 57 insertions, 0 deletions

diff --git a/regress/filter/check.pl b/regress/filter/check.pl
new file mode 100755
index 00000000..0a898dff
--- /dev/null
+++ b/regress/filter/check.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/env perl
+#
+# $FML: headercheck.pl,v 1.1 2001/09/22 15:24:03 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) {
+	print STDERR "$f\t header = ";
+
+	use FML::Filter::HeaderCheck;
+	my $obj = new FML::Filter::HeaderCheck;
+
+	$obj->header_check($message);
+	if ($obj->error()) {
+	    my $x = $obj->error();
+	    $x =~ s/\s*at .*$//;
+	    print STDERR "error: $x";
+	}
+	else {
+	    print STDERR "ok\n";
+	}
+
+
+	print STDERR "$f\t   body = ";
+
+	use FML::Filter::BodyCheck;
+	my $obj = new FML::Filter::BodyCheck;
+
+	$obj->body_check($message);
+	if ($obj->error()) {
+	    my $x = $obj->error();
+	    $x =~ s/\s*at .*$//;
+	    print STDERR "error: $x";
+	}
+	else {
+	    print STDERR "ok\n";
+	}
+
+	print STDERR "\n";
+    }
+}
+
+exit 0;
+
+
+sub _print
+{
+    my (@args) = @_;
+    printf STDERR "%30s %s %s %s\n", @args;
+}