7 |
|
|
8 |
use strict; |
use strict; |
9 |
|
|
10 |
my $log="/var/adm/syslog.dated/current/mail.log"; |
my $log="/var/log/mail.log"; |
11 |
|
|
12 |
# edit this to your configuration! |
# edit this to your configuration! |
13 |
|
|
14 |
my $domain='@pliva.hr'; |
my $domain='@pliva.hr'; |
15 |
my $delta="/var/tmp/"; |
my $delta="/var/tmp/"; |
16 |
|
|
17 |
my $debug=1; |
my $debug=0; |
18 |
|
|
19 |
# counters |
# counters |
20 |
my ($mail_int, $mail_ext) = (0,0,0,0); |
my ($mail_int, $mail_ext) = (0,0,0,0); |
21 |
# size |
# size |
22 |
my ($size_int, $size_ext) = (0,0,0,0); |
my ($size_int, $size_ext) = (0,0,0,0); |
23 |
|
|
24 |
open(LOG,$log) || die "can't open log"; |
open(LOG,$log) || die "can't open log: $!"; |
25 |
|
|
26 |
my $tmp_log=$log; |
my $tmp_log=$log; |
27 |
$tmp_log=~s/\W/_/g; |
$tmp_log=~s/\W/_/g; |
28 |
$delta.=$tmp_log.".offset"; |
$delta.=$tmp_log.".offset"; |
29 |
|
|
30 |
if (-e $delta) { |
if (-e $delta) { |
31 |
open(D,$delta) || die "can't open delta file '$delta' for log '$log'"; |
open(D,$delta) || die "can't open delta file '$delta' for log '$log': $!"; |
32 |
my $offset=<D>; |
my $offset=<D>; |
33 |
chomp $offset; |
chomp $offset; |
34 |
close(D); |
close(D); |
58 |
|
|
59 |
print STDERR "processed $lines lines...\n" if ($debug); |
print STDERR "processed $lines lines...\n" if ($debug); |
60 |
|
|
61 |
open(D,"> $delta") || die "can't open delta file '$delta' for log '$log'"; |
open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!"; |
62 |
print D tell(LOG); |
print D tell(LOG); |
63 |
close(D); |
close(D); |
64 |
|
|