diff options
| author | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-02-14 16:44:22 +0000 |
|---|---|---|
| committer | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-02-14 16:44:22 +0000 |
| commit | c0997ccb904d2a65990e4e74bf1824864b9186cc (patch) | |
| tree | 6aa83e2f8a4f5bf3add04b9f0ea51d4aef5c10bb /src | |
| parent | c361138493e8f0f5d6f7d66d362737d92dba1269 (diff) | |
Exigrep update to allow for pids in log lines had somehow got lost.
Diffstat (limited to 'src')
| -rw-r--r-- | src/src/exigrep.src | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/src/exigrep.src b/src/src/exigrep.src index 7b6360f01..b0fdbfe1a 100644 --- a/src/src/exigrep.src +++ b/src/src/exigrep.src @@ -1,5 +1,5 @@ #! PERL_COMMAND -w -# $Cambridge: exim/src/src/exigrep.src,v 1.5 2007/02/07 12:23:35 ph10 Exp $ +# $Cambridge: exim/src/src/exigrep.src,v 1.6 2007/02/14 16:44:22 ph10 Exp $ use strict; @@ -68,7 +68,7 @@ sub do_line { if (!/^\d{4}-/o) { $_ =~ s/^.*? exim\b.*?: //o; } return unless - my($date,$id) = /^(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d (?:[+-]\d{4} )?)(\w{6}\-\w{6}\-\w{2})?/o; + my($date,$id) = /^(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d (?:[+-]\d{4} )?)(?:\[\d+\] )?(\w{6}\-\w{6}\-\w{2})?/o; # Handle the case when the log line belongs to a specific message. We save # lines for specific messages until the message is complete. Then either print |