Add date of file so we know if file was correctly build before
publishing it.
This commit is contained in:
parent
f55814e3b2
commit
2cf9a7511b
@ -957,12 +957,15 @@ if ($nboftargetok) {
|
|||||||
"$DESTI/standard/$FILENAMETGZ.tgz"=>'Dolibarr ERP-CRM',
|
"$DESTI/standard/$FILENAMETGZ.tgz"=>'Dolibarr ERP-CRM',
|
||||||
"$DESTI/standard/$FILENAMETGZ.zip"=>'Dolibarr ERP-CRM'
|
"$DESTI/standard/$FILENAMETGZ.zip"=>'Dolibarr ERP-CRM'
|
||||||
);
|
);
|
||||||
|
use POSIX qw/strftime/;
|
||||||
foreach my $file (sort keys %filestoscan)
|
foreach my $file (sort keys %filestoscan)
|
||||||
{
|
{
|
||||||
$found=0;
|
$found=0;
|
||||||
my $filesize = -s $file;
|
my $filesize = -s $file;
|
||||||
|
my $filedate = (stat $file)[9];
|
||||||
print $file." ".($filesize?"(found)":"(not found)");
|
print $file." ".($filesize?"(found)":"(not found)");
|
||||||
print ($filesize?" - ".$filesize:"");
|
print ($filesize?" - ".$filesize:"");
|
||||||
|
print ($filedate?" - ".strftime("%Y-%m-%d %H:%M:%S",localtime($filedate)):"");
|
||||||
print "\n";
|
print "\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user