10504 alanshields (defmethod handle-request-response ((handler cookie-monster) method request) (let ((my-cookie (cookie1:cookie-string "dascookie" "goes down" :max-age 600 :domain "inquisitor.omrf.org")) (my-hack-cookie (cookie1:cookie-string "secret" "squirrel?" :max-age 600 :domain ".omrf.org")) (my-domainless-cookie (cookie1:cookie-string "no" "domain name from \\\"hell!\\\"" :max-age 600)) (received-cookies (request-header request :cookie)) (parsed-cookies (loop for cookie-string in (request-header request :cookie) collect (cookie1:parse-cookies cookie-string))) (safe-parsed-cookies (loop for cookie-string in (request-header request :cookie) collect (cookie1:safe-parse-cookies cookie-string "inquisitor.omrf.org")))) (request-send-headers request :set-cookie (list my-cookie my-hack-cookie my-domainless-cookie)) (html-stream (request-stream request) `(body (p "Welcome to the jungle!") (p "Gave cookie: " ,my-cookie) (p "Gave cookie (no domain specified): " ,my-domainless-cookie) (p "Also gave cookie (spoof attack): " ,my-hack-cookie) (p "Raw cookies: " (pre ,received-cookies)) (p "Parsed cookies: " (pre ,(write-to-string parsed-cookies))) (p "Safe parsed cookies: " (pre ,(write-to-string safe-parsed-cookies))))))) 3332183096 None Common Lisp 1 ghfgh fghfgh 3336985819 None