--- parse_maillog.pl	2002/05/13 06:35:28	1.1
+++ parse_maillog.pl	2002/05/13 06:40:10	1.2
@@ -7,28 +7,28 @@
 
 use strict;
 
-my $log="/var/adm/syslog.dated/current/mail.log";
+my $log="/var/log/mail.log";
 
 # edit this to your configuration!
 
 my $domain='@pliva.hr';
 my $delta="/var/tmp/";
 
-my $debug=1;
+my $debug=0;
 
 # counters
 my ($mail_int, $mail_ext) = (0,0,0,0);
 # size
 my ($size_int, $size_ext) = (0,0,0,0);
 
-open(LOG,$log) || die "can't open log";
+open(LOG,$log) || die "can't open log: $!";
 
 my $tmp_log=$log;
 $tmp_log=~s/\W/_/g;
 $delta.=$tmp_log.".offset";
 
 if (-e $delta) {
-	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': $!";
 	my $offset=<D>;
 	chomp $offset;
 	close(D);
@@ -58,7 +58,7 @@
 
 print STDERR "processed $lines lines...\n" if ($debug);
 
-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': $!";
 print D tell(LOG);
 close(D);