Changeset 3270

Show
Ignore:
Timestamp:
06/15/08 10:05:36 (7 months ago)
Author:
ksprotte
Message:

bknr adoption for incompatible hunchentoot change: (script-name) is now (script-name*)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/modules/feed/feed-handlers.lisp

    r2430 r3270  
    4646  (let* ((title (object-list-handler-title handler object)) 
    4747         (feeds (object-list-handler-get-objects handler object)) 
    48          (rss-feed (merge-feeds title (render-uri (script-name) nil) 
     48         (rss-feed (merge-feeds title (render-uri (script-name*) nil) 
    4949                                title (remove nil (mapcar #'feed-rss-feed feeds)))) 
    5050         (grouped-items (rss-feed-group-items rss-feed))) 
    …… 
    136136  (let ((feeds (object-list-handler-get-objects handler keyword))) 
    137137    (merge-feeds (object-list-handler-title handler keyword) 
    138                  (render-uri (script-name) nil) 
     138                 (render-uri (script-name*) nil) 
    139139                 (object-list-handler-title handler keyword) 
    140140                 (remove nil (mapcar #'feed-rss-feed feeds))))) 

  • trunk/bknr/modules/mail/mailinglist-handlers.lisp

    r2430 r3270  
    173173     (:tr (:td "Name") (:td (:princ-safe (mailinglist-name mailinglist)))) 
    174174     (:tr (:td "Email") (:td (:princ-safe (mailinglist-email mailinglist))))) 
    175     ((:form :action (script-name) :method "post") 
     175    ((:form :action (script-name*) :method "post") 
    176176     (:table 
    177177      (:tr (:td "Subscribe email") (:td (text-field "email")))) 

  • trunk/bknr/modules/stats/stats-handler.lisp

    r2777 r3270  
    4242                      (:tr (:td "URL") 
    4343                           (:td (cmslink 
    44                                      (render-uri (merge-uris url (script-name)) nil) 
     44                                     (render-uri (merge-uris url (script-name*)) nil) 
    4545                                  (:princ-safe url)))) 
    4646                      (:tr ((:td :colspan "2") (:princ-safe error))) 

  • trunk/bknr/modules/text/article-tags.lisp

    r2651 r3270  
    221221                  (html (:princ-safe i)) 
    222222                  (html ((:a :href (format nil "~A?page=~A" 
    223                                            (script-name) i)) 
     223                                           (script-name*) i)) 
    224224                         (:princ-safe i)))) 
    225225              " ")) 

  • trunk/bknr/modules/text/billboard-handlers.lisp

    r2430 r3270  
    2323    (with-bknr-page (:title "billboards") 
    2424      (html 
    25        ((:form :method "post" :action (script-name)) 
     25       ((:form :method "post" :action (script-name*)) 
    2626        ((:table :width "640") 
    2727         (:tr (:th "name") 

  • trunk/bknr/web/src/images/image-tags.lisp

    r2650 r3270  
    1414                  (if (= i page) 
    1515                      (html (:princ-safe i)) 
    16                       (html (cmslink (format nil "~A?page=~A" (script-name) i) (:princ-safe i)))) 
     16                      (html (cmslink (format nil "~A?page=~A" (script-name*) i) (:princ-safe i)))) 
    1717                  (:princ " "))))))) 
    1818 

  • trunk/bknr/web/src/web/handlers.lisp

    r2777 r3270  
    227227 
    228228(defmethod handler-path ((handler page-handler)) 
    229   (subseq (script-name) 
     229  (subseq (script-name*) 
    230230          (length (page-handler-prefix handler)))) 
    231231 
    …… 
    300300         (t 
    301301          (setf (session-value :login-redirect-uri) 
    302                 (redirect-uri (parse-uri (script-name)))) 
     302                (redirect-uri (parse-uri (script-name*)))) 
    303303          (redirect (website-make-path *website* "login"))))) 
    304304      (t 
    …… 
    310310(defmethod handler-matches-p ((handler page-handler)) 
    311311  (string-equal (page-handler-prefix handler) 
    312                 (script-name))) 
     312                (script-name*))) 
    313313 
    314314(defclass redirect-handler (page-handler) 
    …… 
    378378 
    379379(defmethod handler-matches-p ((handler prefix-handler)) 
    380   (and (>= (length (script-name)) 
     380  (and (>= (length (script-name*)) 
    381381           (length (page-handler-prefix handler))) 
    382382       (string-equal (page-handler-prefix handler) 
    383                      (script-name) 
     383                     (script-name*) 
    384384                     :end2 (length (page-handler-prefix handler))))) 
    385385 
    …… 
    397397    (or (aux-request-value 'request-relative-pathname) 
    398398        (setf (aux-request-value 'request-relative-pathname) 
    399               (pathname (subseq (script-name) (1+ (length (page-handler-prefix handler))))))))) 
     399              (pathname (subseq (script-name*) (1+ (length (page-handler-prefix handler))))))))) 
    400400 
    401401(defmethod handler-matches-p ((handler directory-handler)) 

  • trunk/bknr/web/src/web/menu.lisp

    r2522 r3270  
    5252        (html ((:div :class "title") (:princ-safe title)))) 
    5353      (dolist (item (menu-items menu)) 
    54         (let ((item-is-active (in-subtree (script-name) (item-url item)))) 
     54        (let ((item-is-active (in-subtree (script-name*) (item-url item)))) 
    5555          (with-slots (url title active-image inactive-image) item 
    5656            (let ((link-url (format nil "~A~A" (website-base-href *website*) url))) 

  • trunk/bknr/web/src/web/sessions.lisp

    r2430 r3270  
    1919 
    2020(defun do-log-request () 
    21   (format *debug-io* "Log: ~A~%" (script-name)) 
     21  (format *debug-io* "Log: ~A~%" (script-name*)) 
    2222  (return-from do-log-request) 
    2323  #+(or) 
    …… 
    2525         (user (bknr-session-user session)) 
    2626         (host (bknr-session-host session)) 
    27          (url (script-name)) 
     27         (url (script-name*)) 
    2828         (referer (header-in :referer)) 
    2929         (user-agent (header-in :user-agent)) 
    …… 
    4747         (user (bknr-session-user session)) 
    4848         (host (bknr-session-host session)) 
    49          (url (script-name)) 
     49         (url (script-name*)) 
    5050         (referer (header-in :referer)) 
    5151         (time (get-universal-time))) 

  • trunk/bknr/web/src/web/tags.lisp

    r2656 r3270  
    203203(define-bknr-tag navi-button (&key url text) 
    204204  (html (:princ " ")) 
    205   (if (equal (script-name) 
     205  (if (equal (script-name*) 
    206206             url) 
    207207      (html (:princ-safe text)) 
    …… 
    260260  (destructuring-bind 
    261261        (empty first-level &optional second-level &rest rest) 
    262       (split "/" (script-name)) 
     262      (split "/" (script-name*)) 
    263263    (declare (ignore empty rest)) 
    264264    (html ((:div :id "navcontainer") 

  • trunk/bknr/web/src/web/template-handler.lisp

    r2738 r3270  
    309309(defmethod handler-matches-p ((handler template-handler)) 
    310310  (handler-case  
    311       (find-template-pathname handler (script-name)) 
     311      (find-template-pathname handler (script-name*)) 
    312312    (template-not-found (c) 
    313313      (declare (ignore c)) 
    …… 
    319319    (let ((body 
    320320           (expand-template handler 
    321                             (subseq (script-name) 
     321                            (subseq (script-name*) 
    322322                                    (length (page-handler-prefix handler))) 
    323323                            :env (initial-template-environment handler)))) 

  • trunk/bknr/web/src/web/web-macros.lisp

    r3013 r3270  
    5858  `(multiple-value-bind 
    5959    (match strings) 
    60     (scan-to-strings (format nil "/~a/([0-9]+)(|/.*)$" ,prefix) (script-name)) 
     60    (scan-to-strings (format nil "/~a/([0-9]+)(|/.*)$" ,prefix) (script-name*)) 
    6161    (unless match 
    6262      (http-error +http-bad-request+ "bad request - missing image path or loid")) 

  • trunk/bknr/web/src/web/web-utils.lisp

    r2921 r3270  
    111111 
    112112(defun parse-url () 
    113   (values-list (cddr (mapcar #'url-decode (split "/" (script-name)))))) 
     113  (values-list (cddr (mapcar #'url-decode (split "/" (script-name*)))))) 
    114114 
    115115(defun last-url-component () 
    116116  (register-groups-bind (last) 
    117       ("/([^\\/]+)$" (script-name)) 
     117      ("/([^\\/]+)$" (script-name*)) 
    118118    last)) 
    119119 
    …… 
    134134  "Returns the Path of the request under the handler prefix" 
    135135  (let ((len (length (page-handler-prefix handler)))) 
    136     (subseq (script-name) len))) 
     136    (subseq (script-name*) len))) 
    137137 
    138138(defun self-url (&key command prefix) 
    139139  (destructuring-bind 
    140140        (empty old-prefix object-id &rest old-command) 
    141       (split "/" (script-name)) 
     141      (split "/" (script-name*)) 
    142142    (declare (ignore empty)) 
    143143    #?"/$((or prefix old-prefix))/$(object-id)/$((or command old-command))"))