From c829c10f12d3255358a2079fab3305351420566d Mon Sep 17 00:00:00 2001 From: Deon George Date: Thu, 6 May 2021 21:00:47 +1000 Subject: [PATCH] Fix showold to show all files in fileboxes --- tools/showold.pl | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) 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)