Deny requests to all html files except index.html.

* ennu.el (ennu-server-start): Deny requests to all html files except
index.html.

1 files changed, 9 insertions, 4 deletions

diff --git a/ennu.el b/ennu.el
index 69e8a93..5cd1d1a 100644
--- a/ennu.el
+++ b/ennu.el
@@ -486,10 +486,15 @@ as keys. Keys are compared using `equal'."
   (setq httpd-root (expand-file-name (ennu-setting :output-directory)
                                      (ennu-setting :working-directory)))
   (defun httpd/ (proc uri-path query request)
-    (let ((uri-path (httpd-unhex uri-path)))
-      (pcase (httpd-status (httpd-gen-path uri-path))
-        (200 (httpd-serve-root proc httpd-root uri-path request))
-        (_ (httpd-serve-root proc httpd-root (concat uri-path ".html") request)))))
+    (let ((uri-path (httpd-unhex uri-path))
+          (file-path (httpd-gen-path uri-path)))
+      (cond
+       ((and (not (string= (file-name-nondirectory file-path) "index.html"))
+             (string= (file-name-extension file-path) "html"))
+        (httpd-error proc 404))
+       ((= (httpd-status file-path) 200)
+        (httpd-serve-root proc httpd-root uri-path request))
+       (t (httpd-serve-root proc httpd-root (concat uri-path ".html") request)))))
   (httpd-start))
 
 (defun ennu-server-stop ()