Parent Directory | Revision Log | Patch
revision 1.2 by dpavlin, Mon May 13 06:40:10 2002 UTC | revision 1.4 by dpavlin, Mon May 13 06:56:35 2002 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -wT | #!/usr/bin/perl -w |
2 | ||
3 | # this script can be run periodicly on log mail.log file to report | # this script can be run periodicly on log mail.log file to report |
4 | # change since last run. | # change since last run. |
# | Line 16 my $delta="/var/tmp/"; | Line 16 my $delta="/var/tmp/"; |
16 | ||
17 | my $debug=0; | my $debug=0; |
18 | ||
19 | $log = $ARGV[0] if ($ARGV[0] && -r $ARGV[0]); | |
20 | ||
21 | # counters | # counters |
22 | my ($mail_int, $mail_ext) = (0,0,0,0); | my ($mail_int, $mail_ext) = (0,0,0,0); |
23 | # size | # size |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |