list & show moderation queue contents

1 files changed, 35 insertions, 0 deletions

diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 8f49bed..7e231ed 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -35,8 +35,39 @@ sub drop ($self,$mail_id) {
     $self->mail_store->remove($mail_id);
 }
 
+sub list_mails_in_moderation_queue ($self,$runner,@) {
+    my $mails = $self->mail_store->retrieve_by_tags('moderation');
+    $runner->out(sprintf 'There are %d messages held for moderation:',scalar($mails->@*));
+    for my $mail ($mails->@*) {
+        $runner->out(sprintf '* %s %s "%s" (%s)',
+                     $mail->{id},
+                     $mail->{mail}->header_str('From')//'<no from>',
+                     $mail->{mail}->header_str('Subject')//'<no subject>',
+                     $mail->{mail}->header_str('Date')//'<no date>',
+                     );
+    }
+}
+
+sub show_mail_from_moderation_queue ($self,$runner,@) {
+    my $id = $runner->parameters->{'mail-id'};
+    my $mail = $self->mail_store->retrieve_by_id($id);
+    $runner->out("Message $id:");
+    $runner->out($mail->as_string);
+}
+
 around command_line_spec => sub ($orig,$self) {
     my $spec = $self->$orig();
+    $spec->{subcommands}{'show-held'} = {
+        op => 'show_mail_from_moderation_queue',
+        summary => 'shows the given mail, currently held for moderation',
+        parameters => [
+            {
+                name => 'mail-id',
+                required => 1,
+                summary => 'id of the mail to show',
+            },
+        ],
+    };
     $spec->{subcommands}{'resume-held'} = {
         op => sub ($self,$runner,$args) {
             $self->resume($runner->parameters->{'mail-id'});
@@ -63,6 +94,10 @@ around command_line_spec => sub ($orig,$self) {
             },
         ],
     };
+    $spec->{subcommands}{'list-held'} = {
+        op => 'list_mails_in_moderation_queue',
+        summary => 'list all mails currently held for moderation',
+    };
 
     return $spec;
 };