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;