blob: 78717e4fc2c098bef2706f431d4b255684df77ae (
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
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
|
#!/usr/bin/env perl
#-*- perl -*-
#
# Copyright (C) 2001 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: extrace_message_id.pl,v 1.2 2005/07/27 12:16:20 fukachan Exp $
#
use strict;
use Carp;
use lib qw(../../cpan/lib lib);
use Mail::Message;
my $test_mode = $ENV{'test_mode'} ? 1 : 0;
for my $f (@ARGV) {
print "\n\n\n";
print "=" x 60;
print "\n// $f \n\n";
my $fd = new FileHandle $f;
my $msg = Mail::Message->parse( {
fd => $fd,
header_class => 'FML::Header',
});
my $header = $msg->whole_message_header;
my $mid = $header->get('message-id');
print "Message-ID: ";
print $header->get('message-id');
print "\n";
print "\n";
print " cleanup> ", $header->address_cleanup($mid);
print "\n";
print "\n";
print "In-Reply-To: ";
print $header->get('in-reply-to');
print "\n";
print "References: ";
print $header->get('references');
print "\n ";
print "-" x 50;
print "\n";
$mid = $header->extract_message_id_references();
if (@$mid) {
for (@$mid) {
print "message-id:\t", $_, "\n";
}
}
}
exit 0;
|
