blob: ce6c3129d908f2f1e026d4fdd095d4d7db058bac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/pkg/bin/perl
#
# $FML: dump.pl,v 1.1 2001/09/23 11:23:38 fukachan Exp $
#
use lib qw(../../fml/lib ../../cpan/lib ../../im/lib);
use FileHandle;
use Mail::Message;
my $f = shift @ARGV;
my $fh = new FileHandle $f;
my $wh = new FileHandle "> $tmp";
my $obj = Mail::Message->parse( { fd => $fh } );
use Data::Dumper;
print Dumper( $obj );
for (my $mp = $obj, my $i = 0; $mp ; $mp = $mp->{ next } ) {
$i++;
my $type = $mp->get_data_type();
my $e = $mp->get_encoding_mechanism();
printf "object(%d) type = %-30s encoding= %-10s\n", $i, $type, $e;
}
|
