diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-08-12 03:36:45 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-08-12 03:36:45 +0000 |
| commit | eadd6153fd8a69edc3323eb94b20a9038c8ac704 (patch) | |
| tree | e0762126f7c12641b18bd6060509e1d8428864d6 /pingd | |
| parent | 5b7ef796565747adb5113ec08d862c31631c1255 (diff) | |
Stricter permissions for most newly created directories (go-rwx)
Diffstat (limited to 'pingd')
| -rwxr-xr-x | pingd | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3,7 +3,7 @@ $| = 1; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: pingd,v 1.61 2002/08/12 03:28:06 weasel Exp $ +# $Id: pingd,v 1.62 2002/08/12 03:35:58 weasel Exp $ # =pod @@ -489,11 +489,6 @@ sub make_dirs() { for my $dir ( Echolot::Config::get()->{'resultdir'}, Echolot::Config::get()->{'thesaurusdir'}, - Echolot::Config::get()->{'private_resultdir'}, - Echolot::Config::get()->{'gnupghome'}, - Echolot::Config::get()->{'mixhome'}, - Echolot::Config::get()->{'tmpdir'}, - Echolot::Config::get()->{'storage'}->{'File'}->{'basedir'} ) { if ( ! -d $dir ) { mkdir ($dir, 0755) or @@ -501,6 +496,11 @@ sub make_dirs() { }; }; my @dirs = ( + Echolot::Config::get()->{'private_resultdir'}, + Echolot::Config::get()->{'gnupghome'}, + Echolot::Config::get()->{'mixhome'}, + Echolot::Config::get()->{'tmpdir'}, + Echolot::Config::get()->{'storage'}->{'File'}->{'basedir'}, Echolot::Config::get()->{'mailerrordir'}, Echolot::Config::get()->{'mailerrordir'}.'/cur', Echolot::Config::get()->{'mailerrordir'}.'/tmp', |