aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Sietima.pm35
-rw-r--r--lib/Sietima/CmdLine.pm10
-rw-r--r--lib/Sietima/HeaderURI.pm32
-rw-r--r--lib/Sietima/MailStore.pm6
-rw-r--r--lib/Sietima/MailStore/FS.pm62
-rw-r--r--lib/Sietima/Message.pm6
-rw-r--r--lib/Sietima/Policy.pm14
-rw-r--r--lib/Sietima/Role/AvoidDups.pm6
-rw-r--r--lib/Sietima/Role/Debounce.pm6
-rw-r--r--lib/Sietima/Role/Headers.pm8
-rw-r--r--lib/Sietima/Role/ManualSubscription.pm6
-rw-r--r--lib/Sietima/Role/NoMail.pm6
-rw-r--r--lib/Sietima/Role/NoSpoof.pm67
-rw-r--r--lib/Sietima/Role/ReplyTo.pm7
-rw-r--r--lib/Sietima/Role/SubjectTag.pm6
-rw-r--r--lib/Sietima/Role/SubscriberOnly.pm14
-rw-r--r--lib/Sietima/Role/SubscriberOnly/Drop.pm6
-rw-r--r--lib/Sietima/Role/SubscriberOnly/Moderate.pm46
-rw-r--r--lib/Sietima/Role/WithMailStore.pm6
-rw-r--r--lib/Sietima/Role/WithOwner.pm6
-rw-r--r--lib/Sietima/Role/WithPostAddress.pm6
-rw-r--r--lib/Sietima/Runner.pm6
-rw-r--r--lib/Sietima/Subscriber.pm19
-rw-r--r--lib/Sietima/Types.pm6
24 files changed, 252 insertions, 140 deletions
diff --git a/lib/Sietima.pm b/lib/Sietima.pm
index b7a4144..586c9a4 100644
--- a/lib/Sietima.pm
+++ b/lib/Sietima.pm
@@ -1,8 +1,8 @@
package Sietima;
use Moo;
use Sietima::Policy;
-use Types::Standard qw(ArrayRef Object FileHandle Maybe);
-use Type::Params qw(compile);
+use Types::Standard qw(ArrayRef Object);
+use Type::Params -sigs;
use Sietima::Types qw(Address AddressFromStr
EmailMIME Message
Subscriber SubscriberFromAddress SubscriberFromStr SubscriberFromHashRef
@@ -10,12 +10,11 @@ use Sietima::Types qw(Address AddressFromStr
use Sietima::Message;
use Sietima::Subscriber;
use Email::Sender::Simple qw();
-use Email::Sender;
use Email::Address;
use namespace::clean;
with 'MooX::Traits';
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: minimal mailing list manager
@@ -58,9 +57,11 @@ sub handle_mail_from_stdin($self,@) {
}
+signature_for handle_mail => (
+ method => Object,
+ positional => [ EmailMIME ],
+);
sub handle_mail($self,$incoming_mail) {
- state $check = compile(Object,EmailMIME); $check->(@_);
-
my (@outgoing_messages) = $self->munge_mail($incoming_mail);
for my $outgoing_message (@outgoing_messages) {
$self->send_message($outgoing_message);
@@ -69,16 +70,20 @@ sub handle_mail($self,$incoming_mail) {
}
+signature_for subscribers_to_send_to => (
+ method => Object,
+ positional => [ EmailMIME ],
+);
sub subscribers_to_send_to($self,$incoming_mail) {
- state $check = compile(Object,EmailMIME); $check->(@_);
-
return $self->subscribers;
}
+signature_for munge_mail => (
+ method => Object,
+ positional => [ EmailMIME ],
+);
sub munge_mail($self,$incoming_mail) {
- state $check = compile(Object,EmailMIME); $check->(@_);
-
return Sietima::Message->new({
mail => $incoming_mail,
from => $self->return_path,
@@ -87,9 +92,11 @@ sub munge_mail($self,$incoming_mail) {
}
+signature_for send_message => (
+ method => Object,
+ positional => [ Message ],
+);
sub send_message($self,$outgoing_message) {
- state $check = compile(Object,Message); $check->(@_);
-
my $envelope = $outgoing_message->envelope;
if ($envelope->{to} && $envelope->{to}->@*) {
$self->transport->send(
@@ -138,7 +145,7 @@ Sietima - minimal mailing list manager
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -343,7 +350,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/CmdLine.pm b/lib/Sietima/CmdLine.pm
index b4c4ef9..86b8004 100644
--- a/lib/Sietima/CmdLine.pm
+++ b/lib/Sietima/CmdLine.pm
@@ -8,7 +8,7 @@ use App::Spec;
use Sietima::Runner;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: run Sietima as a command-line application
@@ -48,6 +48,10 @@ sub _build_app_spec($self) {
return App::Spec->read({
$spec_data->%*,
$self->extra_spec->%*,
+
+ # App::Spec 0.005 really wants a class name, even when we pass
+ # a pre-build cmd object to the Runner
+ class => ref($self->sietima),
});
}
@@ -79,7 +83,7 @@ Sietima::CmdLine - run Sietima as a command-line application
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -165,7 +169,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/HeaderURI.pm b/lib/Sietima/HeaderURI.pm
index d2acf60..0f6bdd8 100644
--- a/lib/Sietima/HeaderURI.pm
+++ b/lib/Sietima/HeaderURI.pm
@@ -3,12 +3,12 @@ use Moo;
use Sietima::Policy;
use Sietima::Types qw(Address AddressFromStr is_Address);
use Types::Standard qw(Str is_Str ClassName HashRef Optional);
-use Type::Params qw(compile);
+use Type::Params -sigs;
use Types::URI qw(Uri is_Uri);
use Email::Address;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: annotated URI for list headers
@@ -26,10 +26,7 @@ has comment => (
);
-sub _args_from_address {
- my ($address, $query) = @_;
- $query ||= {};
-
+sub _args_from_address($address, $query={}) {
my $uri = URI->new($address->address,'mailto');
$uri->query_form($query->%*);
@@ -44,8 +41,7 @@ sub _args_from_address {
};
}
-around BUILDARGS => sub {
- my ($orig, $class, @args) = @_;
+around BUILDARGS => sub($orig, $class, @args) {
if (@args != 1 or ref($args[0]) eq 'HASH' and $args[0]->{uri}) {
return $class->$orig(@args);
}
@@ -66,21 +62,19 @@ around BUILDARGS => sub {
};
-sub new_from_address {
- state $check = compile(
- ClassName,
+signature_for new_from_address => (
+ method => Str,
+ positional => [
Address->plus_coercions(AddressFromStr),
Optional[HashRef],
- );
- my ($class, $address, $query) = $check->(@_);
-
+ ],
+);
+sub new_from_address($class, $address, $query={}) {
return $class->new(_args_from_address($address,$query));
}
-sub as_header_raw {
- my ($self) = @_;
-
+sub as_header_raw($self) {
my $str = sprintf '<%s>',$self->uri;
if (my $c = $self->comment) {
$str .= sprintf ' (%s)',$c;
@@ -103,7 +97,7 @@ Sietima::HeaderURI - annotated URI for list headers
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -226,7 +220,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/MailStore.pm b/lib/Sietima/MailStore.pm
index b8ace5b..8dda1ea 100644
--- a/lib/Sietima/MailStore.pm
+++ b/lib/Sietima/MailStore.pm
@@ -3,7 +3,7 @@ use Moo::Role;
use Sietima::Policy;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: interface for mail stores
@@ -25,7 +25,7 @@ Sietima::MailStore - interface for mail stores
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 DESCRIPTION
@@ -115,7 +115,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/MailStore/FS.pm b/lib/Sietima/MailStore/FS.pm
index 4046e91..05d6a10 100644
--- a/lib/Sietima/MailStore/FS.pm
+++ b/lib/Sietima/MailStore/FS.pm
@@ -2,13 +2,13 @@ package Sietima::MailStore::FS;
use Moo;
use Sietima::Policy;
use Types::Path::Tiny qw(Dir);
-use Types::Standard qw(Object ArrayRef Str slurpy);
-use Type::Params qw(compile);
+use Types::Standard qw(Object ArrayRef Str Slurpy);
+use Type::Params -sigs;
use Sietima::Types qw(EmailMIME TagName);
use Digest::SHA qw(sha1_hex);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: filesystem-backed email store
@@ -32,23 +32,31 @@ sub BUILD($self,@) {
}
-sub store($self,$mail,@tags) {
- state $check = compile(Object,EmailMIME,slurpy ArrayRef[TagName]);$check->(@_);
+signature_for store => (
+ method => Object,
+ positional => [
+ EmailMIME,
+ Slurpy[ArrayRef[TagName]],
+ ],
+);
+sub store($self,$mail,$tags) {
my $str = $mail->as_string;
my $id = sha1_hex($str);
$self->_msgdir->child($id)->spew_raw($str);
- $self->_tagdir->child($_)->append("$id\n") for @tags;
+ $self->_tagdir->child($_)->append("$id\n") for $tags->@*;
return $id;
}
+signature_for retrieve_by_id => (
+ method => Object,
+ positional => [ Str ],
+);
sub retrieve_by_id($self,$id) {
- state $check = compile(Object,Str);$check->(@_);
-
my $msg_path = $self->_msgdir->child($id);
return unless -e $msg_path;
return Email::MIME->new($msg_path->slurp_raw);
@@ -61,13 +69,17 @@ sub _tagged_by($self,$tag) {
return $tag_file->lines({chomp=>1});
}
-sub retrieve_ids_by_tags($self,@tags) {
- state $check = compile(Object,slurpy ArrayRef[TagName]);$check->(@_);
-
+signature_for retrieve_ids_by_tags => (
+ method => Object,
+ positional => [
+ Slurpy[ArrayRef[TagName]],
+ ],
+);
+sub retrieve_ids_by_tags($self,$tags) {
# this maps: id -> how many of the given @tags it has
my %msgs;
- if (@tags) {
- for my $tag (@tags) {
+ if ($tags->@*) {
+ for my $tag ($tags->@*) {
$_++ for @msgs{$self->_tagged_by($tag)};
}
}
@@ -79,18 +91,22 @@ sub retrieve_ids_by_tags($self,@tags) {
for my $id (keys %msgs) {
# if this message id does not have all the required tags, we
# won't return it
- next unless $msgs{$id} == @tags;
+ next unless $msgs{$id} == $tags->@*;
push @ret, $id;
}
return \@ret;
}
-sub retrieve_by_tags($self,@tags) {
- state $check = compile(Object,slurpy ArrayRef[TagName]);$check->(@_);
-
+signature_for retrieve_by_tags => (
+ method => Object,
+ positional => [
+ Slurpy[ArrayRef[TagName]],
+ ],
+);
+sub retrieve_by_tags($self,$tags) {
my @ret;
- for my $id ($self->retrieve_ids_by_tags(@tags)->@*) {
+ for my $id ($self->retrieve_ids_by_tags($tags->@*)->@*) {
push @ret, {
id => $id,
mail => $self->retrieve_by_id($id),
@@ -101,9 +117,11 @@ sub retrieve_by_tags($self,@tags) {
}
+signature_for remove => (
+ method => Object,
+ positional => [ Str ],
+);
sub remove($self,$id) {
- state $check = compile(Object,Str);$check->(@_);
-
for my $tag_file ($self->_tagdir->children) {
$tag_file->edit_lines( sub { $_='' if /\A\Q$id\E\n?\z/ } );
}
@@ -132,7 +150,7 @@ Sietima::MailStore::FS - filesystem-backed email store
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -230,7 +248,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Message.pm b/lib/Sietima/Message.pm
index e0efb12..bc2202d 100644
--- a/lib/Sietima/Message.pm
+++ b/lib/Sietima/Message.pm
@@ -10,7 +10,7 @@ use Sietima::Subscriber;
use Email::MIME;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: an email message with an envelope
@@ -64,7 +64,7 @@ Sietima::Message - an email message with an envelope
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -117,7 +117,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Policy.pm b/lib/Sietima/Policy.pm
index 16d66a3..6514b21 100644
--- a/lib/Sietima/Policy.pm
+++ b/lib/Sietima/Policy.pm
@@ -1,11 +1,10 @@
package Sietima::Policy;
-use 5.024;
+use v5.36;
use strict;
use warnings;
-use feature ':5.24';
-use experimental 'signatures';
+use feature ':5.36';
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: pragma for Sietima modules
@@ -14,8 +13,7 @@ sub import {
# so no need for import::into
strict->import;
warnings->import;
- experimental->import('signatures');
- feature->import(':5.24');
+ feature->import(':5.36');
return;
}
@@ -33,7 +31,7 @@ Sietima::Policy - pragma for Sietima modules
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -58,7 +56,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/AvoidDups.pm b/lib/Sietima/Role/AvoidDups.pm
index f75a0a9..4077296 100644
--- a/lib/Sietima/Role/AvoidDups.pm
+++ b/lib/Sietima/Role/AvoidDups.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Email::Address;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: prevent people from receiving the same message multiple times
@@ -39,7 +39,7 @@ Sietima::Role::AvoidDups - prevent people from receiving the same message multip
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -65,7 +65,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/Debounce.pm b/lib/Sietima/Role/Debounce.pm
index df9adc8..7702bb0 100644
--- a/lib/Sietima/Role/Debounce.pm
+++ b/lib/Sietima/Role/Debounce.pm
@@ -3,7 +3,7 @@ use Moo::Role;
use Sietima::Policy;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: avoid mail loops
@@ -36,7 +36,7 @@ Sietima::Role::Debounce - avoid mail loops
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -65,7 +65,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/Headers.pm b/lib/Sietima/Role/Headers.pm
index f209681..f12f2aa 100644
--- a/lib/Sietima/Role/Headers.pm
+++ b/lib/Sietima/Role/Headers.pm
@@ -1,14 +1,12 @@
package Sietima::Role::Headers;
use Moo::Role;
-use Try::Tiny;
use Sietima::Policy;
use Sietima::HeaderURI;
-use Email::Address;
use Types::Standard qw(Str);
use Sietima::Types qw(HeaderUriFromThings);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: adds standard list-related headers to messages
@@ -89,7 +87,7 @@ Sietima::Role::Headers - adds standard list-related headers to messages
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -174,7 +172,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/ManualSubscription.pm b/lib/Sietima/Role/ManualSubscription.pm
index e5ed6ef..292e8c8 100644
--- a/lib/Sietima/Role/ManualSubscription.pm
+++ b/lib/Sietima/Role/ManualSubscription.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Sietima::HeaderURI;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: adds standard list-related headers to messages
with 'Sietima::Role::WithOwner';
@@ -41,7 +41,7 @@ Sietima::Role::ManualSubscription - adds standard list-related headers to messag
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -74,7 +74,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/NoMail.pm b/lib/Sietima/Role/NoMail.pm
index 0f35eff..5688e31 100644
--- a/lib/Sietima/Role/NoMail.pm
+++ b/lib/Sietima/Role/NoMail.pm
@@ -3,7 +3,7 @@ use Moo::Role;
use Sietima::Policy;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: don't send mail to those who don't want it
@@ -28,7 +28,7 @@ Sietima::Role::NoMail - don't send mail to those who don't want it
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -59,7 +59,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/NoSpoof.pm b/lib/Sietima/Role/NoSpoof.pm
new file mode 100644
index 0000000..f04955b
--- /dev/null
+++ b/lib/Sietima/Role/NoSpoof.pm
@@ -0,0 +1,67 @@
+package Sietima::Role::NoSpoof;
+use Moo::Role;
+use Sietima::Policy;
+use Email::Address;
+use namespace::clean;
+
+our $VERSION = '1.1.0'; # VERSION
+# ABSTRACT: never sends out messages from subscribers' addresses
+
+
+with 'Sietima::Role::WithPostAddress';
+
+around munge_mail => sub ($orig,$self,$incoming_mail) {
+ my $sender = $self->post_address->address;
+ my ($from) = Email::Address->parse($incoming_mail->header_str('From'));
+
+ $from->address($sender);
+
+ $incoming_mail->header_str_set(
+ From => $from,
+ );
+
+ return $self->$orig($incoming_mail);
+};
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Sietima::Role::NoSpoof - never sends out messages from subscribers' addresses
+
+=head1 VERSION
+
+version 1.1.0
+
+=head1 SYNOPSIS
+
+ my $sietima = Sietima->with_traits('NoSpoof')->new(\%args);
+
+=head1 DESCRIPTION
+
+A L<< C<Sietima> >> list with this role applied will replace the
+`From` address with its own L<<
+C<post_address>|Sietima::Role::WithPostAddress >> (this is a
+"sub-role" of L<< C<WithPostAddress>|Sietima::Role::WithPostAddress
+>>).
+
+This will make the list DMARC-compliant.
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/Sietima/Role/ReplyTo.pm b/lib/Sietima/Role/ReplyTo.pm
index 7bd6fa4..fc2f5f5 100644
--- a/lib/Sietima/Role/ReplyTo.pm
+++ b/lib/Sietima/Role/ReplyTo.pm
@@ -2,11 +2,10 @@ package Sietima::Role::ReplyTo;
use Moo::Role;
use Sietima::Policy;
use Types::Standard qw(Bool);
-use Sietima::Types qw(Address AddressFromStr);
use List::AllUtils qw(part);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: munge the C<Reply-To> header
@@ -77,7 +76,7 @@ Sietima::Role::ReplyTo - munge the C<Reply-To> header
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -142,7 +141,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/SubjectTag.pm b/lib/Sietima/Role/SubjectTag.pm
index a913d5a..8b13a11 100644
--- a/lib/Sietima/Role/SubjectTag.pm
+++ b/lib/Sietima/Role/SubjectTag.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Types::Standard qw(Str);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: add a tag to messages' subjects
@@ -40,7 +40,7 @@ Sietima::Role::SubjectTag - add a tag to messages' subjects
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -80,7 +80,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm
index b064fa7..0c08fd2 100644
--- a/lib/Sietima/Role/SubscriberOnly.pm
+++ b/lib/Sietima/Role/SubscriberOnly.pm
@@ -4,10 +4,10 @@ use Sietima::Policy;
use Email::Address;
use List::AllUtils qw(any);
use Types::Standard qw(Object CodeRef);
-use Type::Params qw(compile);
+use Type::Params -sigs;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: base role for "closed" lists
@@ -28,9 +28,11 @@ around munge_mail => sub ($orig,$self,$mail) {
};
+signature_for ignoring_subscriberonly => (
+ method => Object,
+ positional => [ CodeRef ],
+);
sub ignoring_subscriberonly($self,$code) {
- state $check = compile(Object,CodeRef); $check->(@_);
-
local $let_it_pass = 1;
return $code->($self);
}
@@ -49,7 +51,7 @@ Sietima::Role::SubscriberOnly - base role for "closed" lists
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -111,7 +113,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/SubscriberOnly/Drop.pm b/lib/Sietima/Role/SubscriberOnly/Drop.pm
index 41052ce..aa771af 100644
--- a/lib/Sietima/Role/SubscriberOnly/Drop.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Drop.pm
@@ -3,7 +3,7 @@ use Moo::Role;
use Sietima::Policy;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: drop messages from non-subscribers
@@ -26,7 +26,7 @@ Sietima::Role::SubscriberOnly::Drop - drop messages from non-subscribers
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -55,7 +55,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 663d5c1..ba58c5b 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -2,10 +2,9 @@ package Sietima::Role::SubscriberOnly::Moderate;
use Moo::Role;
use Sietima::Policy;
use Email::Stuffer;
-use Email::MIME;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: moderate messages from non-subscribers
@@ -72,6 +71,16 @@ sub show_mail_from_moderation_queue ($self,$runner,@) {
}
+sub resume_mail_from_moderation_queue ($self,$runner,@) {
+ $self->resume($runner->parameters->{'mail-id'});
+}
+
+
+sub drop_mail_from_moderation_queue ($self,$runner,@) {
+ $self->drop($runner->parameters->{'mail-id'});
+}
+
+
around command_line_spec => sub ($orig,$self) {
my $spec = $self->$orig();
@@ -104,15 +113,11 @@ around command_line_spec => sub ($orig,$self) {
$etc->('show'),
};
$spec->{subcommands}{'resume-held'} = {
- op => sub ($self,$runner,$args) {
- $self->resume($runner->parameters->{'mail-id'});
- },
+ op => 'resume_mail_from_moderation_queue',
$etc->('resume'),
};
$spec->{subcommands}{'drop-held'} = {
- op => sub ($self,$runner,$args) {
- $self->drop($runner->parameters->{'mail-id'});
- },
+ op => 'drop_mail_from_moderation_queue',
$etc->('drop'),
};
@@ -133,7 +138,7 @@ Sietima::Role::SubscriberOnly::Moderate - moderate messages from non-subscribers
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -207,6 +212,27 @@ out|App::Spec::Runner/out> via the L<< C<Sietima::Runner> >> object.
This method is usually invoked from the command line, see L<<
/C<command_line_spec> >>.
+=head2 C<resume_mail_from_moderation_queue>
+
+ $sietima->resume_mail_from_moderation_queue($sietima_runner);
+
+This method L<retrieves the email|Sietima::MailStore/retrieve_by_id>
+of the message requested from the command line, and L<resumes|/resume>
+it.
+
+This method is usually invoked from the command line, see L<<
+/C<command_line_spec> >>.
+
+=head2 C<drop_mail_from_moderation_queue>
+
+ $sietima->drop_mail_from_moderation_queue($sietima_runner);
+
+This method L<retrieves the email|Sietima::MailStore/retrieve_by_id>
+of the message requested from the command line, and L<drops|/drop> it.
+
+This method is usually invoked from the command line, see L<<
+/C<command_line_spec> >>.
+
=head1 MODIFIED METHODS
=head2 C<command_line_spec>
@@ -253,7 +279,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/WithMailStore.pm b/lib/Sietima/Role/WithMailStore.pm
index ec3ce14..ea25486 100644
--- a/lib/Sietima/Role/WithMailStore.pm
+++ b/lib/Sietima/Role/WithMailStore.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Sietima::Types qw(MailStore MailStoreFromHashRef);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: role for lists with a store for messages
@@ -29,7 +29,7 @@ Sietima::Role::WithMailStore - role for lists with a store for messages
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -65,7 +65,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/WithOwner.pm b/lib/Sietima/Role/WithOwner.pm
index 2373b32..35dc4c4 100644
--- a/lib/Sietima/Role/WithOwner.pm
+++ b/lib/Sietima/Role/WithOwner.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Sietima::Types qw(Address AddressFromStr);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: role for lists with an owner
@@ -37,7 +37,7 @@ Sietima::Role::WithOwner - role for lists with an owner
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -74,7 +74,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Role/WithPostAddress.pm b/lib/Sietima/Role/WithPostAddress.pm
index 4006a62..4fe9e7d 100644
--- a/lib/Sietima/Role/WithPostAddress.pm
+++ b/lib/Sietima/Role/WithPostAddress.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
use Sietima::Types qw(Address AddressFromStr);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: role for lists with a posting address
@@ -36,7 +36,7 @@ Sietima::Role::WithPostAddress - role for lists with a posting address
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 SYNOPSIS
@@ -69,7 +69,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Runner.pm b/lib/Sietima/Runner.pm
index e252307..25be790 100644
--- a/lib/Sietima/Runner.pm
+++ b/lib/Sietima/Runner.pm
@@ -3,7 +3,7 @@ use Moo;
use Sietima::Policy;
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: C<App::Spec::Run> for Sietima
@@ -32,7 +32,7 @@ Sietima::Runner - C<App::Spec::Run> for Sietima
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 DESCRIPTION
@@ -52,7 +52,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Subscriber.pm b/lib/Sietima/Subscriber.pm
index 468080b..c483892 100644
--- a/lib/Sietima/Subscriber.pm
+++ b/lib/Sietima/Subscriber.pm
@@ -2,13 +2,13 @@ package Sietima::Subscriber;
use Moo;
use Sietima::Policy;
use Types::Standard qw(ArrayRef HashRef Object);
-use Type::Params qw(compile);
+use Type::Params -sigs;
use Sietima::Types qw(Address AddressFromStr);
use Email::Address;
use List::AllUtils qw(any);
use namespace::clean;
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: a subscriber to a mailing list
@@ -41,12 +41,11 @@ has prefs => (
);
-sub match {
- # we can't use the sub signature here, because we need the
- # coercion
- state $check = compile(Object,Address->plus_coercions(AddressFromStr));
- my ($self,$addr) = $check->(@_);
-
+signature_for match => (
+ method => Object,
+ positional => [ Address->plus_coercions(AddressFromStr) ],
+);
+sub match($self,$addr) {
return any { $addr->address eq $_->address }
$self->primary, $self->aliases->@*;
}
@@ -66,7 +65,7 @@ Sietima::Subscriber - a subscriber to a mailing list
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 DESCRIPTION
@@ -127,7 +126,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/lib/Sietima/Types.pm b/lib/Sietima/Types.pm
index 8273b40..30e69d1 100644
--- a/lib/Sietima/Types.pm
+++ b/lib/Sietima/Types.pm
@@ -13,7 +13,7 @@ use Type::Library
Subscriber SubscriberFromAddress SubscriberFromStr SubscriberFromHashRef
Transport MailStore MailStoreFromHashRef);
-our $VERSION = '1.0.3'; # VERSION
+our $VERSION = '1.1.0'; # VERSION
# ABSTRACT: type library for Sietima
@@ -85,7 +85,7 @@ Sietima::Types - type library for Sietima
=head1 VERSION
-version 1.0.3
+version 1.1.0
=head1 DESCRIPTION
@@ -194,7 +194,7 @@ Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
generated by cgit v1.2.3 (git 2.46.0) at 2025-05-06 04:15:21 +0000