Date related bugfixes

diff --git a/autorep.pl b/autorep.pl
index 3c2e37306ecafad3c3bce739ff7448a309f930fa..b9f8dbcd8972093c96d0d6a68fd087f052d51153 100755 (executable)
--- 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;