diff options
| author | fukachan <fukachan> | 2002-04-07 05:01:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-07 05:01:06 +0000 |
| commit | 2dcae6e7604a9cca012dea58940f0880fb396586 (patch) | |
| tree | 22d23989335f9ed1172e3327cbbaf3e8779b6b1f /fml/lib/FML/Command/Admin/htmlify.pm | |
| parent | 97d70b15bc982d29b49a340a45fd6846c53e6c9f (diff) | |
| download | fml8-2dcae6e7604a9cca012dea58940f0880fb396586.tar.gz fml8-2dcae6e7604a9cca012dea58940f0880fb396586.tar.bz2 fml8-2dcae6e7604a9cca012dea58940f0880fb396586.zip | |
doc: remove makefml description
add --dstdir=DIR
FNF-ify
Diffstat (limited to 'fml/lib/FML/Command/Admin/htmlify.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/htmlify.pm | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm index e250e1d2..866c3477 100644 --- a/fml/lib/FML/Command/Admin/htmlify.pm +++ b/fml/lib/FML/Command/Admin/htmlify.pm @@ -4,20 +4,19 @@ # 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.9 2002/03/17 06:24:29 fukachan Exp $ +# $FML: htmlify.pm,v 1.10 2002/03/31 03:39:13 fukachan Exp $ # package FML::Command::Admin::htmlify; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; - use FML::Log qw(Log LogWarn LogError); =head1 NAME -FML::Command::Admin::htmlify - htmlify $spool_dir +FML::Command::Admin::htmlify - convert $spool_dir to html files =head1 SYNOPSIS @@ -25,23 +24,6 @@ See C<FML::Command>. =head1 DESCRIPTION -=head2 makefml usage - -For example, make HTMLified articles in -/var/www/htdocs/mlarchives/elena - - makefml htmlify elena \ - --outdir=/var/www/htdocs/mlarchives/elena - -or - - makefml htmlify elena \ - --srcdir=/var/spool/ml/elena/spool \ - --outdir=/var/www/htdocs/mlarchives/elena - -if --srcdir is not specified, the source is taken from -/var/spool/ml/$ml_name/spool/. - =head1 METHODS =cut @@ -82,6 +64,7 @@ sub process for (@$options) { if (/\-\-outdir=(\S+)/) { $dst_dir = $1;} + if (/\-\-dstdir=(\S+)/) { $dst_dir = $1;} if (/\-\-srcdir=(\S+)/) { $src_dir = $1;} } @@ -92,7 +75,9 @@ sub process } use Mail::Message::ToHTML; - &Mail::Message::ToHTML::htmlify_dir($src_dir, { directory => $dst_dir }); + &Mail::Message::ToHTML::htmlify_dir($src_dir, { + directory => $dst_dir, + }); } else { croak("no destination directory\n"); |
