diff options
author | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:13:22 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:16:28 +0100 |
commit | 274617a10bdd958d7e0da3048ce62fb87bfd36a6 (patch) | |
tree | 2d3ccfd8453900bd94328241db779afbed9423d9 /lib/Sietima/Role | |
parent | role: moderate mail from non-subscribers (diff) | |
download | Sietima-274617a10bdd958d7e0da3048ce62fb87bfd36a6.tar.gz Sietima-274617a10bdd958d7e0da3048ce62fb87bfd36a6.tar.bz2 Sietima-274617a10bdd958d7e0da3048ce62fb87bfd36a6.zip |
::Subscriber now supports aliases
and has a ->match method
Diffstat (limited to 'lib/Sietima/Role')
-rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm index 98c02a6..644f2ef 100644 --- a/lib/Sietima/Role/SubscriberOnly.pm +++ b/lib/Sietima/Role/SubscriberOnly.pm @@ -11,11 +11,9 @@ our $let_it_pass=0; around munge_mail => sub { my ($orig,$self,$mail) = @_; - my $from = (Email::Address->parse( - $mail->header_str('from'), - ))[0]->address; + my ($from) = Email::Address->parse( $mail->header_str('from') ); if ( $let_it_pass or - any { $_->address eq $from } @{$self->subscribers} ) { + any { $_->match($from) } @{$self->subscribers} ) { $self->$orig($mail); } else { |