[project @ 2003-05-25 13:25:51 by joy]

more strftime gmtime

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 1159ec9757ce81941d2cea574661bfb62a3f38f1..fea751773b2851d2e0e8dc7a33a6188181ccf1f4 100755 (executable)
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.15 2003/05/25 13:19:13 joy Exp $
+# $Id: db2html.in,v 1.16 2003/05/25 13:25:51 joy Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
@@ -30,7 +30,7 @@ $indexunmatched = '';
                        'forwarded','forwarded to upstream software authors');
 
 #set timestamp for html files
-$dtime = strftime "%a, %e %b %Y %T UTC", localtime;
+$dtime = strftime "%a, %e %b %Y %T UTC", gmtime;
 $tail_html =~ s/SUBSTITUTE_DTIME/$dtime/;
 
 #check for commandline switches

diff --git a/scripts/html-control.in b/scripts/html-control.in
index 697fbb0ffe3c806a75b2d9e881bdccd1348ecfcb..c0bb93ef7e85c701e0ca70bdeee1e8aa2fc3c06d 100755 (executable)
--- a/scripts/html-control.in
+++ b/scripts/html-control.in
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
-# $Id: html-control.in,v 1.8 2002/11/17 22:45:16 cjwatson Exp $
+# $Id: html-control.in,v 1.9 2003/05/25 13:25:51 joy Exp $
 
-use POSIX;
+use POSIX qw(strftime);
 
 $config_path = '/etc/debbugs';
 $lib_path = '/usr/lib/debbugs';
@@ -32,7 +32,7 @@ if (open(US,'updateseqs') && -f 'stamp.html') {
     rename("stamp.html","stamp.html.run") or &quit("rename stamp.html: $!");
 } else {
     $lastsub=0;
-    chop($lastmain=`TZ=GMT date '+%Y%m%d%H%M%S'`);
+    $lastmain = strftime "%Y%m%d%H%M%S", gmtime;
     $args= '-full';
     unlink('stamp.html') || $!==&ENOENT or &quit("excise stale stamp.html: $!");
 }