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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/pkg/bin/perl
#
# $FML: dump.pl,v 1.2 2001/09/23 12:18:16 fukachan Exp $
#
use lib qw(../../fml/lib ../../cpan/lib ../../im/lib);
use FileHandle;
use Mail::Message;
my $f = shift @ARGV;
my $fp = $ENV{METHOD} || "data_type";
my $fh = new FileHandle $f;
my $wh = new FileHandle "> $tmp";
my $obj = Mail::Message->parse( { fd => $fh } );
# all
{
print "ALL\n";
for (my $mp = $obj, my $i = 0; $mp ; $mp = $mp->{ next } ) {
$i++;
my $type = $mp->$fp();
my $e = $mp->encoding_mechanism();
printf "object(%02d) type = %-25s %s\n", $i, $type, $mp;
}
}
# head
{
print "\n";
print "HEAD (HEADER)\n";
my $mp = $obj;
my $type = "unknown"; # $mp->$fp();
my $e = "unknown"; # $mp->encoding_mechanism();
printf "object(%02d) type = %-25s %s\n", $i, $type, $mp;
}
# head
{
print "\n";
print "BODY HEAD\n";
my $mp = $obj->whole_message_body_head();
my $type = $mp->$fp();
my $e = $mp->encoding_mechanism();
printf "object(%02d) type = %-25s %s\n", $i, $type, $mp;
}
# tail
{
print "\n";
print "BODY TAIL\n";
my $mp = $obj->whole_message_body_tail();
my $type = $mp->$fp();
my $e = $mp->encoding_mechanism();
printf "object(%02d) type = %-25s %s\n", $i, $type, $mp;
if ($ENV{DUMP}) {
use Data::Dumper;
print Dumper($mp);
}
}
exit 0;
|
