summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-04-10 18:09:43 +0100
committerLudovic Courtès <ludo@gnu.org>2020-05-18 09:44:00 +0200
commitac5df66f1cafd3f9dd1bcac30b807ae7f13474c2 (patch)
treeeb0f8aea0aa5ec5c233cf562390e2b1a7ed887b5
parent922c3bd55cc46ba21e5fd5120b482e8e5f114efa (diff)
downloadguile-ac5df66f1cafd3f9dd1bcac30b807ae7f13474c2.tar.gz
http: Support CONNECT and PATCH HTTP methods.
PATCH is described by RFC 5789 and CONNECT is described by RFC 7231. * module/web/http.scm (parse-http-method): Support CONNECT and PATCH. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--module/web/http.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index de61c9495..4276e1744 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1108,6 +1108,8 @@ symbol, like ‘GET’."
((string= str "DELETE" start end) 'DELETE)
((string= str "OPTIONS" start end) 'OPTIONS)
((string= str "TRACE" start end) 'TRACE)
+ ((string= str "CONNECT" start end) 'CONNECT)
+ ((string= str "PATCH" start end) 'PATCH)
(else (bad-request "Invalid method: ~a" (substring str start end)))))
(define* (parse-request-uri str #:optional (start 0) (end (string-length str)))