Sietima — a minimalist MLM

Siesta

written in 2003

14 years ago

Class::DBI

no Moo(?:se)?

Perl 5.8

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

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();
 $spec->{subcommands}{'show-held'} = {
  op => 'show_mail_from_moderation_queue',
  parameters => [ {
   name => 'mail-id', required => 1,
   completion => { op => sub ($self,$runner,$args) {
     $self->mail_store->retrieve_ids_by_tags('moderation');
    } },
  } ],
 };
 # etc etc
 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 show-held TAB
0f0571203ef5ee2f786b7f7f2832093ed4c34fe8
4d43ee7a2a17457606c07475b14054839fad9b7e

all my lists now run with Sietima

on CPAN now

Email::*, RJBS

Moo, MST + HAARG

Type::Tiny, TOBYINK

App::Spec, TINITA

Test2, EXODIST