Commit 08c57891 authored by Michael Raskin's avatar Michael Raskin

Syncing from Monotone at 20190423-024641. Last commit message was Try to parse...

Syncing from Monotone at 20190423-024641. Last commit message was Try to parse dates in a more comprehensive way
parent 2af8d67e
(in-package :thoughtful-theridion)
(eval-when (:load-toplevel :compile-toplevel :execute)
(unless (ignore-errors (drakma:parse-cookie-date "Mon 01 Jan 2000 00:00:00"))
(let* ((default-drakma-parse-cookie-date
(symbol-function 'drakma:parse-cookie-date)))
(defun drakma:parse-cookie-date (s)
(if (let ((tz (first (last (cl-ppcre:split " " s)))))
(or (cl-ppcre:scan "^[A-Z]{3}" tz)
(cl-ppcre:scan "^-[0-9]{4}" tz)))
(funcall default-drakma-parse-cookie-date s)
(funcall default-drakma-parse-cookie-date
(concatenate 'string s " UTC")))))))
......@@ -21,7 +21,9 @@
((:file "package")
(:file "charsets" :depends-on ("package"))
(:file "urlencode" :depends-on ("package" "charsets"))
(:file "basic-retrieve" :depends-on ("package" "charsets" "urlencode"))
(:file "date-parsing-experiments" :depends-on ("package"))
(:file "basic-retrieve" :depends-on ("package" "charsets" "urlencode"
"date-parsing-experiments"))
(:file "html-textify" :depends-on ("basic-retrieve"))
(:file "html-forms" :depends-on ("package"))
(:file "util" :depends-on ("basic-retrieve" "html-textify"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment