(context 'CGI) ; get cookies feature

[CaveGuy]

The "get cookies" code that builds CGI:cookies from "HTTP_COOKIE" in cgi.lsp tears up cookies with embeded or tailing "=".

The following, fixed the problem, nicely for me.

(if (env "HTTP_COOKIE")
(dolist (elmnt (parse (env "HTTP_COOKIE") ";"))
(set 'var (trim (first (parse elmnt "="))))
### (set 'value (trim (last (parse elmnt "="))))
(set 'value (slice elmnt (+ 1 (find "=" elmnt))))
(push (list var value) cookies))
(set 'cookies '()))

This feature plays hell with (base64-*) and (encrypt) of cookies !

I had been chaseing a random problem for weeks before I figured out how to reporduce it. In my case a (base64 string with a trailing "=" came back "" which trigered a differant, repeatable, error, that lead to this fix.
Well back to my rat killen, Just thought someone else might have a random cookie related problem that this might fix.

[Lutz]

Thanks for this fix, it will go into the next development version 9.1.9

Lutz

[rickyboy]

Another tagline for newLISP: "newLISP: It's so easy, even a CaveGuy can do it."

(You might have to watch too much American TV to get this. Sorry abroaders.)

Thanks for the fix Bob!