show mime headers sequencially

1 files changed, 34 insertions, 0 deletions

diff --git a/regress/message/show_mime_headers.pl b/regress/message/show_mime_headers.pl
new file mode 100755
index 00000000..92d3f898
--- /dev/null
+++ b/regress/message/show_mime_headers.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+#-*- perl -*-
+#
+#  Copyright (C) 2001,2002,2004 Ken'ichi Fukamachi
+#   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 $
+#
+
+use strict;
+use Carp;
+use lib qw(../../cpan/lib);
+use Mail::Message;
+
+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 } );
+
+    for (my $m = $obj ; $m->{ next }; $m = $m->{ next }) { 
+	print $m->{ header };
+	print "\n";
+    }
+
+}
+
+unlink $tmp;
+
+exit 0;