suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing timeouts and making send/finish expire the session

Browse Source 
svn: r855
This commit is contained in:
Jay McCarthy 2005-09-15 11:18:39 +00:00
parent 98dd029e7d
commit edfd2a4dd3
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/servlet.ss
View File

@ -49,6 +49,11 @@
;; send a response and clear the continuation table ;; send a response and clear the continuation table
(define (send/finish resp) (define (send/finish resp)
(clear-continuations! (thread-cell-ref current-servlet-instance)) (clear-continuations! (thread-cell-ref current-servlet-instance))
; If we readjust the timeout to something small, the session will expire shortly
; we cannot wait for send/back to return, because it doesn't
; Also, we cannot get the initial-connection-timeout variable from here
; In the future, we should use the servlet's specific default-timeout
(adjust-timeout! 10)
(send/back resp)) (send/back resp))
;; send/suspend: (url -> response) [(request -> response)] -> request ;; send/suspend: (url -> response) [(request -> response)] -> request

2
collects/web-server/timer.ss
View File

@ -79,7 +79,7 @@
; add secs to the timer, rather than replace ; add secs to the timer, rather than replace
(define (increment-timer timer secs) (define (increment-timer timer secs)
(revise-timer! timer (revise-timer! timer
(+ (timer-expire-seconds timer) (+ (- (timer-expire-seconds timer) (current-inexact-milliseconds))
(* 1000 secs)) (* 1000 secs))
(timer-action timer)))) (timer-action timer))))