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;
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;
}
$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;