version 1.1.2.7, 2014/06/20 19:25:41
|
version 1.1.2.10, 2016/08/09 19:17:55
|
Line 27 my %files = (
|
Line 27 my %files = (
|
|
|
my %dirs = ( |
my %dirs = ( |
'londocroot' => ['htmlarea', |
'londocroot' => ['htmlarea', |
'res/adm/pages/bookmarkmenu'], |
'res/adm/pages/bookmarkmenu', |
|
'res/adm/pages/reactionresponse', |
|
'adm/jsMath'], |
); |
); |
|
|
my @filestodelete = (); |
my @filestodelete = (); |
Line 65 if (@dirstodelete > 0) {
|
Line 67 if (@dirstodelete > 0) {
|
chomp($choice); |
chomp($choice); |
$choice =~ s/\s+//g; |
$choice =~ s/\s+//g; |
if ($choice eq 'Y') { |
if ($choice eq 'Y') { |
File::Path::remove_tree($dir); |
File::Path::rmtree($dir); |
} |
} |
} |
} |
} |
} |