diff options
| author | fukachan <fukachan> | 2005-05-26 10:20:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-05-26 10:20:03 +0000 |
| commit | 74b391b33f9d16c40fdfe9b72d83c2dfce893e39 (patch) | |
| tree | edc97823e41b8e4780537b2e6327bb9ec85a18d8 /fml/lib/FML/Header | |
| parent | 8b58c0160dff722773e8d5564f2b43bc82c4662f (diff) | |
| download | fml8-74b391b33f9d16c40fdfe9b72d83c2dfce893e39.tar.gz fml8-74b391b33f9d16c40fdfe9b72d83c2dfce893e39.tar.bz2 fml8-74b391b33f9d16c40fdfe9b72d83c2dfce893e39.zip | |
not use str.str
Diffstat (limited to 'fml/lib/FML/Header')
| -rw-r--r-- | fml/lib/FML/Header/MessageID.pm | 11 | ||||
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 10 |
2 files changed, 12 insertions, 9 deletions
diff --git a/fml/lib/FML/Header/MessageID.pm b/fml/lib/FML/Header/MessageID.pm index 67bac059..588455d8 100644 --- a/fml/lib/FML/Header/MessageID.pm +++ b/fml/lib/FML/Header/MessageID.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2005 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: MessageID.pm,v 1.22 2004/03/12 04:22:54 fukachan Exp $ +# $FML: MessageID.pm,v 1.23 2004/07/23 12:43:55 fukachan Exp $ # package FML::Header::MessageID; @@ -169,10 +169,13 @@ generate and return a new message-id. sub gen_id { my ($self, $config) = @_; + my $addr = $config->{ article_post_address }; # XXX-TODO: if $config->{ article_post_address } undefined ? $Counter++; - return "<".time.".$$.$Counter." . $config->{ article_post_address } . ">"; + + # "<".time.".$$.$Counter." . $config->{ article_post_address } . ">"; + return sprintf("<%d.%d.%s.%s>", time, $$, $Counter, $addr); } @@ -186,7 +189,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2005 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. diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index 90b0a795..c01b9c52 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2005 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: Subject.pm,v 1.46 2004/07/23 12:44:49 fukachan Exp $ +# $FML: Subject.pm,v 1.47 2004/07/23 15:59:06 fukachan Exp $ # package FML::Header::Subject; @@ -66,7 +66,7 @@ sub rewrite_article_subject_tag my ($self, $header, $config, $rw_args) = @_; my ($in_code, $out_code); - # XXX-TODO: need $article_subject_tag expaned already e.g. "\Lmlname\E" + # XXX-TODO: need $article_subject_tag expanded already e.g. "\Lmlname\E" # XXX-TODO: we should include this exapansion method within this module? my $tag = $config->{ article_subject_tag }; my $subject = $header->get('subject'); @@ -91,7 +91,7 @@ sub rewrite_article_subject_tag # add(prepend) the rewrited tag with mime encoding. $tag = sprintf($tag, $rw_args->{ id }); - my $new_subject = $tag." ".$subject; + my $new_subject = sprintf("%s %s", $tag, $subject); $new_subject = $obj->encode_mime_string($new_subject, 'base64', $in_code); $header->replace('Subject', $new_subject); } @@ -281,7 +281,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2005 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. |