version 1.2, 2017/10/10 15:07:45
|
version 1.3, 2017/10/12 21:29:29
|
Line 396 if ($action eq 'undo') {
|
Line 396 if ($action eq 'undo') {
|
my $file = pop(@subdirs); |
my $file = pop(@subdirs); |
my $path = "$londaemons/logs/checked_authoring_spaces/$dom/$uname"; |
my $path = "$londaemons/logs/checked_authoring_spaces/$dom/$uname"; |
while (@subdirs) { |
while (@subdirs) { |
my $dir = pop(@subdirs); |
my $dir = shift(@subdirs); |
$path .= '/'.$dir; |
$path .= '/'.$dir; |
if (!-e $path) { |
if (!-e $path) { |
mkdir($path,0755); |
mkdir($path,0755); |