| Paste number 10504: | Example of using rfc2109.lisp on Araneida |
| Pasted by: | alanshields |
| 3 years, 3 days ago | |
| None | |
| Paste contents: |
| (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))))))) |
Annotations for this paste:
| Annotation number 1: | fghfdgh |
| Pasted by: | ghfgh |
| 2 years, 10 months ago | |
| Paste contents: |
| fghfgh |