diff options
| author | fukachan <fukachan> | 2005-12-04 12:58:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-04 12:58:50 +0000 |
| commit | 06cd147fa9c6a7a5e743fefa230f8e3b36124bef (patch) | |
| tree | dbe36031bd7a09522dca93ac4ea48f20c6973da3 | |
| parent | ca19d53e78129f60d6f0a50dd05cb258f15c80d5 (diff) | |
| download | fml8-06cd147fa9c6a7a5e743fefa230f8e3b36124bef.tar.gz fml8-06cd147fa9c6a7a5e743fefa230f8e3b36124bef.tar.bz2 fml8-06cd147fa9c6a7a5e743fefa230f8e3b36124bef.zip | |
fixed to catch up current codes
| -rwxr-xr-x | regress/message/dump.pl | 6 | ||||
| -rwxr-xr-x | regress/message/extrace_message_id.pl | 6 | ||||
| -rwxr-xr-x | regress/message/summary.pl | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/regress/message/dump.pl b/regress/message/dump.pl index ce6c3129..c0595392 100755 --- a/regress/message/dump.pl +++ b/regress/message/dump.pl @@ -1,6 +1,6 @@ #!/usr/pkg/bin/perl # -# $FML: dump.pl,v 1.1 2001/09/23 11:23:38 fukachan Exp $ +# $FML: dump.pl,v 1.2 2001/09/23 12:18:16 fukachan Exp $ # use lib qw(../../fml/lib ../../cpan/lib ../../im/lib); @@ -19,7 +19,7 @@ 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(); + my $type = $mp->data_type(); + my $e = $mp->encoding_mechanism(); printf "object(%d) type = %-30s encoding= %-10s\n", $i, $type, $e; } diff --git a/regress/message/extrace_message_id.pl b/regress/message/extrace_message_id.pl index 5743b67d..78717e4f 100755 --- a/regress/message/extrace_message_id.pl +++ b/regress/message/extrace_message_id.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: extrace_message_id.pl,v 1.1 2001/04/23 17:32:45 fukachan Exp $ +# $FML: extrace_message_id.pl,v 1.2 2005/07/27 12:16:20 fukachan Exp $ # use strict; @@ -26,14 +26,14 @@ for my $f (@ARGV) { header_class => 'FML::Header', }); - my $header = $msg->rfc822_message_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_clean_up($mid); + print " cleanup> ", $header->address_cleanup($mid); print "\n"; print "\n"; print "In-Reply-To: "; diff --git a/regress/message/summary.pl b/regress/message/summary.pl index 7e3f08c0..a00ebaa6 100755 --- a/regress/message/summary.pl +++ b/regress/message/summary.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: summary.pl,v 1.1 2004/03/28 13:15:07 fukachan Exp $ # use strict; @@ -24,7 +24,7 @@ for my $f (@ARGV) { my $wh = new FileHandle "> $tmp"; my $msg = Mail::Message->parse( { fd => $fh } ); - print $msg->one_line_summary($wh); + print $msg->one_line_summary(); print "\n"; print "\n"; } |