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

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

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> ;