command line handling

6 files changed, 141 insertions, 0 deletions

diff --git a/cpanfile b/cpanfile
index 65fd2e0..0fc68cf 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,6 +1,7 @@
 #!/usr/bin/env cpanm --installdeps
 # -*- mode: perl -*-
 requires 'perl','>= 5.024';
+requires 'App::Spec';
 requires 'Digest::SHA1';
 requires 'Email::Address';
 requires 'Email::MIME';
diff --git a/example/sietima b/example/sietima
new file mode 100644
index 0000000..e5d33c2
--- /dev/null
+++ b/example/sietima
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use Sietima::Policy;
+use Sietima;
+use Sietima::MailStore::FS;
+use Sietima::CmdLine;
+
+my $s = Sietima->with_traits(
+    qw(
+          NoMail
+          ReplyTo
+          SubscriberOnly::Moderate
+          Headers
+          WithAdmin
+          Debounce
+          SubjectTag
+          WithMailStore
+  ),
+)->new({
+    admin => 'dakkar@thenautilus.net',
+    mail_store => Sietima::MailStore::FS->new({
+        root => '/tmp/sietima-store',
+    }),
+    return_path => 'dakkar-sietima@thenautilus.net',
+    subject_tag => '[Test]',
+    subscribers => [
+        'dakkar-a@thenautilus.net',
+        { address => 'dakkar-b@thenautilus.net', aliases => [ 'dakkar-bis@thenautilus.net' ] },
+        { address => 'dakkar-c@thenautilus.net', prefs => { wants_mail => 0 } },
+    ],
+});
+
+my $cli = Sietima::CmdLine->new({
+    sietima => $s,
+});
+
+$cli->run;
diff --git a/lib/Sietima.pm b/lib/Sietima.pm
index df5de4e..81821e4 100644
--- a/lib/Sietima.pm
+++ b/lib/Sietima.pm
@@ -49,6 +49,12 @@ has transport => (
 );
 sub _build_transport { Email::Sender::Simple->default_transport }
 
+sub handle_mail_from_stdin($self) {
+    my $mail_text = do { local $/; <> };
+    my $incoming_mail = Email::MIME->new(\$mail_text);
+    return $self->handle_mail($incoming_mail);
+}
+
 sub handle_mail($self,$incoming_mail) {
     state $check = compile(Object,EmailMIME); $check->(@_);
 
@@ -91,4 +97,26 @@ sub send_message($self,$outgoing_message) {
 
 sub _trait_namespace { 'Sietima::Role' }
 
+sub command_line_spec($self) {
+    return {
+        name => 'sietima',
+        title => 'a simple mailing list manager',
+        options => [
+            {
+                name => 'verbose',
+                summary => 'more chatty',
+                type => 'flag',
+                multiple => 1,
+                aliases => ['v'],
+            },
+        ],
+        subcommands => {
+            send => {
+                op => 'handle_mail_from_stdin',
+                summary => 'send email from STDIN',
+            },
+        },
+    };
+}
+
 1;
diff --git a/lib/Sietima/CmdLine.pm b/lib/Sietima/CmdLine.pm
new file mode 100644
index 0000000..57d796f
--- /dev/null
+++ b/lib/Sietima/CmdLine.pm
@@ -0,0 +1,25 @@
+package Sietima::CmdLine;
+use Moo;
+use Sietima::Policy;
+use App::Spec;
+use Sietima::Runner;
+
+has sietima => (
+    is => 'ro',
+    required => 1,
+);
+
+sub run($self) {
+    my $spec_data = $self->sietima->command_line_spec();
+
+    my $app_spec = App::Spec->read($spec_data);
+
+    my $runner = Sietima::Runner->new({
+        spec => $app_spec,
+        cmd => $self->sietima,
+    });
+
+    $runner->run;
+}
+
+1;
diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 0d9fd58..8f49bed 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -31,4 +31,40 @@ sub resume ($self,$mail_id) {
     $self->mail_store->remove($mail_id);
 }
 
+sub drop ($self,$mail_id) {
+    $self->mail_store->remove($mail_id);
+}
+
+around command_line_spec => sub ($orig,$self) {
+    my $spec = $self->$orig();
+    $spec->{subcommands}{'resume-held'} = {
+        op => sub ($self,$runner,$args) {
+            $self->resume($runner->parameters->{'mail-id'});
+        },
+        summary => 'resume the given mail, currently held for moderation',
+        parameters => [
+            {
+                name => 'mail-id',
+                required => 1,
+                summary => 'id of the mail to resume',
+            },
+        ],
+    };
+    $spec->{subcommands}{'drop-held'} = {
+        op => sub ($self,$runner,$args) {
+            $self->drop($runner->parameters->{'mail-id'});
+        },
+        summary => 'drop the given mail, currently held for moderation',
+        parameters => [
+            {
+                name => 'mail-id',
+                required => 1,
+                summary => 'id of the mail to drop',
+            },
+        ],
+    };
+
+    return $spec;
+};
+
 1;
diff --git a/lib/Sietima/Runner.pm b/lib/Sietima/Runner.pm
new file mode 100644
index 0000000..7d0ad7d
--- /dev/null
+++ b/lib/Sietima/Runner.pm
@@ -0,0 +1,15 @@
+package Sietima::Runner;
+use Moo;
+use Sietima::Policy;
+extends 'App::Spec::Run';
+
+sub run_op($self,$op,$args=[]) {
+    if ($op =~ /^cmd_/) {
+        $self->$op($args);
+    }
+    else {
+        $self->cmd->$op($self,$args);
+    }
+}
+
+1;