Changeset 12005 in project for release/4/spiffy/trunk/spiffy.scm

Timestamp:

09/25/08 23:00:49 (13 years ago)

Author:

sjamaan

Message:

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

File:

• release/4/spiffy/trunk/spiffy.scm (modified) (3 diffs)

release/4/spiffy/trunk/spiffy.scm

@@ -165 +165 @@
   (let ((path (make-pathname (root-path) current-path)))
     (cond
-     ;; Check if there's a registered URI-handler first
+     ;; TODO Check if there's a registered URI-handler first
      ((directory? path)
       (match remaining-path
@@ -177 +177 @@
 
 ;; Determine the vhost to use. This tries to use the Host: header first
-;; and it it's not there, falls back to try to determine the vhost
+;; and if it's not there, falls back to try to determine the vhost
 ;; from host in the request line's URI, if any.
-;; In >= HTTP/1.1, a Host line is required, as per section 14.23 of RFC 2616
+;; In HTTP >= 1.1, a Host line is required, as per section 14.23 of RFC 2616.
 ;; It returns the empty string for HTTP/1.0, which is a bit of a hack but
 ;; makes host regex matching less complicated.
@@ -209 +209 @@
                                  (request-uri (current-request))
                                  (absolute-uri (string-append "http://" host)))))) ; XXX
-            (process-entry (car path) (cdr path)))
+            (process-entry "" path))
           ;; No host in the request? That's an error.
           (send-status 400 "Bad request"