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

16
lib/WebGUI/Mailing/Email.pm
View file

@ -141,8 +141,7 @@ sub send {
my $subject = '[TEST] Subject selection still needs to be implemented.';
my $messageId = $id->toHex( $self->getId );
# TODO: MAKE DOMAIN SETTABLE!
my $domain = 'geefmegeld.nl';
my $domain = $session->setting->get( 'newsletterReturnDomain' );
# Setup email
my $mail = WebGUI::Mail::Send->create( $session, {
@ -168,5 +167,18 @@ sub send {
return;
}
sub registerBounced {
my $self = shift;
$self->update( {
status => 'error',
errorMessage => 'Message was bounced',
} );
#### TODO: Write to bounce log
return;
}
1;