config times are required in GMT!

diff --git a/update-iserv1-iserv2.pl b/update-iserv1-iserv2.pl
index fcb640e..76b05dc 100755 (executable)
--- a/update-iserv1-iserv2.pl
+++ b/update-iserv1-iserv2.pl
@@ -48,7 +48,7 @@ while(<IN>) {
         my $hr = $2;
         $hr = "0$hr" if length $hr < 2;
         push @tsbeginold, "$hr:$3:00";
         my $hr = $2;
         $hr = "0$hr" if length $hr < 2;
         push @tsbeginold, "$hr:$3:00";

-        push @tsbegin, Time::Local::timelocal 0, $3, $hr, 1, 0, 1970;
+        push @tsbegin, Time::Local::timegm 0, $3, $hr, 1, 0, 1970;

         print "  found beginning: $hr:$3\n";
       }
     }
         print "  found beginning: $hr:$3\n";
       }
     }


@@ -64,7 +64,7 @@ while(<IN>) {
         my $hr = $2;
         $hr = "0$hr" if length $hr < 2;
         push @tsendold, "$hr:$3:00";
         my $hr = $2;
         $hr = "0$hr" if length $hr < 2;
         push @tsendold, "$hr:$3:00";

-        push @tsend, Time::Local::timelocal 0, $3, $hr, 1, 0, 1970;
+        push @tsend, Time::Local::timegm 0, $3, $hr, 1, 0, 1970;

         print "  found ending: $hr:$3\n";
       }
     }
         print "  found ending: $hr:$3\n";
       }
     }