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

Adding basic list header support.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-27 10:33:14 +02:00
parent 218ebbbad6
commit 573813f5ee
2 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/AssetAspect/Subscriber.pm
View file

@ -105,6 +105,25 @@ sub getEditTabs {
return ( $self->next::method, [ 'subscription', 'Subscription', 9 ] );
}
#----------------------------------------------------------------------------
sub getListHeaders {
my $self = shift;
my $email = shift || return {};
my $site = $self->session->url->getSiteURL;
my $headers = {
'List-Unsubscribe' =>
'<' . $site . $self->getUrl( "func=processSubscription&action=unsubscribe&email=$email" ) . '>',
'List-Subscribe' =>
'<' . $site . $self->getUrl( "func=processSubscription&action=subscribe&email=$email" ) . '>',
'List-Archives' =>
'<' . $site . $self->getUrl . '>',
};
return $headers;
}
#----------------------------------------------------------------------------
sub canSubscribe {
my $self = shift;

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

@ -191,6 +191,14 @@ sub send {
} );
$mail->addHtml( $body );
if ( $asset->can( 'getListHeaders' ) ) {
my $listHeaders = $asset->getListHeaders( $self->user->get('email') );
while ( my ($header, $value) = each %{ $listHeaders } ) {
$mail->addHeaderField( $header, $value );
}
}
# And send it.
my $success = $mail->send;