suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR10689

Browse Source 
svn: r17621
This commit is contained in:
Jay McCarthy 2010-01-12 21:51:35 +00:00
parent 9c2ea4c1cf
commit a1d7945958
2 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/web-server/http/cookies-test.ss
View File

@ -126,4 +126,20 @@
(list (make-client-cookie "key1" "value1" #f "/acme")
(make-client-cookie "key2" "value2" ".acme" #f)))
(test-equal? "phpBB. PR10689"
(request-cookies
(make-request
#"GET" (string->url "http://test.com/foo")
(list (make-header #"Cookie"
#"style_cookie=null; phpbb3_e1p9b_u=54; phpbb3_e1p9b_k=; phpbb3_e1p9b_sid=3fa8d7a7b65fbabcbe9b345861dc079a"))
empty #f
"host" 80 "client"))
(list (make-client-cookie "style_cookie" "null" #f #f)
(make-client-cookie "phpbb3_e1p9b_u" "54" #f #f)
(make-client-cookie "phpbb3_e1p9b_k" "" #f #f)
(make-client-cookie "phpbb3_e1p9b_sid" "3fa8d7a7b65fbabcbe9b345861dc079a" #f #f)))
)))
#;(require schemeunit/text-ui)
#;(run-tests cookies-tests)

11
collects/web-server/http/cookie-parse.ss
View File

@ -32,6 +32,13 @@
VALUE = value
path = "$Path" "=" value
domain = "$Domain" "=" value
value = token | quoted-string
token = 1*<any CHAR except CTLs or tspecials>
quoted-string = ( <"> *(qdtext) <"> )
qdtext = <any TEXT except <">>
|#
(define-lex-abbrevs
(tspecial (:or (char-set "()<>@,;:\\\"/[]?={}") whitespace #\tab))
@ -74,7 +81,9 @@
(separator
[(COMMA) #t]
[(SEMI) #t])
(item [(lhs EQUALS rhs) (cons $1 $3)])
(item [(lhs EQUALS rhs) (cons $1 $3)]
; This is not part of the spec. It is illegal
[(lhs EQUALS) (cons $1 "")])
(lhs [(DOMAIN) 'domain]
[(PATH) 'path]
[(TOKEN) $1])