chiark
/
gitweb
/
~nmamery
/
bofhbot
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eda511d
)
Date related bugfixes
author
Jonathan Amery
<jdamery+zgit@ysolde.ucam.org>
Thu, 14 Jul 2016 15:04:13 +0000
(16:04 +0100)
committer
Jonathan Amery
<jdamery+zgit@ysolde.ucam.org>
Thu, 14 Jul 2016 15:04:13 +0000
(16:04 +0100)
autorep.pl
patch
|
blob
|
history
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.
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;
use Date::Manip;
use strict;
@@
-62,10
+63,15
@@
sub timediff(){
my $f=1;
my $p=0;
my $s="";
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:"")}
$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;
}
}
return $s;
}
@@
-82,7
+88,7
@@
$paths=join(" ->_",reverse @paths).". ";
$paths=~s/([^\n]{40,75})[ \n]/$1\n/g;
$paths=~s/_/ /g;
$paths=~s/([^\n]{40,75})[ \n]/$1\n/g;
$paths=~s/_/ /g;
-my $rdate=
local
time;
+my $rdate=
strftime "%a %b %e %H:%M:%S UTC %Y", gm
time;
open(FOO,"|/usr/sbin/sendmail -t -f usenet-autoresponder\@ysolde.ucam.org");
print FOO <<EOF;
open(FOO,"|/usr/sbin/sendmail -t -f usenet-autoresponder\@ysolde.ucam.org");
print FOO <<EOF;