From 91c2d366d93ecc7b43cf3e2892e2e6c84c2bec80 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 17 Nov 2001 15:21:18 +0000
Subject: show processing a little

---
 fml/lib/Mail/HTML/Lite.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'fml/lib/Mail/HTML')

diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm
index c3513336..1ad3b4eb 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.29 2001/10/29 15:07:03 fukachan Exp $
+# $FML: Lite.pm,v 1.30 2001/11/17 04:01:54 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.29 2001/10/29 15:07:03 fukachan Exp $;
+my $version = q$FML: Lite.pm,v 1.30 2001/11/17 04:01:54 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -2122,6 +2122,9 @@ sub htmlify_file
     if ($html->is_ignore($id)) {
 	warn("not process $id (already exists)") if defined $ENV{'debug'};
     }
+    else {
+	printf STDERR "   converted( id=%-6s src=%s )\n", $id, $file;
+    }
 }
 
 
-- 
cgit v1.2.1