From afada4efb26cdd3ab7e713c1fbef7563feaf02a8 Mon Sep 17 00:00:00 2001 From: interp Date: Sat, 25 Jan 2003 16:22:37 +0000 Subject: [PATCH] Look for RESUME-URL-IDS only in the file-name, not in the path. --- scheme/httpd/surflets/surflet-handler.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 8f8b1b7..f83f1a6 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -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)))