# /usr/local/bin/perl
# Print a weekly summary of email activity. Written by Paul Vixie, DEC
$logdir = "/usr/spool/logs";
$secperday = 24 * 60 * 60;
$shortdelay = $secperday / 2;
$K = 1024;
format q_top =
Syslog Input: (total) (mail11) Output Statistics:
File Date Msgs Kbytes AvgSz Sndrs Rcips Sent AvgDelay Dferd Que'd Other