From 2bb93f1b721f34acf8a9e9bb0c9ba412a8e2140f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 15 Aug 2015 16:57:40 -0700
Subject: [PATCH] furnace.actions: return Method Not Allowed if not
 GET/HEAD/POST.

---
 basis/furnace/actions/actions.factor         | 1 +
 basis/http/server/responses/responses.factor | 9 ++++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor
index e5720636ff..4d3a179942 100644
--- a/basis/furnace/actions/actions.factor
+++ b/basis/furnace/actions/actions.factor
@@ -96,6 +96,7 @@ M: action call-responder* ( path action -- response )
         { "GET" [ handle-get ] }
         { "HEAD" [ handle-get ] }
         { "POST" [ handle-post ] }
+        [ 2drop <405> ]
     } case ;
 
 M: action modify-form
diff --git a/basis/http/server/responses/responses.factor b/basis/http/server/responses/responses.factor
index 9bade222ff..4ab39ba557 100644
--- a/basis/http/server/responses/responses.factor
+++ b/basis/http/server/responses/responses.factor
@@ -36,11 +36,14 @@ IN: http.server.responses
 : <304> ( -- response )
     304 "Not modified" <trivial-response> ;
 
-: <403> ( -- response )
-    403 "Forbidden" <trivial-response> ;
-
 : <400> ( -- response )
     400 "Bad request" <trivial-response> ;
 
+: <403> ( -- response )
+    403 "Forbidden" <trivial-response> ;
+
 : <404> ( -- response )
     404 "Not found" <trivial-response> ;
+
+: <405> ( -- response )
+    405 "Method Not Allowed" <trivial-response> ;
-- 
2.34.1