UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding proof of concept bounce processing postfix pipe script.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-12 18:55:40 +02:00
parent ef172e2228
commit b6d18e88a2
3 changed files with 73 additions and 109 deletions
Download patch file Download diff file Expand all files Collapse all files

59
sbin/newsletter-transport.pl Executable file
View file

@ -0,0 +1,59 @@
#!/data/wre/prereqs/bin/perl
use strict;
BEGIN {
unshift @INC, qw(
/data/custom/webgui_newsletter/lib
/data/WebGUI/lib
);
}
use WebGUI::Mailing::Email;
use List::MoreUtils qw{ any };
my $NO_SUCH_USER = 67;
my $webguiRoot = '/data/WebGUI';
my $configFile = 'martintwee.oqapi.nl.conf';
my ( $domain, $user ) = @ARGV;
my ( $listname, $command ) = $user =~ m{^(.+)-([^-]+)$}i;
#exit $NO_SUCH_USER unless any { $command eq $_ } qw{ subscribe unsubscribe bounces confirm };
open my $log, '>>/data/test.log' || die "Cannot open log";
unless ( any { $command eq $_ } qw{ subscribe unsubscribe bounce confirm } ) {
print $log "Ignoring $domain $user\n";
close $log;
exit $NO_SUCH_USER;
}
else {
my $session = WebGUI::Session->open($webguiRoot,$configFile);
my $email = WebGUI::Mailing::Email->new( $session, $session->id->fromHex( $listname ) );
if ($email) {
print $log "Found email instance\n";
$email->registerBounced;
}
else {
print $log "Can't find email instance\n";
}
$session->close;
}
local $/;
my $content = <STDIN>;
print $log "listname: $listname, command: $command\n";
#print $log "content: $content\n";
print $log "\n\n\n\n ================================================================================\n\n\n\n";
close $log;
exit $NO_SUCH_USER unless any { $command eq $_ } qw{ subscribe unsubscribe bounces confirm };