doc/loncapafiles/removenolongerused.piml - diff

Return to removenolongerused.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.6, 2013/08/31 00:25:58	version 1.8, 2013/10/28 19:36:08
Line 24 my %files = (	Line 24 my %files = (
'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);
}	}
}	}