Author: xlopez
Date: Thu Sep 3 02:11:21 2009
New Revision: 2
Log:
Port to Hunchentoot 1.0 APIs
Patch by Andrew Stine.
Modified:
ht-ajax.lisp
Modified: ht-ajax.lisp
==============================================================================
--- ht-ajax.lisp (original)
+++ ht-ajax.lisp Thu Sep 3 02:11:21 2009
@@ -161,11 +161,11 @@
(let ((content-type (getf funcallable-plist :content-type)))
;; Can't use the default parameter of getf since it may be present but null
- (setf (content-type) (or content-type
+ (setf (content-type*) (or content-type
(when (getf funcallable-plist :json) (json-content-type))
(default-content-type processor))))
(when (default-reply-external-format processor)
- (setf (reply-external-format) (default-reply-external-format processor)))
+ (setf (reply-external-format*) (default-reply-external-format processor)))
(unless (getf funcallable-plist :allow-cache)
(no-cache))
@@ -173,13 +173,13 @@
(defun handle-virtual-file (processor)
- (let* ((file-name (string-downcase (script-name)))
+ (let* ((file-name (string-downcase (script-name*)))
(file-record (assoc file-name (virtual-files processor) :test 'equal)))
(when file-record
(let ((time (cddr file-record)))
(handle-if-modified-since time) ; Does not return if the file was not modified
- (setf (content-type) "text/javascript")
+ (setf (content-type*) "text/javascript")
(setf (header-out "Last-Modified") (rfc-1123-date time))
;;(setf (header-out "Expires") (rfc-1123-date (+ time #.(* 60 60 2))))
(cadr file-record)))))
@@ -281,8 +281,10 @@
(string-downcase (make-safe-js-name function-name))))
-(defun maybe-rewrite-url-for-session (url &key (cookie-name *session-cookie-name*)
- (value (hunchentoot::session-cookie-value)))
+(defun maybe-rewrite-url-for-session (url &key (cookie-name (hunchentoot:session-cookie-name hunchentoot:*acceptor*))
+ (value (let ((session (session *request*)))
+ (when session
+ (hunchentoot::session-cookie-value session)))))
"Modelled after (well, copied from) HUNCHENTOOT::MAYBE-REWRITE-URLS-FOR-SESSION.
Rewrites the URL such that the name/value pair
COOKIE-NAME/COOKIE-VALUE is inserted if the client hasn't sent a
