From a1bee78d8c1d9092a800b364c0f41d480242a303 Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Fri, 19 Jun 2015 00:10:08 +0200 Subject: [PATCH] Show size of package to upload to SF --- make/makepack-awstats.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/make/makepack-awstats.pl b/make/makepack-awstats.pl index 0099a0e7..e18ef960 100755 --- a/make/makepack-awstats.pl +++ b/make/makepack-awstats.pl @@ -421,12 +421,15 @@ if ($nboftargetok) { "$DESTI/$FILENAMETGZ.tar.gz"=>'AWStats', "$DESTI/$FILENAMETGZ.zip"=>'AWStats' ); + use POSIX qw/strftime/; foreach my $file (sort keys %filestoscansf) { $found=0; - my $filesize = -s $file; - print $file." ".($filesize?"(found)":"(not found)"); - print ($filesize?" - ".$filesize:""); + my $filesize = -s $file; + my $filedate = (stat $file)[9]; + print $file." ".($filesize?"(found)":"(not found)"); + print ($filesize?" - ".$filesize:""); + print ($filedate?" - ".strftime("%Y-%m-%d %H:%M:%S",localtime($filedate)):""); print "\n"; } -- 2.47.2