33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;; (s:log "HTTP_COOKIE" (get-environment-variable "HTTP_COOKIE"))
;; (s:log "stdin-dat=" (slot-ref s:session 'stdin-dat))
(s:validate-inputs)
(session:run-actions s:session)
(slot-set! s:session 'pagedat
(append (slot-ref s:session 'pagedat)
(s:call (slot-ref s:session 'toppage))))
(if (eq? (slot-ref s:session 'page-type) 'html) ;; default is html.
(session:cgi-out s:session)
(session:alt-out s:session))
(session:save-vars s:session)
(session:close s:session)
|
|
|
|
|
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;; (s:log "HTTP_COOKIE" (get-environment-variable "HTTP_COOKIE"))
;; (s:log "stdin-dat=" (slot-ref s:session 'stdin-dat))
(s:validate-inputs)
(session:run-actions s:session)
(sdat-set-pagedat! s:session
(append (sdat-get-pagedat s:session)
(s:call (sdat-get-toppage s:session))))
(if (eq? (sdat-get-page-type s:session) 'html) ;; default is html.
(session:cgi-out s:session)
(session:alt-out s:session))
(session:save-vars s:session)
(session:close s:session)
|