Support downloading of attachments.
[software/mumi.git] / mumi / web / controller.scm
index 414b42e8d90156b1ebef191e6118edb239352af6..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")