diff options
| author | fukachan <fukachan> | 2002-05-28 14:39:56 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-28 14:39:56 +0000 |
| commit | e8e33c8baa964d7b59371f58a913af07eec35444 (patch) | |
| tree | 505dfeb8de7145f82c810e447990fd85ceaac5ef /fml/lib/FML/Command | |
| parent | d0d08b374a9997249a8d499fa3148dd57db011ea (diff) | |
| download | fml8-e8e33c8baa964d7b59371f58a913af07eec35444.tar.gz fml8-e8e33c8baa964d7b59371f58a913af07eec35444.tar.bz2 fml8-e8e33c8baa964d7b59371f58a913af07eec35444.zip | |
mkdir @$init_config_dir_list
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/Admin/newml.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm index 6314a7c0..dece3571 100644 --- a/fml/lib/FML/Command/Admin/newml.pm +++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.35 2002/05/27 08:53:23 fukachan Exp $ +# $FML: newml.pm,v 1.36 2002/05/28 13:36:01 fukachan Exp $ # package FML::Command::Admin::newml; @@ -113,10 +113,12 @@ sub process mkdirhier( $ml_home_dir, $config->{ default_dir_mode } || 0755 ); # $ml_home_dir/etc/mail - my $mailconfdir = $config->{ domain_mail_config_dir }; - unless (-d $mailconfdir) { - print STDERR "creating $mailconfdir\n"; - mkdirhier( $mailconfdir, $config->{ default_dir_mode } || 0755 ); + my $dirlist = $config->get_as_array_ref('init_config_dir_list'); + for my $_dir (@$dirlist) { + unless (-d $_dir) { + print STDERR "creating $_dir\n"; + mkdirhier( $_dir, $config->{ default_dir_mode } || 0755 ); + } } # 1. install $ml_home_dir/{config.cf,include,include-ctl} |