sub Dirpp {
use Errno qw/ EACCES /; # permission denied
my $newdir = "site00";
my $made = 0;
while ( not $made = mkdir $name, 0755 ) {
die $! if $! == EACCES;
$newdir++;
}
return $name if $made; # if we made it, return new name
return;
}
####
sub DirPP {
use Errno qw/ EACCES /; # permission denied
my $word = "site";
my $counter = 1;
my $name ;
my $made = 0;
while(1){
$name = sprintf '%s%3d', $word, $counter;
last if not $made = mkdir $name, 0755 ;
die $! if $! == EACCES;
}
return $name if $made;
return;
}
##
##
sub DirPo {
use Errno qw/ EACCES /; # permission denied
my $word = "site";
my $counter = 1;
my $made = 0;
my $name = sprintf '%s%3d', $word, $counter; ## ONE, PEE
while ( not $made = mkdir $name, 0755 ) {
die $! if $! == EACCES;
$name = sprintf '%s%3d', $word, $counter; ## TWO, EEW
}
return $name if $made;
return;
}