diff options
author | ivan <ivan> | 2002-06-11 18:20:38 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-06-11 18:20:38 +0000 |
commit | c189704fb7f1c2dce5362b5210fa957e274b3f55 (patch) | |
tree | abfe96450f5a72990822f076e25dc32ee4c5f519 /bin | |
parent | 340906d63346ccf1cffe138e58feb5244e1aa0a2 (diff) |
perl 5.005 needs an explicit mask for mkdir
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/bind.export | 6 | ||||
-rwxr-xr-x | bin/shell.export | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/bin/bind.export b/bin/bind.export index 62b7abb51..7d1452dc6 100755 --- a/bin/bind.export +++ b/bin/bind.export @@ -15,7 +15,7 @@ my $user = shift or die &usage; adminsuidsetup $user; my $spooldir = "/usr/local/etc/freeside/export.". datasrc. "/bind"; -mkdir $spooldir unless -d $spooldir; +mkdir $spooldir, 0700 unless -d $spooldir; my @exports = qsearch('part_export', { 'exporttype' => 'bind' } ); my @sexports = qsearch('part_export', { 'exporttype' => 'bind_slave' } ); @@ -33,7 +33,7 @@ foreach my $export ( @exports ) { #prevent old domain files from piling up #rmtree "$prefix" or die "can't rmtree $prefix.db: $!"; - mkdir $prefix unless -d $prefix; + mkdir $prefix, 0700 unless -d $prefix; open(NAMED_CONF,">$prefix/named.conf") or die "can't open $prefix/named.conf: $!"; @@ -132,7 +132,7 @@ foreach my $sexport ( @sexports ) { #false laziness with above #prevent old domain files from piling up #rmtree "$prefix" or die "can't rmtree $prefix.db: $!"; - mkdir $prefix unless -d $prefix; + mkdir $prefix, 0700 unless -d $prefix; open(NAMED_CONF,">$prefix/named.conf") or die "can't open $prefix/named.conf: $!"; diff --git a/bin/shell.export b/bin/shell.export index 3ccda3500..064d56e63 100755 --- a/bin/shell.export +++ b/bin/shell.export @@ -28,7 +28,7 @@ my $rsync = File::Rsync->new({ foreach my $export ( @sysv_exports ) { my $machine = $export->machine; my $prefix = "$spooldir/$machine"; - mkdir $prefix unless -d $prefix; + mkdir $prefix, 0700 unless -d $prefix; #LOCKING!!! |