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

Look for RESUME-URL-IDS only in the file-name, not in the path.

This commit is contained in:
interp 2003-01-25 16:22:37 +00:00
parent e934340fb5
commit afada4efb2
1 changed files with 5 additions and 3 deletions
scheme/httpd/surflets
surflet-handler.scm

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

@ -179,8 +179,9 @@
(lambda (path-string surflet-path req) (lambda (path-string surflet-path req)
(receive (session-id continuation-id) (receive (session-id continuation-id)
(resume-url-ids path-string) ;; Searches ids only in file-name.
;; try to get continuation-table and then the continuation (resume-url-ids (file-name-nondirectory path-string))
;; Try to get continuation-table and then the continuation.
(let ((session (session-lookup session-id))) (let ((session (session-lookup session-id)))
(if session (if session
(let* ((continuation-table (session-continuation-table session)) (let* ((continuation-table (session-continuation-table session))
@ -558,7 +559,8 @@
continuation-id)) continuation-id))
(define (resume-url-ids resume-url) (define (resume-url-ids resume-url)
(let ((match (regexp-search *resume-url-regexp* resume-url))) (let ((match (regexp-search *resume-url-regexp*
(file-name-nondirectory resume-url))))
(if match (if match
(values (string->number (match:substring match 2)) (values (string->number (match:substring match 2))
(string->number (match:substring match 3))) (string->number (match:substring match 3)))