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

`cat ~/diff-sunet/$num/log`

This commit is contained in:
interp 2003-08-01 17:40:44 +00:00
parent 6f27658c68
commit 4673e0012f
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,6 +181,7 @@
(with-cwd surflet-path (with-cwd surflet-path
(begin (begin
(register-instance! session-id) (register-instance! session-id)
(session-adjust-timeout! session-id)
(resume s-req))) (resume s-req)))
(bad-request path-string s-req))) (bad-request path-string s-req)))
(bad-request path-string s-req))) (bad-request path-string s-req)))
@ -201,8 +202,6 @@
(session (session-lookup session-id))) (session (session-lookup session-id)))
;; the instance might be deleted in the meanwhile ;; the instance might be deleted in the meanwhile
(if session (if session
(begin
(session-adjust-timeout! session-id)
(let ((continuations-table (session-continuation-table session)) (let ((continuations-table (session-continuation-table session))
(continuation-table-lock (session-continuation-table-lock session)) (continuation-table-lock (session-continuation-table-lock session))
(continuation-counter (session-next-continuation-counter session))) (continuation-counter (session-next-continuation-counter session)))
@ -215,7 +214,7 @@
session-id session-id
continuation-counter continuation-counter
continuation-id))) continuation-id)))
(make-http-response (response-maker new-url)))))) (make-http-response (response-maker new-url)))))
(make-error-response (status-code not-found) #f (make-error-response (status-code not-found) #f
"The URL refers to a SUrflet, whose session is no longer alive."))))) "The URL refers to a SUrflet, whose session is no longer alive.")))))