[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 f7a625ea6102b06c1b5ce248203f513fb8a552ac..8cd0c3e71db5f6edce1c3ee95e52669bc52f23d8 100755 (executable)
--- 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