scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove unused SERVLET-PREFIX option.

This commit is contained in:
interp 2002-12-02 08:42:37 +00:00
parent ba04964918
commit ffa8ad13ae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/surflets/surflet-handler.scm
View File

@ -49,6 +49,8 @@
;; instance lifetime is in seconds ;; instance lifetime is in seconds
(instance-lifetime options:instance-lifetime set-options:instance-lifetime)) (instance-lifetime options:instance-lifetime set-options:instance-lifetime))
;; Servlet-prefix is unused now. Formerly, it contained the virtual
;; path prefix for the handler.
(define (make-default-options servlet-path servlet-prefix) (define (make-default-options servlet-path servlet-prefix)
(make-options servlet-path servlet-prefix #t 600)) (make-options servlet-path servlet-prefix #t 600))
@ -79,10 +81,8 @@
(lambda () (lambda ()
(random-integer 1073741824)))) ; I hope, 1+ billion is enough.... (random-integer 1073741824)))) ; I hope, 1+ billion is enough....
;; Servlet-prefix gives virtual prefixed path to servlets. Currently, (define (servlet-handler servlet-path)
;; it is ignored. (set-thread-fluid! *options* (make-default-options servlet-path #f))
(define (servlet-handler servlet-path . servlet-prefix)
(set-thread-fluid! *options* (make-default-options servlet-path servlet-prefix))
(lambda (path req) (lambda (path req)
(if (pair? path) ; need at least one element (if (pair? path) ; need at least one element
(let ((request-method (request-method req)) (let ((request-method (request-method req))