PR10689

svn: r17621

collects/tests/web-server/http/cookies-test.ss

@@ -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)

collects/web-server/http/cookie-parse.ss

@@ -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])