From cf0a96f982bd8abccd1c37320180cea4364fe1e3 Mon Sep 17 00:00:00 2001
From: Jonathan Amery <jdamery+zgit@ysolde.ucam.org>
Date: Thu, 14 Jul 2016 16:04:13 +0100
Subject: [PATCH] Date related bugfixes

---
 autorep.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/autorep.pl b/autorep.pl
index 3c2e373..b9f8dbc 100755
--- a/autorep.pl
+++ b/autorep.pl
@@ -3,6 +3,7 @@
 my $rcsid='$Id: testrep.channel,v 1.2 2000/08/22 23:52:51 sec Exp sec $';
 my $len=5; # Max Size in KB of included article.
 
+use POSIX qw(strftime);
 use Date::Manip;
 use strict;
 
@@ -62,10 +63,15 @@ sub timediff(){
 	my $f=1;
 	my $p=0;
 	my $s="";
-	for my $i (0..$#t){
+	if ($r == 0) {
+	    $s="less than one second";
+	}
+	else {
+	    for my $i (0..$#t){
 		$p=$r%$t[$i];$r=int($r/$t[$i]);
 		#print "p: $p, r: $r\n";
 		if($p){$s=(($f-->0 && $r>0)?"and ":"").$p." ".$n[$i].($p>1?"s":"").($f<-1?",":"").($s?" ".$s:"")}
+	    }
 	}
 	return $s;
 }
@@ -82,7 +88,7 @@ $paths=join(" ->_",reverse @paths).". ";
 $paths=~s/([^\n]{40,75})[ \n]/$1\n/g;
 $paths=~s/_/ /g;
 
-my $rdate=localtime;
+my $rdate=strftime "%a %b %e %H:%M:%S UTC %Y", gmtime;
 
 open(FOO,"|/usr/sbin/sendmail -t -f usenet-autoresponder\@ysolde.ucam.org");
 print FOO <<EOF;
-- 
2.30.2