rename class: Mail::HTML::Lite -> Mail::Message::ToHTML

4 files changed, 29 insertions, 27 deletions

diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 496c5a1a..e250e1d2 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.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: htmlify.pm,v 1.8 2002/02/20 14:10:37 fukachan Exp $
+# $FML: htmlify.pm,v 1.9 2002/03/17 06:24:29 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -91,8 +91,8 @@ sub process
 	    mkdirhier($dst_dir, 0755);
 	}
 
-	use Mail::HTML::Lite;
-	&Mail::HTML::Lite::htmlify_dir($src_dir, { directory => $dst_dir });
+	use Mail::Message::ToHTML;
+	&Mail::Message::ToHTML::htmlify_dir($src_dir, { directory => $dst_dir });
     }
     else {
 	croak("no destination directory\n");
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index c8f6f30b..7e28d692 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Distribute.pm,v 1.65 2002/02/17 13:46:29 fukachan Exp $
+# $FML: Distribute.pm,v 1.66 2002/03/30 13:48:26 fukachan Exp $
 #
 
 package FML::Process::Distribute;
@@ -432,12 +432,12 @@ sub htmlify
     my $article_file   = $article->filepath($article_id);
 
     eval q{
-	use Mail::HTML::Lite;
+	use Mail::Message::ToHTML;
 	use File::Utils qw(mkdirhier);
     };
     unless ($@) {
 	mkdirhier($html_dir) unless -d $html_dir;
-	&Mail::HTML::Lite::htmlify_file($article_file, {
+	&Mail::Message::ToHTML::htmlify_file($article_file, {
 	    directory => $html_dir,
 	});
     }
diff --git a/fml/lib/FML/Process/HTMLify.pm b/fml/lib/FML/Process/HTMLify.pm
index e2a3029f..e5c80679 100644
--- a/fml/lib/FML/Process/HTMLify.pm
+++ b/fml/lib/FML/Process/HTMLify.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000-2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: HTMLify.pm,v 1.11 2002/02/17 13:45:10 fukachan Exp $
+# $FML: HTMLify.pm,v 1.12 2002/03/17 06:24:31 fukachan Exp $
 #
 
 package FML::Process::HTMLify;
@@ -27,7 +27,7 @@ FML::Process::HTMLify -- htmlify articles
 
 =head1 SYNOPSIS
 
-See C<Mail::HTML::Lite> module.
+See C<Mail::Message::ToHTML> module.
 
 =head1 DESCRIPTION
 
@@ -99,7 +99,7 @@ call the actual thread tracking system.
 
 =cut
 
-# Descriptions: convert text format article to HTML by Mail::HTML::Lite
+# Descriptions: convert text format article to HTML by Mail::Message::ToHTML
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: load modules, create HTML files and directories
 # Return Value: none
@@ -134,8 +134,8 @@ sub run
         }
 
 	eval q{
-	    use Mail::HTML::Lite;
-	    &Mail::HTML::Lite::htmlify_dir($src_dir, {
+	    use Mail::Message::ToHTML;
+	    &Mail::Message::ToHTML::htmlify_dir($src_dir, {
 		directory => $dst_dir,
 	    });
 	};
diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/Message/ToHTML.pm
index 3a1fab3e..ee062dde 100644
--- a/fml/lib/Mail/HTML/Lite.pm
+++ b/fml/lib/Mail/Message/ToHTML.pm
@@ -1,35 +1,35 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002 Ken'ichi Fukamachi
+#  Copyright (C) 2002 Ken'ichi Fukamachi
 #   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.39 2002/02/01 12:04:02 fukachan Exp $
+# $FML: Lite.pm,v 1.40 2002/03/31 02:43:21 fukachan Exp $
 #
 
-package Mail::HTML::Lite;
+package Mail::Message::ToHTML;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 my $debug = 0;
-my $URL   = "<A HREF=\"http://www.fml.org/software/\">Mail::HTML::Lite</A>";
+my $URL   = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: Lite.pm,v 1.39 2002/02/01 12:04:02 fukachan Exp $;
+my $version = q$FML: Lite.pm,v 1.40 2002/03/31 02:43:21 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
 
 =head1 NAME
 
-Mail::HTML::Lite - convert text format mail to HTML format
+Mail::Message::ToHTML - convert text format mail to HTML format
 
 =head1 SYNOPSIS
 
   ... lock by something ...
 
-  use Mail::HTML::Lite;
-  my $obj = new Mail::HTML::Lite {
+  use Mail::Message::ToHTML;
+  my $obj = new Mail::Message::ToHTML {
       charset   => "euc-jp",
       directory => "/var/www/htdocs/ml/elena",
   };
@@ -200,7 +200,7 @@ sub htmlfy_rfc822_message
 		my $outf = _gen_attachment_filename($dst, $attach, 'html');
 		my $args = $self->{ _args };
 		$args->{ attachment } = 1; # clarify not top level content.
-		my $text = new Mail::HTML::Lite $args;
+		my $text = new Mail::Message::ToHTML $args;
 		$text->htmlfy_rfc822_message({
 		    parent_id => $id,
 		    src => $tmpf,
@@ -458,10 +458,10 @@ sub mhl_separator
 }
 
 
-my $preamble_begin = "<!-- __PREAMBLE_BEGIN__ by Mail::HTML::Lite -->";
-my $preamble_end   = "<!-- __PREAMBLE_END__   by Mail::HTML::Lite -->";
-my $footer_begin   = "<!-- __FOOTER_BEGIN__ by Mail::HTML::Lite -->";
-my $footer_end     = "<!-- __FOOTER_END__   by Mail::HTML::Lite -->";
+my $preamble_begin = "<!-- __PREAMBLE_BEGIN__ by Mail::Message::ToHTML -->";
+my $preamble_end   = "<!-- __PREAMBLE_END__   by Mail::Message::ToHTML -->";
+my $footer_begin   = "<!-- __FOOTER_BEGIN__ by Mail::Message::ToHTML -->";
+my $footer_end     = "<!-- __FOOTER_END__   by Mail::Message::ToHTML -->";
 
 
 # Descriptions: prepare information area before main message appears.
@@ -2286,7 +2286,7 @@ sub htmlify_file
 
     use File::Basename;
     my $id = basename($file);
-    my $html = new Mail::HTML::Lite {
+    my $html = new Mail::Message::ToHTML {
 	charset   => "euc-jp",
 	directory => $dst_dir,
     };
@@ -2375,16 +2375,18 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2002 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Mail::HTML::Lite appeared in fml5 mailing list driver package.
+Mail::Message::ToHTML appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
+This class is renamed from C<Mail::HTML::Lite> 1.40 (2001-2002).
+
 =cut