[whimsy] branch master updated: Allow display of deleted messages

[sebb]

This is an automated email from the ASF dual-hosted git repository.

sebb pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/whimsy.git


The following commit(s) were added to refs/heads/master by this push:
     new a13e20e  Allow display of deleted messages
a13e20e is described below

commit a13e20e2aeb1f4001cdb0ab5bde5493b95337a37
Author: Sebb <s...@apache.org>
AuthorDate: Thu Mar 18 13:02:35 2021 +0000

    Allow display of deleted messages
---
 www/secretary/workbench/server.rb             |  9 +++++++++
 www/secretary/workbench/views/deleted.html.rb | 25 +++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

diff --git a/www/secretary/workbench/server.rb 
b/www/secretary/workbench/server.rb
index 2856de9..3f22181 100644
--- a/www/secretary/workbench/server.rb
+++ b/www/secretary/workbench/server.rb
@@ -101,6 +101,15 @@ get %r{/(\d{6})} do |mbox|
   _json :index # This invokes workbench/views/index.json.rb
 end
 
+# display deleted messages
+get %r{/(\d{6})/deleted} do |mbox|
+  @mbox = mbox
+  @messages = Mailbox.new(@mbox).client_headers.select do |message|
+    message[:status] == :deleted
+  end
+  _html :deleted
+end
+
 # retrieve a single message
 get %r{/(\d{6})/(\w+)/} do |month, hash|
   @message = Mailbox.new(month).headers[hash]
diff --git a/www/secretary/workbench/views/deleted.html.rb 
b/www/secretary/workbench/views/deleted.html.rb
new file mode 100644
index 0000000..3d71f5e
--- /dev/null
+++ b/www/secretary/workbench/views/deleted.html.rb
@@ -0,0 +1,25 @@
+_html do
+  _h1.bg_danger 'Deleted messages'
+  _table.table do
+    _thead do
+      _tr do
+        _th 'Timestamp'
+        _th 'From'
+        _th 'Subject'
+      end
+    end
+    _tbody do
+      @messages.each do |msg|
+        time = Time.parse(msg[:time]).to_s
+        _tr do
+          _td do
+            _a time, href: "../%s" % msg[:href], title: time
+          end
+          _td msg[:from]
+          _td msg[:subject]
+        end
+      end
+    end
+  end
+  _hr
+end