mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

(url-get-normalized-date): Simplify

Browse Source 
to use `format-time-string'.  Always generate date in UTC, but
call it GMT for full compatibility with the RFCs.
This commit is contained in:
Teodor Zlatanov 2008-02-28 19:41:44 +00:00
parent 0d68d78e48
commit 0aa5691d5e
2 changed files with 10 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/url/ChangeLog
View File

@ -1,3 +1,9 @@
2008-02-28 Teodor Zlatanov <tzz@lifelogs.com>
* url-util.el (url-get-normalized-date): Simplify
to use `format-time-string'. Always generate date in UTC, but
call it GMT for full compatibility with the RFCs.
2008-02-25 John Wiegley <johnw@newartisans.com>
* url-auth.el (url-digest-auth): If the 'opaque' argument is not

31
lisp/url/url-util.el
View File

@ -185,33 +185,10 @@ Will not do anything if `url-show-status' is nil."
;;;###autoload
(defun url-get-normalized-date (&optional specified-time)
"Return a 'real' date string that most HTTP servers can understand."
(require 'timezone)
(let* ((raw (if specified-time (current-time-string specified-time)
(current-time-string)))
(gmt (timezone-make-date-arpa-standard raw
(current-time-zone)
"GMT"))
(parsed (timezone-parse-date gmt))
(day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))
(year nil)
(month (car
(rassoc
(string-to-number (aref parsed 1)) url-monthabbrev-alist)))
)
(setq day (or (car-safe (rassoc day url-weekday-alist))
(substring raw 0 3))
year (aref parsed 0))
;; This is needed for plexus servers, or the server will hang trying to
;; parse the if-modified-since header. Hopefully, I can take this out
;; soon.
(if (and year (> (length year) 2))
(setq year (substring year -2 nil)))
(concat day ", " (aref parsed 2) "-" month "-" year " "
(aref parsed 3) " " (or (aref parsed 4)
(concat "[" (nth 1 (current-time-zone))
"]")))))
"Return a 'real' date string that most HTTP servers can understand."
(let ((system-time-locale "C"))
(format-time-string "%a, %d %b %Y %T GMT"
(or specified-time (current-time)) t)))
;;;###autoload
(defun url-eat-trailing-space (x)