From: joy <>
Date: Sun, 25 May 2003 20:32:02 +0000 (-0800)
Subject: [project @ 2003-05-25 13:32:02 by joy]
X-Git-Tag: release/2.6.0~895
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c1a3e8f5dde9537d9e2bc9121dae7da86193ab3b;p=debbugs.git

[project @ 2003-05-25 13:32:02 by joy]
use internal function to get date and time, rather than forking date(1)
---

diff --git a/scripts/process.in b/scripts/process.in
index f7a625ea..8cd0c3e7 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,9 +1,11 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.68 2003/05/15 22:48:00 cjwatson Exp $
+# $Id: process.in,v 1.69 2003/05/25 13:32:02 joy Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
 
+use POSIX qw(strftime);
+
 use Mail::Address;
 use MIME::Parser;
 
@@ -53,7 +55,7 @@ chomp @msg;
 
 print DEBUG "###\n",join("##\n",@msg),"\n###\n";
 
-chop($tdate= `date -u '+%a, %d %h %Y %T GMT'`);
+$tdate = strftime "%a, %d %h %Y %T UTC", gmtime;
 $fwd= <<END;
 Received: via spool by $baddress\@$gEmailDomain id=$nn
           (code $codeletter ref $tryref); $tdate