Displaying 1 result from an estimated 1 matches for "dirtry".
2003 Mar 12
0
can't delete older file/directory links on another local partition after `snapshot' type backup script
...-d $dirc)) {mkdir ($dirc, 0755) or do {print LOG "can't make $dirc:
$! \n"; die;};}
}
# now loop through possible directory suffixes finding a directory that
hasn't been created yet
foreach $diradd ('','a'..'z','A'..'Z')
{
$dirtry=$dirday.$diradd; # add a suffix to the default day
string
if (!(-d $dirtry)) # test if that directory exists
{
mkdir ($dirtry, 0755) or do {print LOG "can't make $dirtry: $!\n";
die;};
$dir=$dirtry; # must ha...