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