- Timestamp:
- 1999-12-13T16:54:28+13:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/util.pm
r812 r836 201 201 } elsif (-d $file) { 202 202 # make a new directory (if needed) 203 mkdir ($tempdest, 0775) unless -e $tempdest; 204 203 unless (-e $tempdest) 204 { 205 my $store_umask = umask(0002); 206 mkdir ($tempdest, 0777); 207 umask($store_umask); 208 } 209 205 210 # get the contents of this directory 206 211 if (!opendir (INDIR, $file)) { … … 224 229 my ($dir) = @_; 225 230 226 if (!mkdir ($dir, 0775)) { 231 my $store_umask = umask(0002); 232 my $mkdir_ok = mkdir ($dir, 0777); 233 umask($store_umask); 234 235 if (!$mkdir_ok) 236 { 227 237 print STDERR "util::mk_dir could not create directory $dir\n"; 228 238 return; … … 248 258 249 259 next if $dirname =~ /^(|[a-z]:)$/i; 250 if (!-e $dirsofar && !mkdir ($dirsofar, 0775)) { 251 print STDERR "util::mk_all_dir could not create directory $dirsofar\n"; 252 return; 253 } 260 if (!-e $dirsofar) 261 { 262 my $store_umask = umask(0002); 263 my $mkdir_ok = mkdir ($dirsofar, 0777); 264 umask($store_umask); 265 if (!$mkdir_ok) 266 { 267 print STDERR "util::mk_all_dir could not create directory $dirsofar\n"; 268 return; 269 } 270 } 254 271 } 255 272 } … … 474 491 $filename =~ s/[\\\/]+/\\/g; 475 492 } else { 476 $filename =~ s/[\\\/]+/\//g; 493 $filename =~ s/[\/]+/\//g; 494 # DB: want a filename abc\de.html to remain like this 477 495 } 478 496 $filename =~ s/[\\\/]$//;
Note:
See TracChangeset
for help on using the changeset viewer.