version 1.1.2.1, 2013/08/07 18:30:49
|
version 1.1.2.2, 2013/08/09 06:29:14
|
Line 5
|
Line 5
|
<target dist="default"></target> |
<target dist="default"></target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
|
|
use File::Path qw(remove_tree); |
use File::Path(); |
|
|
my %paths = ( |
my %paths = ( |
'londaemons' => '/home/httpd/perl', |
'londaemons' => '/home/httpd/perl', |
Line 55 foreach my $key (sort(keys(%dirs))) {
|
Line 55 foreach my $key (sort(keys(%dirs))) {
|
if (@dirstodelete > 0) { |
if (@dirstodelete > 0) { |
print "\nThe following directories were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the directory to be deleted.\n\n"; |
print "\nThe following directories were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the directory to be deleted.\n\n"; |
foreach my $dir (@dirstodelete) { |
foreach my $dir (@dirstodelete) { |
next if (($dir =~/*/) || ($dir eq '') || ($dir eq '/')); |
next if (($dir =~/\*/) || ($dir eq '') || ($dir eq '/')); |
print "$dir -- delete? Enter: Y or N:\n"; |
print "$dir -- delete? Enter: Y or N:\n"; |
my $choice=<>; |
my $choice=<>; |
chomp($choice); |
chomp($choice); |
if ($choice==Y) { |
$choice =~ s/\s+//g; |
remove_tree($dir); |
if ($choice eq 'Y') { |
|
File::Path::remove_tree($dir); |
} |
} |
} |
} |
} |
} |
Line 68 if (@dirstodelete > 0) {
|
Line 69 if (@dirstodelete > 0) {
|
if (@filestodelete > 0) { |
if (@filestodelete > 0) { |
print "\nThe following files were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the file to be deleted.\n\n"; |
print "\nThe following files were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the file to be deleted.\n\n"; |
foreach my $file (@filestodelete) { |
foreach my $file (@filestodelete) { |
next if (($file =~/*/) || ($file eq '') || ($file eq '/')); |
next if (($file =~/\*/) || ($file eq '') || ($file eq '/')); |
print "$file -- remove? Enter? Y or N:\n"; |
print "$file -- remove? Enter? Y or N:\n"; |
my $choice=<>; |
my $choice=<>; |
chomp($choice); |
chomp($choice); |
if ($choice==Y) { |
$choice =~ s/\s+//g; |
|
if ($choice eq 'Y') { |
unlink($file); |
unlink($file); |
} |
} |
} |
} |