diff options
| author | fukachan <fukachan> | 2002-04-21 14:00:01 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-21 14:00:01 +0000 |
| commit | 3517ac6dbe42aeb85ecd30fceb25bcb99a00d20a (patch) | |
| tree | 362f0a84d843667622bf6c0a19183018511a4954 /fml/lib/Mail/Message | |
| parent | 7eec3483c2cbe8aa98f92c36d278edadf5f98f07 (diff) | |
| download | fml8-3517ac6dbe42aeb85ecd30fceb25bcb99a00d20a.tar.gz fml8-3517ac6dbe42aeb85ecd30fceb25bcb99a00d20a.tar.bz2 fml8-3517ac6dbe42aeb85ecd30fceb25bcb99a00d20a.zip | |
you can specify $ENV{MAX}
Diffstat (limited to 'fml/lib/Mail/Message')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index f4cbc2d5..13b87564 100644 --- a/fml/lib/Mail/Message/ToHTML.pm +++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.16 2002/04/20 22:24:53 fukachan Exp $ +# $FML: ToHTML.pm,v 1.17 2002/04/21 04:10:30 fukachan Exp $ # package Mail::Message::ToHTML; @@ -19,7 +19,7 @@ my $debug = 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.16 2002/04/20 22:24:53 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.17 2002/04/21 04:10:30 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -2525,8 +2525,9 @@ sub htmlify_dir # debug # if ($0 eq __FILE__) { - my $dir = "/tmp/htdocs"; + my $dir = "/tmp/htdocs"; my $has_fork = defined $ENV{'HAS_FORK'} ? 1 : 0; + my $max = defined $ENV{'MAX'} ? $ENV{'MAX'} : 1000; eval q{ for my $x (@ARGV) { @@ -2537,7 +2538,7 @@ if ($0 eq __FILE__) { htmlify_dir($x, { directory => $dir, has_fork => $has_fork, - max => 25, + max => $max, }); } } |