Sietima — a minimalist MLM

Author: dakkar <dakkar@thenautilus.net>

Date: 2016-08-08

A bit of history

Siesta

+ +

written in 2003

14 years ago

Class::DBI

no Moo

Perl 5.8

+ +

Plugin style

simple base class


+sub handle_mail($self,$incoming_mail) {
+ my (@outgoing_messages) = $self->munge_mail($incoming_mail);
+ for my $outgoing_message (@outgoing_messages) {
+  $self->send_message($outgoing_message);
+ }
+ return;
+}
+

provide all the needed extensions points


+sub munge_mail($self,$incoming_mail) {
+ return Sietima::Message->new({
+  mail => $incoming_mail,
+  from => $self->return_path,
+  to => $self->subscribers_to_send_to($incoming_mail),
+ });
+}
+

but no more than that

traits / roles

AvoidDups
Debounce
Headers
ManualSubscription
NoMail
ReplyTo
SubjectTag
SubscriberOnly::Drop
SubscriberOnly::Moderate

try to avoid cross-trait dependencies

«ReplyTo needs WithPostAddress» is fine

but «SubscriberOnly::Moderate should be added after Debounce» is not

sadly I couldn't avoid it, suggestions welcome

Driver

App::Spec

minimal spec in base class


+sub command_line_spec($self) {
+ return {
+  name => 'sietima',
+  title => 'a simple mailing list manager',
+  subcommands => {
+   send => {
+    op => 'handle_mail_from_stdin',
+    summary => 'send email from STDIN',
+   },
+  },
+ };
+}
+

enriched by plugins


+around command_line_spec => sub ($orig,$self) {
+ my $spec = $self->$orig();
+
+ my $list_mail_ids = sub ($self,$runner,$args) {
+  $self->mail_store->retrieve_ids_by_tags('moderation');
+ };
+
+ my $with_mail_id = sub($cmd) { return (
+  summary => "$cmd the given mail, currently held for moderation",
+  parameters => [ {
+   name => 'mail-id', required => 1,
+   summary => "id of the mail to $cmd",
+   completion => { op => $list_mail_ids },
+  } ],
+ ) };
+
+ $spec->{subcommands}{'list-held'} = {
+  op => 'list_mails_in_moderation_queue',
+  summary => 'list all mails currently held for moderation',
+ };
+ $spec->{subcommands}{'show-held'} = {
+  op => 'show_mail_from_moderation_queue',
+  $with_mail_id->('show'),
+ };
+ $spec->{subcommands}{'resume-held'} = {
+  op => sub ($self,$runner,$args) {
+   $self->resume($runner->parameters->{'mail-id'});
+  },
+  $with_mail_id->('resume'),
+ };
+ $spec->{subcommands}{'drop-held'} = {
+  op => sub ($self,$runner,$args) {
+   $self->drop($runner->parameters->{'mail-id'});
+  },
+  $with_mail_id->('drop'),
+ };
+
+ return $spec;
+};
+


+$ sietima-test <TAB>
+drop-held   -- drop the given mail, currently held for moderation
+help        -- Show command help
+list-held   -- list all mails currently held for moderation
+resume-held -- resume the given mail, currently held for moderation
+send        -- send email from STDIN
+show-held   -- show the given mail, currently held for moderation
+


+$ sietima-test resume-held <TAB>
+0f0571203ef5ee2f786b7f7f2832093ed4c34fe8
+4d43ee7a2a17457606c07475b14054839fad9b7e
+

Production ready!

all my lists now run with Sietima

coming soon to a CPAN near you

CPAN is awesome

Email::*, RJBS

Moo, MST + HAARG

Type::Tiny, TOBYINK

App::Spec, TINITA

Test2, EXODIST