diff options
| author | fukachan <fukachan> | 2001-09-23 09:13:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-09-23 09:13:21 +0000 |
| commit | caf94877c046ea64d03f67ac065cf1bd3d5be4fb (patch) | |
| tree | a8887724b38cc9fd8ec865517af5e656475b769a | |
| parent | 33d8d1a69aab426313d4cf18f9bab6c5e99b4667 (diff) | |
| download | fml8-caf94877c046ea64d03f67ac065cf1bd3d5be4fb.tar.gz fml8-caf94877c046ea64d03f67ac065cf1bd3d5be4fb.tar.bz2 fml8-caf94877c046ea64d03f67ac065cf1bd3d5be4fb.zip | |
modify message
| -rwxr-xr-x | regress/filter/headercheck.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/regress/filter/headercheck.pl b/regress/filter/headercheck.pl index a2a074c1..f8792ac5 100755 --- a/regress/filter/headercheck.pl +++ b/regress/filter/headercheck.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML: bodycheck.pl,v 1.1.1.1 2001/08/19 14:51:46 fukachan Exp $ +# $FML: headercheck.pl,v 1.1 2001/09/22 15:24:03 fukachan Exp $ # use lib qw(../../fml/lib ../../cpan/lib ../../img/lib); @@ -12,7 +12,7 @@ for my $f (@ARGV) { my $message = Mail::Message->parse( { fd => $fh } ); if (defined $message) { - print STDERR "$f\t= "; + print STDERR "$f\t header = "; use FML::Filter::HeaderCheck; my $obj = new FML::Filter::HeaderCheck; @@ -20,14 +20,13 @@ for my $f (@ARGV) { $obj->header_check($message); if ($obj->error()) { my $x = $obj->error(); - $x =~ s/at .*$//; + $x =~ s/\s*at .*$//; print STDERR "error: $x"; - print STDERR "\n"; } else { print STDERR "ok\n"; } - } + } } exit 0; |