diff options
| author | fukachan <fukachan> | 2003-02-16 08:48:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-02-16 08:48:05 +0000 |
| commit | e54f2b1dcfa487f55a6947beaf3af3f428ec73f6 (patch) | |
| tree | 1df758e8526d1c0db99458137ba67462b45fdd67 /fml/lib/FML | |
| parent | 26f4ac0e3c861ffe00f37642a92908d2a27e428e (diff) | |
| download | fml8-e54f2b1dcfa487f55a6947beaf3af3f428ec73f6.tar.gz fml8-e54f2b1dcfa487f55a6947beaf3af3f428ec73f6.tar.bz2 fml8-e54f2b1dcfa487f55a6947beaf3af3f428ec73f6.zip | |
$summary_format_address_length determines address length in summary file.
Diffstat (limited to 'fml/lib/FML')
| -rw-r--r-- | fml/lib/FML/Article/Summary.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm index d3f6fd92..0a6ecb32 100644 --- a/fml/lib/FML/Article/Summary.pm +++ b/fml/lib/FML/Article/Summary.pm @@ -4,7 +4,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: Summary.pm,v 1.8 2002/12/15 14:04:25 fukachan Exp $ +# $FML: Summary.pm,v 1.9 2003/01/11 16:05:13 fukachan Exp $ # package FML::Article::Summary; @@ -81,6 +81,7 @@ sub _prepare_info my $curproc = $self->{ _curproc }; my $config = $curproc->config(); my $tag = $config->{ article_subject_tag }; + my $addrlen = $config->{ summary_format_address_length }; my $article = undef; if (defined $self->{ _article }) { @@ -100,19 +101,16 @@ sub _prepare_info my $date = $header->get( 'date' ); my $unixtime = Mail::Message::Date::date_to_unixtime( $date ); - # extract the first 15 bytes of user@domain part - # from From: header field. - # XXX-TODO "15" bytes is hard-coded. + # log the first 15 bytes of user@domain in From: header field. use FML::Header; my $hdrobj = new FML::Header; - $address = substr($hdrobj->address_clean_up( $address ), 0, 15); + $address = substr($hdrobj->address_clean_up( $address ), 0, $addrlen); - # fold "\n". # XXX-TODO $subject->clean_up() (object flavour?) use FML::Header::Subject; - my $obj = new FML::Header::Subject; - my $subject = $obj->clean_up($header->get('subject'), $tag); - $subject =~ s/\s*\n/ /g; + my $subjobj = new FML::Header::Subject; + my $subject = $subjobj->clean_up($header->get('subject'), $tag); + $subject =~ s/\s*\n/ /g; # fold "\n". $subject =~ s/\s+/ /g; # XXX-TODO "jis-jp" and "euc-jp" is hard-coded. |