diff options
| author | fukachan <fukachan> | 2001-12-23 14:12:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-23 14:12:51 +0000 |
| commit | 6108f94ecbb260912f434fd87e99d2af231860be (patch) | |
| tree | 802078a2942058d74d15596551e19a99381a0748 /fml/lib/Mail/HTML | |
| parent | 42c499c710fe7fb7bab1fe0c9a8010faa5114ca2 (diff) | |
| download | fml8-6108f94ecbb260912f434fd87e99d2af231860be.tar.gz fml8-6108f94ecbb260912f434fd87e99d2af231860be.tar.bz2 fml8-6108f94ecbb260912f434fd87e99d2af231860be.zip | |
check $filename is valid in showing <LI> ...
Diffstat (limited to 'fml/lib/Mail/HTML')
| -rw-r--r-- | fml/lib/Mail/HTML/Lite.pm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm index 687d33b7..67d1b806 100644 --- a/fml/lib/Mail/HTML/Lite.pm +++ b/fml/lib/Mail/HTML/Lite.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: Lite.pm,v 1.31 2001/11/17 15:21:18 fukachan Exp $ +# $FML: Lite.pm,v 1.32 2001/12/22 09:21:18 fukachan Exp $ # package Mail::HTML::Lite; @@ -15,7 +15,7 @@ use Carp; my $debug = $ENV{'debug'} ? 1 : 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::HTML::Lite</A>"; -my $version = q$FML: Lite.pm,v 1.31 2001/11/17 15:21:18 fukachan Exp $; +my $version = q$FML: Lite.pm,v 1.32 2001/12/22 09:21:18 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -1967,14 +1967,16 @@ sub _print_li_filename my $subject = $db->{ _subject }->{ $id }; my $who = $db->{ _who }->{ $id }; - _print_raw_str($wh, "<!-- LI id=$id -->\n", $code); + if (defined $filename && $filename && -f $filename) { + _print_raw_str($wh, "<!-- LI id=$id -->\n", $code); - _print_raw_str($wh, "<LI>\n", $code); - _print_raw_str($wh, "<A HREF=\"$filename\">\n", $code); - _print_safe_str($wh, $subject, $code); - _print_raw_str($wh, ",\n", $code); - _print_safe_str($wh, "$who\n", $code); - _print_raw_str($wh, "</A>\n", $code); + _print_raw_str($wh, "<LI>\n", $code); + _print_raw_str($wh, "<A HREF=\"$filename\">\n", $code); + _print_safe_str($wh, $subject, $code); + _print_raw_str($wh, ",\n", $code); + _print_safe_str($wh, "$who\n", $code); + _print_raw_str($wh, "</A>\n", $code); + } } |