version 1.5, 2013/08/16 14:36:59
|
version 1.8, 2013/10/28 19:36:08
|
Line 19 my %paths = (
|
Line 19 my %paths = (
|
my %files = ( |
my %files = ( |
'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcuseradd','lonc'], |
'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcuseradd','lonc'], |
'apache' => ['londropadd.pm','lonconstruct.pm', |
'apache' => ['londropadd.pm','lonconstruct.pm', |
'lonremote.pm','admbookmarks.pm'], |
'lonremote.pm','admbookmarks.pm','lonassignments.pm'], |
'londocroot' => ['adm/rat/extpickcode.html', |
'londocroot' => ['adm/rat/extpickcode.html', |
'adm/rat/extpickframe.html', |
'adm/rat/extpickframe.html', |
'res/adm/pages/imgmaps.html', |
'res/adm/pages/imgmaps.html', |
'res/adm/pages/menu.html', |
'res/adm/pages/menu.html', |
'res/adm/pages/homeworkmenu.html'], |
'res/adm/pages/homeworkmenu.html', |
|
'adm/help/gif/vbkm.gif', |
|
'adm/help/eps/vbkm.eps'], |
); |
); |
|
|
my %dirs = ( |
my %dirs = ( |
Line 34 my %dirs = (
|
Line 36 my %dirs = (
|
); |
); |
|
|
my %multis = ( |
my %multis = ( |
rcgifs' => \@rcgifs, |
'rcgifs' => \@rcgifs, |
); |
); |
my @filestodelete = (); |
my @filestodelete = (); |
my @dirstodelete = (); |
my @dirstodelete = (); |
Line 115 if (@multistodelete > 0) {
|
Line 117 if (@multistodelete > 0) {
|
$choice =~ s/\s+//g; |
$choice =~ s/\s+//g; |
if ($choice eq 'Y') { |
if ($choice eq 'Y') { |
foreach my $item (@multistodelete) { |
foreach my $item (@multistodelete) { |
next if ((($item =~/\*/) || ($item eq '') || ($item eq '/')); |
next if (($item =~/\*/) || ($item eq '') || ($item eq '/')); |
unlink($item); |
unlink($item); |
} |
} |
} |
} |