fixed to co-work with udb well.

1 files changed, 11 insertions, 3 deletions

diff --git a/fml/lib/FML/Command/HTMLify.pm b/fml/lib/FML/Command/HTMLify.pm
index 7ef68c92..34762031 100644
--- a/fml/lib/FML/Command/HTMLify.pm
+++ b/fml/lib/FML/Command/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.15 2003/01/11 16:05:14 fukachan Exp $
+# $FML: HTMLify.pm,v 1.16 2003/02/16 08:33:09 fukachan Exp $
 #
 
 package FML::Command::HTMLify;
@@ -41,6 +41,8 @@ sub convert
 {
     my ($curproc, $args, $optargs) = @_;
     my $config  = $curproc->config();
+    my $ml_name = $config->{ ml_name };
+    my $udb_dir = $config->{ udb_base_dir };
     my $src_dir = $optargs->{ src_dir };
     my $dst_dir = $optargs->{ dst_dir };
     my $charset = $curproc->language_of_html_file();
@@ -58,11 +60,17 @@ sub convert
 
     print STDERR "  convert\n\t$src_dir =>\n\t$dst_dir\n" if $debug;
 
+    unless (-d $udb_dir) { $curproc->mkdir($udb_dir);}
+
     my $index_order    = $config->{ html_archive_index_order_type };
     my $htmlifier_args = {
-	directory   => $dst_dir,
 	charset     => $charset,
-	index_order => $index_order,
+
+	output_dir  => $dst_dir,     # ~fml/public_html/mlarchive/$domain/$ml/
+	db_base_dir => $udb_dir,     # /var/spool/ml/@udb@
+	db_name     => $ml_name,     # elena
+
+	index_order => $index_order, # normal/reverse
     };
 
     my ($is_subdir_exists, $subdirs) = _check_subdir_exists($src_dir);