From 2f1483f9330e6985a2758f4c5872ac1dd51fb505 Mon Sep 17 00:00:00 2001
From: joy <>
Date: Sun, 25 May 2003 12:25:51 -0800
Subject: [PATCH] [project @ 2003-05-25 13:25:51 by joy] more strftime gmtime

---
 scripts/db2html.in      | 4 ++--
 scripts/html-control.in | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 1159ec9..fea7517 100755
--- 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 697fbb0..c0bb93e 100755
--- 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: $!");
 }
-- 
2.39.2