27 lines
579 B
Perl
27 lines
579 B
Perl
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;
|
|
|