command line handling

1 files changed, 36 insertions, 0 deletions

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;