>>>>>> "RD" == "William R Dickson <-- Technical Support" <wdickson@halcyon.com>> writes:
>
>RD> Has anybody written a perl script that'll keep track of list traffic,
>RD> either on a per-message x #subscribers or a message-size x #subscribers
>RD> basis?
>
I stuck this into resend just before the line with "sendmail" in it:
ListUseLog = "$homedir/ListUseLog";
@timepart = localtime;
$timepart[4]++;
$timepart[5] += 1900;
$bytesout = (-s $TMPDIR/resend.$$.out);
open (USELOG, ">> $ListUseLog");
print USELOG "$opt_l : $ctime'MoY[$timepart[4]] $timepart[3], $timepart[5] ($bytesout)\n";
close (USELOG);
PS - Dave Wolfe, could you please send me that how-to-digest file that you often
send people? Thanks.
_________________________________________________________________________
Kevin Kelleher <kevink@mit.edu> http://world.std.com/~fury/
"In the absence of Professor Einstein,
I am taking the liberty of replying in his behalf." - Robert Benchley
|
|
