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


Ignore:
Timestamp:
01/21/09 23:54:48 (11 years ago)
Author:
sjamaan
Message:

Switch to uri-common

File:
1 edited

Legend:

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

    r12705 r13054  
    5151(import chicken scheme extras ports files data-structures)
    5252(require-extension srfi-1 srfi-18 tcp regex posix
    53                    intarweb uri-generic sendfile matchable)
     53                   intarweb uri-common sendfile matchable)
    5454
    5555(define version 4)
     
    291291         (match remaining-path
    292292                (()    (redirect-directory-root (make-pathname "/" current-path)))
    293                 (("/") (process-directory current-path))
     293                (("") (process-directory current-path))
    294294                (else  (process-entry (make-pathname current-path (car remaining-path))
    295295                                      (cdr remaining-path)))))))
     
    353353                 (with-output-to-string print-call-chain))
    354354            (let ((path (uri-path (request-uri (current-request)))))
    355               (if (and (uri-host (request-uri (current-request))) (pair? path))
     355              (if (and (uri-host (request-uri (current-request))) (pair? path)
     356                       (eq? (car path) '/))
    356357                  (let* ((host (uri-host (request-uri (current-request))))
    357358                         (handler (alist-ref host (vhost-map)
     
    361362                                                   (string-match h host))))))
    362363                    (if handler
    363                         (handler (lambda () (process-entry "" path)))
     364                        (handler (lambda () (process-entry "" (cdr path))))
    364365                        ;; Is this ok?
    365366                        ((handle-not-found) path)))
Note: See TracChangeset for help on using the changeset viewer.