Support downloading of attachments.
[software/mumi.git] / mumi / web / controller.scm
index d19e961e3e1774c99bd4f37e5f7748cc6f0cfc96..ad6c63af6dfb787f7c8c10d4e2ee3e0333765723 100644 (file)
@@ -24,6 +24,7 @@
   #:use-module (web uri)
   #:use-module (mumi messages)
   #:use-module (mumi web render)
+  #:use-module (mumi web download)
   #:use-module (mumi web util)
   #:use-module (mumi web view html)
   #:export (controller))
       (lambda () (or (and=> (fetch-bug id) issue-page)
                 (unknown id)))
       `(p "Could not access issue #" (strong ,id) ".")))
+    ((GET "issue" (? string->number id)
+          "attachment" (? string->number msg-num)
+          (? string->number path) ...)
+     (handle-download (string->number id)
+                      (string->number msg-num)
+                      (map string->number path)))
     ((GET "issue" not-an-id)
      (apply render-html (unknown not-an-id)))
+    ((GET "help")
+     (apply render-html (help)))
     ((GET path ...)
      (render-static-asset request))))