File Coverage

blib/lib/Siesta/Plugin/UnSubscribe.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	28	29	96.5

# $Id: UnSubscribe.pm 1243 2003-07-21 16:50:06Z richardc $
package Siesta::Plugin::UnSubscribe;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';

sub description {
    'A system plugin used for unsubscribing a member to the list';
}

sub process {
    my $self = shift;
    my $mail = shift;
    my $list = $self->list;

    my $email = $mail->from;
    if ( $list->remove_member($email) ) {
        $mail->reply(
            from => $list->address( 'admin' ),
            to   => $list->owner->email,
            body => "$email LEFT " . $list->name
           );

        $mail->reply(
            from => $list->address( 'unsubscribe' ),
            body => Siesta->bake('unsubscribe_success',
                                 list    => $list,
                                 message => $mail ) );
    }
    else {
        $mail->reply(
            to   => $list->owner->email,
            from => $list->address( 'admin' ),
            body => "$email FAIL LEFT " . $list->name
           );

        $mail->reply(
            from => $list->address( 'admin' ),
            body => Siesta->bake('unsubscribe_failure',
                                 list    => $list,
                                 message => $mail ) );
    }
    return 1;
}

1;