steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

http.server.requests: Save the bad line for debugging.

db4
Doug Coleman 2016-03-11 14:06:12 -08:00
parent 6b5998b061
commit ccb3d65852
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/server/requests/requests.factor
View File

@ -14,13 +14,13 @@ ERROR: invalid-content-length < request-error content-length ;
ERROR: content-length-missing < request-error ; ERROR: content-length-missing < request-error ;
ERROR: bad-request-line < request-error parse-error ; ERROR: bad-request-line < request-error line parse-error ;
: check-absolute ( url -- ) : check-absolute ( url -- )
path>> dup "/" head? [ drop ] [ invalid-path ] if ; inline path>> dup "/" head? [ drop ] [ invalid-path ] if ; inline
: parse-request-line-safe ( string -- triple ) : parse-request-line-safe ( string -- triple )
[ parse-request-line ] [ nip bad-request-line ] recover ; [ parse-request-line ] [ bad-request-line ] recover ;
: read-request-line ( request -- request ) : read-request-line ( request -- request )
read-?crlf [ dup "" = ] [ drop read-?crlf ] while read-?crlf [ dup "" = ] [ drop read-?crlf ] while