version 1.2, 2013/08/09 06:24:21
|
version 1.3, 2013/08/10 01:27:36
|
Line 17 my %paths = (
|
Line 17 my %paths = (
|
); |
); |
|
|
my %files = ( |
my %files = ( |
'londaemons' => ['lonManage','lchtmldir','lonhttpd'], |
'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcadduser'], |
'apache' => ['londropadd.pm','lonconstruct.pm', |
'apache' => ['londropadd.pm','lonconstruct.pm', |
'lonremote.pm','admbookmarks.pm'], |
'lonremote.pm','admbookmarks.pm'], |
'londocroot' => ['adm/rat/extpickcode.html', |
'londocroot' => ['adm/rat/extpickcode.html', |
Line 84 if (@dirstodelete > 0) {
|
Line 84 if (@dirstodelete > 0) {
|
print "$dir -- delete? Enter: Y or N:\n"; |
print "$dir -- delete? Enter: Y or N:\n"; |
my $choice=<>; |
my $choice=<>; |
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::remove_tree($dir); |
} |
} |