[gnumeric-web] ftp-sync: fix decode time issues.

[Morten Welinder <mortenw src gnome org>]

commit d47fd060040707a4c966d046683f326e9807ee0a
Author: Morten Welinder <terra gnome org>
Date:   Sun Apr 29 19:46:46 2018 -0400

    ftp-sync: fix decode time issues.

 ftp-sync | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)
---
diff --git a/ftp-sync b/ftp-sync
index 588a4d1..f7a8bca 100755
--- a/ftp-sync
+++ b/ftp-sync
@@ -6,6 +6,7 @@ use Time::Local;
 
 my $manifestfile = $ARGV[0];
 my $secretfile = $ENV{'HOME'} . "/.www-gnumeric-org";
+my $time_offset = -7 * 3600;
 
 my @manifest;
 {
@@ -127,7 +128,6 @@ sub decode_time {
     my ($a,$b,$c) = @_;
 
     my ($sec,$min,$hour,$mday,$mon,$year);
-    my $dy = 1;
 
     my %months = ('jan' => 1,  'feb' => 2,  'mar' => 3,
                  'apr' => 4,  'may' => 5,  'jun' => 6,
@@ -139,19 +139,19 @@ sub decode_time {
 
     if ($c =~ /^(\d+):(\d+)$/) {
        $hour = $1;
-       $min = $1;
+       $min = $2;
        $sec = 0;
-       $year = (localtime())[5];
-       $dy = 2;
+       $year = (localtime())[5] + 1900;
     } else {
        $hour = $min = $sec = 0;
        $year = $c;
     }
 
     for (my $dy = 0; $dy < 2; $dy++) {
-       my $t = timelocal ($sec,$min,$hour,$mday,$mon,$year);
-       return ($t, 60) if ($t <= time);
-       $year--;
+        my $t = timelocal ($sec,$min,$hour,$mday,$mon,$year) + $time_offset;
+        # print STDERR "[$sec,$min,$hour,$mday,$mon,$year,$t]\n";
+        return ($t, 60) if ($t <= time);
+        $year--;
     }
 
     return (undef, undef);