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

Add a bang to SET-OPTIONS-SESSION-LIFETIME, SET-OPTIONS-CACHE-SURFLETS? and ADJUST-TIMEOUT

This commit is contained in:
interp 2003-03-09 18:49:09 +00:00
parent 536fe1394c
commit 4748a882c3
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/packages.scm
View File

@ -37,8 +37,8 @@
options-session-lifetime options-session-lifetime
options-cache-surflets? options-cache-surflets?
options-surflet-path options-surflet-path
set-options-session-lifetime set-options-session-lifetime!
set-options-cache-surflets? set-options-cache-surflets?!
get-sessions get-sessions
session-surflet-name session-surflet-name
@ -49,7 +49,7 @@
delete-session! delete-session!
session-adjust-timeout! session-adjust-timeout!
adjust-timeout adjust-timeout!
get-continuations get-continuations
delete-continuation! delete-continuation!

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

@ -338,9 +338,9 @@
(set-memo:message memo 'adjust-timeout)) (set-memo:message memo 'adjust-timeout))
(release-lock *session-table-lock*)) (release-lock *session-table-lock*))
;;; ADJUST-TIMEOUT ;;; ADJUST-TIMEOUT!
;; Resets time-to-die of current session. ;; Resets time-to-die of current session.
(define (adjust-timeout) (define (adjust-timeout!)
(session-adjust-timeout! (instance-session-id))) (session-adjust-timeout! (instance-session-id)))
;;; RESET-SESSION-TABLE! ;;; RESET-SESSION-TABLE!
@ -635,10 +635,10 @@
(define-record-type options :options (define-record-type options :options
(make-options surflet-path cache-surflets? session-lifetime) (make-options surflet-path cache-surflets? session-lifetime)
options? options?
(surflet-path options:surflet-path set-options:surflet-path) (surflet-path options:surflet-path set-options:surflet-path!)
(cache-surflets? options:cache-surflets? set-options:cache-surflets?) (cache-surflets? options:cache-surflets? set-options:cache-surflets?!)
;; session lifetime is in seconds ;; session lifetime is in seconds
(session-lifetime options:session-lifetime set-options:session-lifetime)) (session-lifetime options:session-lifetime set-options:session-lifetime!))
;; Constructor with defaults. ;; Constructor with defaults.
(define (make-default-options surflet-path) (define (make-default-options surflet-path)
@ -653,8 +653,8 @@
(define options-surflet-path (make-fluid-selector options:surflet-path)) (define options-surflet-path (make-fluid-selector options:surflet-path))
(define options-cache-surflets? (make-fluid-selector options:cache-surflets?)) (define options-cache-surflets? (make-fluid-selector options:cache-surflets?))
(define options-session-lifetime (make-fluid-selector options:session-lifetime)) (define options-session-lifetime (make-fluid-selector options:session-lifetime))
(define set-options-cache-surflets? (make-fluid-setter set-options:cache-surflets?)) (define set-options-cache-surflets?! (make-fluid-setter set-options:cache-surflets?!))
(define set-options-session-lifetime (make-fluid-setter set-options:session-lifetime)) (define set-options-session-lifetime! (make-fluid-setter set-options:session-lifetime!))
;;; SURFLET-RESPONSE: Surflets are expected to return this object type. ;;; SURFLET-RESPONSE: Surflets are expected to return this object type.

4
scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
View File

@ -59,7 +59,7 @@
(if (and (integer? result) (if (and (integer? result)
(> result 0)) (> result 0))
(begin (begin
(set-options-session-lifetime result) (set-options-session-lifetime! result)
(handler-options req (handler-options req
(format #f "Session lifetime changed to ~a." (format #f "Session lifetime changed to ~a."
(options-session-lifetime)))) (options-session-lifetime))))
@ -67,7 +67,7 @@
(handler-options req "Please enter a valid, positive integer number")))) (handler-options req "Please enter a valid, positive integer number"))))
((returned-via? submit-cache bindings) ((returned-via? submit-cache bindings)
(let ((cache-plugins? (input-field-value cache-checkbox bindings))) (let ((cache-plugins? (input-field-value cache-checkbox bindings)))
(set-options-cache-surflets? cache-plugins?) (set-options-cache-surflets?! cache-plugins?)
(handler-options req (handler-options req
(format #f "Caching turned ~s." (format #f "Caching turned ~s."
(if cache-plugins? "on" "off"))))) (if cache-plugins? "on" "off")))))