Changeset 12005 in project


Ignore:
Timestamp:
09/25/08 23:00:49 (12 years ago)
Author:
sjamaan
Message:

Fix the way entries are processed. Start in rootdir with empty path string

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r11985 r12005  
    165165  (let ((path (make-pathname (root-path) current-path)))
    166166    (cond
    167      ;; Check if there's a registered URI-handler first
     167     ;; TODO Check if there's a registered URI-handler first
    168168     ((directory? path)
    169169      (match remaining-path
     
    177177
    178178;; Determine the vhost to use. This tries to use the Host: header first
    179 ;; and it it's not there, falls back to try to determine the vhost
     179;; and if it's not there, falls back to try to determine the vhost
    180180;; from host in the request line's URI, if any.
    181 ;; In >= HTTP/1.1, a Host line is required, as per section 14.23 of RFC 2616
     181;; In HTTP >= 1.1, a Host line is required, as per section 14.23 of RFC 2616.
    182182;; It returns the empty string for HTTP/1.0, which is a bit of a hack but
    183183;; makes host regex matching less complicated.
     
    209209                                 (request-uri (current-request))
    210210                                 (absolute-uri (string-append "http://" host)))))) ; XXX
    211             (process-entry (car path) (cdr path)))
     211            (process-entry "" path))
    212212          ;; No host in the request? That's an error.
    213213          (send-status 400 "Bad request"
Note: See TracChangeset for help on using the changeset viewer.