4 |
# change since last run. |
# change since last run. |
5 |
# |
# |
6 |
# Dobrica Pavlinusic <dpavlin@rot13.org> |
# Dobrica Pavlinusic <dpavlin@rot13.org> |
7 |
|
# http://www.rot13.org/~dpavlin/sysadm.html |
8 |
# |
# |
9 |
# Usage: parse_maillog.pl /path/to/mail.log [count_regex,count_regex,...] |
# Usage: parse_maillog.pl /path/to/mail.log [count_regex,count_regex,...] |
10 |
# |
# |
28 |
my $domain='@pliva.hr'; |
my $domain='@pliva.hr'; |
29 |
my $delta="/var/tmp/"; |
my $delta="/var/tmp/"; |
30 |
|
|
31 |
my $debug=1; |
my $debug=0; |
32 |
my $skip_delta=0; |
my $skip_delta=0; |
33 |
|
|
34 |
$log = shift @ARGV if ($ARGV[0] && -r $ARGV[0]); |
$log = shift @ARGV if ($ARGV[0] && -r $ARGV[0]); |