# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1264176668 -3600
# Node ID a6e9f5b0d25cf72a97765042964e96e514bb2927
# Parent  eded7ab6b257e8b37a63e725ed2331025f73e604# Parent  3e11dab11c4b233c12332bf61047e241b2a21025
[merged]

diff -r eded7ab6b257 -r a6e9f5b0d25c modules
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modules	Fri Jan 22 17:11:08 2010 +0100
@@ -0,0 +1,1 @@
+libtimedate-perl
diff -r eded7ab6b257 -r a6e9f5b0d25c postgrep
--- a/postgrep	Fri Jan 22 17:10:32 2010 +0100
+++ b/postgrep	Fri Jan 22 17:11:08 2010 +0100
@@ -5,7 +5,7 @@
 use warnings;
 use Date::Parse;
 use Memoize;
-use Smart::Comments;
+use if $ENV{DEBUG} => "Smart::Comments";
 
 die "Usage: $0 pattern [file]…\n" if !@ARGV;
 
@@ -21,12 +21,12 @@
     if (
         !/^(?<date>.{15})
 	\s(?<host>\S+)
-	\s(?<service>\S+):
+	\s(?<service>postfix\/\S+):
 	\s(?<pfid>[[:xdigit:]]+):
 	\s(?<rest>.*)/x
       )
     {
-        print "$_\n" if /$pattern/i;
+        print "$_\n" if / postfix\// && /$pattern/i;
         next;
     }