[SOLVED] Running a script / program on successful delivery

[aratnaweera]

Hi there,

I want to run a script *after* each successful message delivery. This is to implement a custom delivery notification system and other things that can't be achieved by standard means.

All I need is to run a program which takes the email address as an argument.

I can code, so if this needs developing some hook/plugin, that also is ok.

Thanks in advance.

Anuradha

[aratnaweera]

I managed to get this done by hacking zmlogger. Couldn't run my own script by editing logswatchrc, which would have been neater. Here is what I added to zmlogger.

--- zmlogger.orig       2009-11-08 23:01:36.000000000 +0530
+++ zmlogger    2009-11-08 23:17:05.000000000 +0530
@@ -468,6 +468,13 @@
             next if (!scalar @match);
             ($csv_file, $csv_confirm, $headers, $data) = @match;
             die "$csv_file != $csv_confirm" if ($csv_file ne $csv_confirm);
+        } elsif ($app eq 'postfix/lmtp') {
+           if ($msg =~ /.* to=<([^>]*)>, .* Delivery OK\)$/) {
+               my $email = $1; 
+               $email =~ s/[^a-zA-Z0-9@\._-]//g;
+               system('/usr/local/sbin/notify.sh', $email);
+           }
+
         } else {
             next;
         }

Is there a better way of doing this?

[aratnaweera]

Originally Posted by aratnaweera

I managed to get this done by hacking zmlogger.

Unfortunately, the above didn't work out, as zmlogger is keeping an eye on /var/log/zimbra-stats.log and not zimbra.log.

The following script worked, although not the neatest way of doing it. This requires File::Tail (libfile-tail-perl on Ubuntu).

#!/usr/bin/perl

use strict;
use File::Tail;

my $log = File::Tail->new(name => '/var/log/zimbra.log', maxinterval => 2, interval => 1);
my $logregex = qr/^.{15} ((\d+\.\d+\.\d+\.\d+)|(\S+)) postfix\/lmtp\[\d+\]: .* to=<([^>]*)>, .* Delivery OK\)$/o;

while (defined(my $line = $log->read)) {
        chomp $line;
        if ($line =~ m/$logregex/) {
                my $email = $4;
                $email =~ s/[^a-zA-Z0-9@\._-]//g;
                system("/usr/local/bin/notify.sh '$email'");
        }
}

[aratnaweera]

Seems that this is the only way to get this done. Marking "solved".