check FML::Filter::HeaderCheck

1 files changed, 40 insertions, 0 deletions

diff --git a/regress/filter/headercheck.pl b/regress/filter/headercheck.pl
new file mode 100755
index 00000000..a2a074c1
--- /dev/null
+++ b/regress/filter/headercheck.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+#
+# $FML: bodycheck.pl,v 1.1.1.1 2001/08/19 14:51:46 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= ";
+
+	use FML::Filter::HeaderCheck;
+	my $obj = new FML::Filter::HeaderCheck;
+
+	$obj->header_check($message);
+	if ($obj->error()) {
+	    my $x = $obj->error();
+	    $x =~ s/at .*$//;
+	    print STDERR "error: $x";
+	    print STDERR "\n";
+	}
+	else {
+	    print STDERR "ok\n";
+	}
+    }
+}
+
+exit 0;
+
+
+sub _print
+{
+    my (@args) = @_;
+    printf STDERR "%30s %s %s %s\n", @args;
+}