cgi: better content length parsing.

db4
John Benediktsson 2015-11-04 13:08:15 -08:00
parent d211bee38b
commit 2adde18e3e
1 changed files with 1 additions and 1 deletions

View File

@ -27,7 +27,7 @@ IN: cgi
"multipart unsupported" throw ;
: (urlencoded) ( -- assoc )
"CONTENT_LENGTH" os-env "0" or string>number
"CONTENT_LENGTH" os-env [ string>number ] [ 0 ] if*
read [ "" ] [ "&" append ] if-empty
"QUERY_STRING" os-env [ append ] when* (query-string) ;