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

29
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,21 +202,19 @@
(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)))
(let ((continuation-id
(with-lock continuation-table-lock
(let ((c-id (generate-new-table-id continuations-table)))
(table-set! continuations-table c-id return)
c-id))))
(let ((new-url (make-resume-url (session-surflet-name session)
session-id
continuation-counter
continuation-id)))
(make-http-response (response-maker new-url))))))
(let ((continuations-table (session-continuation-table session))
(continuation-table-lock (session-continuation-table-lock session))
(continuation-counter (session-next-continuation-counter session)))
(let ((continuation-id
(with-lock continuation-table-lock
(let ((c-id (generate-new-table-id continuations-table)))
(table-set! continuations-table c-id return)
c-id))))
(let ((new-url (make-resume-url (session-surflet-name session)
session-id
continuation-counter
continuation-id)))
(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.")))))