Permalink
Browse files

Correctly parse cookies and print out page name on 404

  • Loading branch information...
1 parent a22c4f9 commit 3cf38ece16bde87272ab2a73219b6a5b7043436b @vii committed Oct 24, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/http/dispatcher.lisp
View
5 src/http/dispatcher.lisp
@@ -26,8 +26,8 @@
(match-bind ( (* name "=" value (or (last) "&")
'(f name value)))
str)))
- (parse-cookie-params (str)
- (when str
+ (parse-cookie-params (cookies)
+ (loop for str in cookies do
(match-bind ( (* name "=" value (or (last) "," ";")
'(f name value)))
str))))
@@ -101,6 +101,7 @@
(setf (gethash (force-byte-vector path) (my paths)) (alexandria:ensure-function func)))
(my-defun dispatcher 'default-http-error-page ()
+ (format *trace-output* "~&Page ~A not found~&" (strcat (my canonical-name) (servestate-path*)))
(with-sendbuf ()
"<h1>I made a mistake. Sorry for the inconvenience.</h1>"))

0 comments on commit 3cf38ec

Please sign in to comment.