doc/loncapafiles/removenolongerused.piml - diff

Return to removenolongerused.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.9, 2014/06/20 19:01:02	version 1.10, 2014/06/20 19:23:03
Line 32 my %files = (	Line 32 my %files = (
);	);

my %dirs = (	my %dirs = (
'londocroot' => 'adm/lonLCDfont',	'londocroot' => ['adm/lonLCDfont',
'htmlarea',	'htmlarea',
'res/adm/pages/bookmarkmenu',	'res/adm/pages/bookmarkmenu'],
);	);

my %multis = (	my %multis = (
Line 48 foreach my $key (sort(keys(%files))) {	Line 48 foreach my $key (sort(keys(%files))) {
if ($paths{$key} ne '') {	if ($paths{$key} ne '') {
if (ref($files{$key}) eq 'ARRAY') {	if (ref($files{$key}) eq 'ARRAY') {
foreach my $file (@{$files{$key}}) {	foreach my $file (@{$files{$key}}) {
if (-f $paths{$key}.'/'.$file) {	if (($file ne '') && (-f $paths{$key}.'/'.$file)) {
push(@filestodelete,$paths{$key}.'/'.$file);	push(@filestodelete,$paths{$key}.'/'.$file);
}	}
}	}
Line 60 foreach my $key (sort(keys(%dirs))) {	Line 60 foreach my $key (sort(keys(%dirs))) {
if ($paths{$key} ne '') {	if ($paths{$key} ne '') {
if (ref($dirs{$key}) eq 'ARRAY') {	if (ref($dirs{$key}) eq 'ARRAY') {
foreach my $dir (@{$dirs{$key}}) {	foreach my $dir (@{$dirs{$key}}) {
if (-d $paths{$key}.'/'.$dir) {	if (($dir ne '') && (-d $paths{$key}.'/'.$dir)) {
push(@dirstodelete,$paths{$key}.'/'.$dir);	push(@dirstodelete,$paths{$key}.'/'.$dir);
}	}
}	}