Changeset 180

Timestamp:

Jan 20, 2018, 12:34:30 AM (6 years ago)

Author:

g7moreau

Message:

• Fix date in archive

File:

• trunk/project-meta/project-meta (modified) (2 diffs)

trunk/project-meta/project-meta

@@ -167 +167 @@
    my $data_set    = $meta->{'public-dap'}{'data-set'};
    my $acronym     = $meta->{'project'}{'acronym'};
-   my $time = time;
 
    push @{$data_set}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
@@ -196 +195 @@
       }
 
+   my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = time;
+   $year += 1900;
+   $mon++;
+   my $date = sprintf '%04i%02i%02i-%02i%02i', $year, $mon, $mday, $hour, $min;
+
    # Save the Zip file
-   unless ($zip->writeToFileNamed("$current_dir/$acronym-$time.zip") == AZ_OK) {
+   unless ($zip->writeToFileNamed("$current_dir/$acronym--$date.zip") == AZ_OK) {
       die 'Error: zip write error';
       }