From 6e9b3ad02c02ecadf768310e4acd4342dbe02371 Mon Sep 17 00:00:00 2001
From: ajt <>
Date: Fri, 6 Oct 2000 03:48:04 -0800
Subject: [PATCH] [project @ 2000-10-06 04:48:04 by ajt] Make pkgreport -T safe
 and not fork date, yeesh

---
 cgi/pkgreport.cgi | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 735e0e84..479cf4ae 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -1,10 +1,10 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -wT
 
 package debbugs;
 
 use strict;
 use CGI qw/:standard/;
-use POSIX;
+use POSIX qw(strftime tzset nice);
 
 require '/debian/home/ajt/newajbug/common.pl';
 #require '/usr/lib/debbugs/common.pl';
@@ -13,7 +13,7 @@ require '/debian/home/ajt/newajbug/common.pl';
 require '/etc/debbugs/config';
 require '/etc/debbugs/text';
 
-POSIX::nice(5);
+nice(5);
 
 my ($pkg, $maint, $maintenc, $submitter, $severity, $status);
 
@@ -38,8 +38,10 @@ my %indexentry;
 my %maintainer = &getmaintainers();
 my %strings = ();
 
-my $dtime=`date -u '+%H:%M:%S GMT %a %d %h'`;
-chomp($dtime);
+$ENV{"TZ"} = 'UTC';
+tzset();
+
+my $dtime = strftime "%a, %e %b %Y %T UTC", localtime;
 my $tail_html = $debbugs::gHTMLTail;
 $tail_html = $debbugs::gHTMLTail;
 $tail_html =~ s/SUBSTITUTE_DTIME/$dtime/;
-- 
2.39.5