diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly/Moderate.pm')
| -rw-r--r-- | lib/Sietima/Role/SubscriberOnly/Moderate.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm index 0c56040..c0e4a01 100644 --- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm +++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm @@ -13,7 +13,7 @@ Sietima::Role::SubscriberOnly::Moderate - moderate messages from non-subscribers my $sietima = Sietima->with_traits('SubscribersOnly::Moderate')->new({ %args, - admin => 'listmaster@example.com', + owner => 'listmaster@example.com', mail_store => { class => 'Sietima::MailStore::FS', root => '/tmp', @@ -24,26 +24,26 @@ Sietima::Role::SubscriberOnly::Moderate - moderate messages from non-subscribers A L<< C<Sietima> >> list with this role applied will accept incoming emails coming from non-subscribers, and store it for moderation. Each -such email will be forwarded (as an attachment) to the list's admin. +such email will be forwarded (as an attachment) to the list's owner. -The admin will the be able to delete the message, or allow it. +The owner will the be able to delete the message, or allow it. This is a "sub-role" of L<< C<SubscribersOnly>|Sietima::Role::SubscriberOnly >>, L<< C<WithMailStore>|Sietima::Role::WithMailStore >>, and L<< -C<WithAdmin>|Sietima::Role::WithAdmin >>. +C<WithOwner>|Sietima::Role::WithOwner >>. =cut with 'Sietima::Role::SubscriberOnly', 'Sietima::Role::WithMailStore', - 'Sietima::Role::WithAdmin'; + 'Sietima::Role::WithOwner'; sub munge_mail_from_non_subscriber ($self,$mail) { my $id = $self->mail_store->store($mail,'moderation'); my $notice = Email::Stuffer ->from($self->return_path->address) - ->to($self->admin->address) + ->to($self->owner->address) ->subject("Message held for moderation - ".$mail->header_str('subject')) ->text_body("Use id $id to refer to it") ->attach( @@ -53,7 +53,7 @@ sub munge_mail_from_non_subscriber ($self,$mail) { ); $self->transport->send($notice->email,{ from => $self->return_path, - to => [ $self->admin ], + to => [ $self->owner ], }); return; } |