--- parse_maillog.pl	2002/05/13 06:56:35	1.4
+++ parse_maillog.pl	2002/07/19 13:28:07	1.5
@@ -4,6 +4,19 @@
 # change since last run.
 #
 # Dobrica Pavlinusic <dpavlin@rot13.org>
+#
+# Usage: parse_maillog.pl /path/to/mail.log [count_regex,count_regex,...]
+#
+# Results for optional count regexps will be dumped to stdout after data
+# for number of internal mails, size of internal mails, number of
+# external mails and size of external mails
+#
+# So, if you want also to count number of pop and imap accesses from your
+# mail.log you can use:
+#
+#	parse_maillog.pl /var/log/mail.log popd,imapd
+#
+# and modify your target file accordingly
 
 use strict;
 
@@ -14,16 +27,21 @@
 my $domain='@pliva.hr';
 my $delta="/var/tmp/";
 
-my $debug=0;
+my $debug=1;
+my $skip_delta=0;
+
+$log = shift @ARGV if ($ARGV[0] && -r $ARGV[0]);
 
-$log = $ARGV[0] if ($ARGV[0] && -r $ARGV[0]);
+# take patterns to count (separated by ,)
+my @count_patt = split(/,/,shift @ARGV) if (@ARGV);
+my %count;
 
 # 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 '$log': $!";
 
 my $tmp_log=$log;
 $tmp_log=~s/\W/_/g;
@@ -35,7 +53,7 @@
 	chomp $offset;
 	close(D);
 	my $log_size = -s $log;
-	print "log size: $log_size\n" if ($debug);
+	print STDERR "log size: $log_size\n" if ($debug);
 	if ($offset <= $log_size) {
 		seek(LOG,$offset,0);
 		print STDERR "skipping to position: $offset\n" if ($debug);
@@ -55,19 +73,28 @@
 		$mail_ext++;
 		$size_ext+=$1;
 	}
+	foreach my $patt (@count_patt) {
+		if (m/$patt/i) {
+			$count{$patt}++;
+		}
+	}
 	$lines++;
 }
 
 print STDERR "processed $lines lines...\n" if ($debug);
 
-open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
-print D tell(LOG);
-close(D);
+if (! $skip_delta) {
+	open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
+	print D tell(LOG);
+	close(D);
+} else {
+	print STDERR "new delta not written to file!\n";
+}
 
 print STDERR "last position in log: ".tell(LOG)."\n" if ($debug);
 
-print "$mail_int
-$size_int
-$mail_ext
-$size_ext
-";
+print "$mail_int\n$size_int\n$mail_ext\n$size_ext\n";
+
+foreach my $patt (@count_patt) {
+	print $count{$patt} || 0,"\n";
+}