diff options
| author | fukachan <fukachan> | 2001-11-17 04:01:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-17 04:01:54 +0000 |
| commit | 2e433b4b40b942cb9325833061d66ed3362b308f (patch) | |
| tree | 5b5b9cefd6e2bac7d8d834af05f2007a9e508689 | |
| parent | 20f3ee36be0360a407d0389cf5082db6f8f357a9 (diff) | |
| download | fml8-2e433b4b40b942cb9325833061d66ed3362b308f.tar.gz fml8-2e433b4b40b942cb9325833061d66ed3362b308f.tar.bz2 fml8-2e433b4b40b942cb9325833061d66ed3362b308f.zip | |
disable debug code, enable it when $ENV{debug} is defined
| -rw-r--r-- | fml/lib/FML/Process/HTMLify.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/HTML/Lite.pm | 10 |
2 files changed, 8 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/HTMLify.pm b/fml/lib/FML/Process/HTMLify.pm index 175c235a..854d3317 100644 --- a/fml/lib/FML/Process/HTMLify.pm +++ b/fml/lib/FML/Process/HTMLify.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000-2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: HTMLify.pm,v 1.2 2001/11/05 13:02:35 fukachan Exp $ +# $FML: HTMLify.pm,v 1.3 2001/11/07 10:05:52 fukachan Exp $ # package FML::Process::HTMLify; @@ -84,7 +84,7 @@ sub run my $src_dir = $argv->[0]; my $dst_dir = $argv->[1]; - print STDERR "htmlify\t$src_dir =>\n\t\t$dst_dir\n"; + print STDERR "htmlify\t$src_dir =>\n\t\t$dst_dir\n" if $ENV{'debug'}; # prepend $opt_I as @INC if (defined $options->{ I }) { diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm index 6fd89412..c3513336 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.28 2001/10/29 11:44:38 fukachan Exp $ +# $FML: Lite.pm,v 1.29 2001/10/29 15:07:03 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.28 2001/10/29 11:44:38 fukachan Exp $; +my $version = q$FML: Lite.pm,v 1.29 2001/10/29 15:07:03 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -2104,7 +2104,9 @@ sub htmlify_file directory => $dst_dir, }; - printf STDERR "htmlify_file( id=%-6s src=%s )\n", $id, $file; + if (defined $ENV{'debug'}) { + printf STDERR "htmlify_file( id=%-6s src=%s )\n", $id, $file; + } $html->htmlfy_rfc822_message({ id => $id, @@ -2118,7 +2120,7 @@ sub htmlify_file # no more action for old files if ($html->is_ignore($id)) { - warn("not process $id (already exists)"); + warn("not process $id (already exists)") if defined $ENV{'debug'}; } } |