diff --git a/tools/showold.pl b/tools/showold.pl index aeda880..9567b61 100755 --- a/tools/showold.pl +++ b/tools/showold.pl @@ -295,14 +295,17 @@ sub allFilesInFileBoxes my $node = unbox($dir); next if($node eq ""); chdir($dir); - my @files = <*.[IiCcDdOoHh][Uu][Tt]>; - push @files, <*.[Ss][Uu][0-9a-zA-Z]>; - push @files, <*.[Mm][Oo][0-9a-zA-Z]>; - push @files, <*.[Tt][Uu][0-9a-zA-Z]>; - push @files, <*.[Ww][Ee][0-9a-zA-Z]>; - push @files, <*.[Tt][Hh][0-9a-zA-Z]>; - push @files, <*.[Ff][Rr][0-9a-zA-Z]>; - push @files, <*.[Ss][Aa][0-9a-zA-Z]>; + + #my @files = <*.[IiCcDdOoHh][Uu][Tt]>; + #push @files, <*.[Ss][Uu][0-9a-zA-Z]>; + #push @files, <*.[Mm][Oo][0-9a-zA-Z]>; + #push @files, <*.[Tt][Uu][0-9a-zA-Z]>; + #push @files, <*.[Ww][Ee][0-9a-zA-Z]>; + #push @files, <*.[Tt][Hh][0-9a-zA-Z]>; + #push @files, <*.[Ff][Rr][0-9a-zA-Z]>; + #push @files, <*.[Ss][Aa][0-9a-zA-Z]>; + + my @files = <*>; return if(@files == 0); foreach my $file (@files)