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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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