doc/loncapafiles/removenolongerused.piml - diff

Return to removenolongerused.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.4, 2013/08/10 02:31:39	version 1.8, 2013/10/28 19:36:08
Line 17 my %paths = (	Line 17 my %paths = (
);	);

my %files = (	my %files = (
'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcuseradd'],	'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);
}	}
}	}