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

db4
John Benediktsson 2015-08-15 16:57:40 -07:00
parent a9f8424302
commit 2bb93f1b72
2 changed files with 7 additions and 3 deletions

View File

@ -96,6 +96,7 @@ M: action call-responder* ( path action -- response )
{ "GET" [ handle-get ] } { "GET" [ handle-get ] }
{ "HEAD" [ handle-get ] } { "HEAD" [ handle-get ] }
{ "POST" [ handle-post ] } { "POST" [ handle-post ] }
[ 2drop <405> ]
} case ; } case ;
M: action modify-form M: action modify-form

View File

@ -36,11 +36,14 @@ IN: http.server.responses
: <304> ( -- response ) : <304> ( -- response )
304 "Not modified" <trivial-response> ; 304 "Not modified" <trivial-response> ;
: <403> ( -- response )
403 "Forbidden" <trivial-response> ;
: <400> ( -- response ) : <400> ( -- response )
400 "Bad request" <trivial-response> ; 400 "Bad request" <trivial-response> ;
: <403> ( -- response )
403 "Forbidden" <trivial-response> ;
: <404> ( -- response ) : <404> ( -- response )
404 "Not found" <trivial-response> ; 404 "Not found" <trivial-response> ;
: <405> ( -- response )
405 "Method Not Allowed" <trivial-response> ;