Exigrep patch to allow it to handle syslog files.
authorPhilip Hazel <ph10@hermes.cam.ac.uk>
Mon, 1 Aug 2005 13:28:30 +0000 (13:28 +0000)
committerPhilip Hazel <ph10@hermes.cam.ac.uk>
Mon, 1 Aug 2005 13:28:30 +0000 (13:28 +0000)
doc/doc-txt/ChangeLog
src/src/exigrep.src

index 2846c96..e610467 100644 (file)
@@ -1,4 +1,4 @@
-$Cambridge: exim/doc/doc-txt/ChangeLog,v 1.183 2005/08/01 13:20:28 ph10 Exp $
+$Cambridge: exim/doc/doc-txt/ChangeLog,v 1.184 2005/08/01 13:28:30 ph10 Exp $
 
 Change log file for Exim from version 4.21
 -------------------------------------------
@@ -11,6 +11,8 @@ TK/01 Added the "success_on_redirect" address verification option. See
 
 PH/01 Added support for SQLite, basic code supplied by David Woodhouse.
 
+PH/02 Patch to exigrep to allow it to work on syslog lines.
+
 
 Exim version 4.52
 -----------------
index e824bb4..c6ccbfd 100644 (file)
@@ -1,5 +1,5 @@
 #! PERL_COMMAND -w
-# $Cambridge: exim/src/src/exigrep.src,v 1.2 2004/12/21 11:28:38 ph10 Exp $
+# $Cambridge: exim/src/src/exigrep.src,v 1.3 2005/08/01 13:28:30 ph10 Exp $
 
 use strict;
 
@@ -58,6 +58,11 @@ return $seconds;
 my (%saved, %id_list, $pattern, $queue_time);
 
 sub do_line {
+
+# Convert syslog lines to mainlog format, as in eximstats.
+
+if (! /^\\d{4}/) { $_ =~ s/^.*? exim\b.*?: //; }
+
 return unless
   my($date,$entry) = /^(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d (?:[+-]\d{4} )?)(.*)/;