[prev] [thread] [next] [lurker] [Date index for 2002/10/01]
Update of /cvsroot/siesta/siesta/bin In directory usw-pr-cvs1:/tmp/cvs-serv7151/bin Modified Files: nacho Log Message: perltidy Index: nacho =================================================================== RCS file: /cvsroot/siesta/siesta/bin/nacho,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- nacho 1 Oct 2002 09:54:51 -0000 1.33 +++ nacho 1 Oct 2002 10:12:00 -0000 1.34 @@ -26,7 +26,7 @@ set-plugin-config-user set-plugin-config-list set-plugin-config-userlist - run-mhonarc + run-mhonarc ); # not enough arguments @@ -814,16 +814,15 @@ =cut sub run_mhonarc { - $ENV{M2H_PATTERN} = '^[^\.]'; + $ENV{M2H_PATTERN} = '^[^\.]'; $ENV{M2H_SPAMMODE} = 1; for my $list ( map { $_->id } Siesta->storage->get_lists ) { - my $input = $Siesta::Config::ARCHIVE . "/$list"; + my $input = $Siesta::Config::ARCHIVE . "/$list"; my $output = $Siesta::Config::ROOT . "/html/$list"; mkpath($output); system qq{ mhonarc -outdir $output $input/cur/* $input/new/* }; } } - sub usage { ( my $name = $0 ) =~ s!^.*[\\/]!!;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52