diff options
| author | fukachan <fukachan> | 2001-10-21 03:26:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-21 03:26:32 +0000 |
| commit | c3f1d2b6e77836e374e3872b683763e9f0d91e1f (patch) | |
| tree | 9a969eae13bb3d819f6174f719c12b8e4dbd1376 /fml/lib | |
| parent | 884eb3637531c316e5c5ea112dbcda3af480a6a0 (diff) | |
| download | fml8-c3f1d2b6e77836e374e3872b683763e9f0d91e1f.tar.gz fml8-c3f1d2b6e77836e374e3872b683763e9f0d91e1f.tar.bz2 fml8-c3f1d2b6e77836e374e3872b683763e9f0d91e1f.zip | |
clean up codes, documents
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/HTML/Lite.pm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm index bf88402d..1fff8749 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.8 2001/10/21 02:31:56 fukachan Exp $ +# $FML: Lite.pm,v 1.9 2001/10/21 03:07:52 fukachan Exp $ # package Mail::HTML::Lite; @@ -20,6 +20,8 @@ Mail::HTML::Lite - mail to html converter =head1 SYNOPSIS + ... lock by something ... + use Mail::HTML::Lite; my $obj = new Mail::HTML::Lite { charset => "euc-jp", @@ -31,6 +33,11 @@ Mail::HTML::Lite - mail to html converter src => "/var/spool/ml/elena/spool/1", }); + ... unlock by something ... + +This module itself provides no lock function. +please use flock() built in perl or CPAN lock modules for it. + =head1 DESCRIPTION =head2 Message structure created as HTML @@ -1258,14 +1265,14 @@ sub update_id_index $self->_db_open(); my $db = $self->{ _db }; - my $id_max = $db->{ _info }->{ id_max }; + my $id_max = $db->{ _info }->{ id_max }; - _print($wh, "<UL>\n", $code); + $self->_print_ul($wh, $db, $code); for my $id ( 1 .. $id_max ) { $self->_print_li_filename($wh, $db, $id, $code); } - _print($wh, "</UL>\n", $code); - + $self->_print_end_of_ul($wh, $db, $code); + $self->_db_close(); $self->mhl_separator($wh); |