Changeset 180


Ignore:
Timestamp:
Jan 20, 2018, 12:34:30 AM (3 years ago)
Author:
g7moreau
Message:
  • Fix date in archive
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/project-meta/project-meta

    r179 r180  
    167167   my $data_set    = $meta->{'public-dap'}{'data-set'};
    168168   my $acronym     = $meta->{'project'}{'acronym'};
    169    my $time = time;
    170169
    171170   push @{$data_set}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
     
    196195      }
    197196
     197   my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = time;
     198   $year += 1900;
     199   $mon++;
     200   my $date = sprintf '%04i%02i%02i-%02i%02i', $year, $mon, $mday, $hour, $min;
     201
    198202   # Save the Zip file
    199    unless ($zip->writeToFileNamed("$current_dir/$acronym-$time.zip") == AZ_OK) {
     203   unless ($zip->writeToFileNamed("$current_dir/$acronym--$date.zip") == AZ_OK) {
    200204      die 'Error: zip write error';
    201205      }
Note: See TracChangeset for help on using the changeset viewer.