furnace.actions: return Method Not Allowed if not GET/HEAD/POST.

diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor
index e5720636ff470e42d228d3ee535a48a0cefa244e..4d3a179942299b1f71735423ca467073abeadb71 100644 (file)
--- 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 9bade222ff40ed03e79b4eb8cc482cf49d9a08eb..4ab39ba557625a1f20946e6b788d4264e4570bd6 100644 (file)
--- 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> ;