diff options
| -rwxr-xr-x | regress/message/show_mime_headers.pl | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/regress/message/show_mime_headers.pl b/regress/message/show_mime_headers.pl index 92d3f898..49bfdc6f 100755 --- a/regress/message/show_mime_headers.pl +++ b/regress/message/show_mime_headers.pl @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: basic_io.pl,v 1.5 2002/04/18 14:18:09 fukachan Exp $ +# $FML: show_mime_headers.pl,v 1.1 2004/12/08 07:27:33 fukachan Exp $ # use strict; @@ -18,13 +18,29 @@ my $test_mode = $ENV{'test_mode'} ? 1 : 0; my $tmp = "/tmp/buf$$"; for my $f (@ARGV) { - my $fh = new FileHandle $f; - my $wh = new FileHandle "> $tmp"; - my $obj = Mail::Message->parse( { fd => $fh } ); + my $fh = new FileHandle $f; + my $wh = new FileHandle "> $tmp"; + my $obj = Mail::Message->parse( { fd => $fh } ); + my $head = $obj->whole_message_header(); + my $i = 0; + + print "1. \n"; + $i = 0; + for (my $m = $obj->{ next }; $m->{ next }; $m = $m->{ next }) { + ++$i; + print "($i) {"; + print $m->{ header }; + print "}\n"; + } - for (my $m = $obj ; $m->{ next }; $m = $m->{ next }) { + print "2. \n"; + $i = 0; + my $list = $obj->message_chain_as_array_ref(); + for my $m (@$list) { + ++$i; + print "($i) {"; print $m->{ header }; - print "\n"; + print "}\n"; } } |