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

Adding Unsubscribe command.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-10-13 18:03:39 +02:00
parent 176becbfce
commit 14a1a03ba6
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/MailCommand/Unsubscribe.pm Normal file
View file

@ -0,0 +1,27 @@
package WebGUI::MailCommand::Unsubscribe;
use strict;
use warnings;
use WebGUI::AssetAspect::Subscriber;
use base 'WebGUI::MailCommand';
#-----------------------------------------------------------------------------
sub process {
my $self = shift;
my $listName = shift;
my $fromAddress = shift;
my $session = $self->session;
my $asset = WebGUI::AssetAspect::Subscriber->getAssetByListName( $session, $listName );
die "Invalid list name [$listName]" unless $asset;
$asset->unsubscribeAnonymous( $fromAddress );
return;
}
1;