35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
(declare (uses misc-stml))
(declare (uses formdat))
(declare (uses stml))
(declare (uses session))
(declare (uses setup)) ;; s:session gets created here
(declare (uses sqltbl))
(declare (uses keystore))
(sdat-set-log-port! s:session ;; (current-error-port))
(open-output-file (sdat-get-logfile s:session) #:append))
;; (s:log "HTTP_COOKIE" (get-environment-variable "HTTP_COOKIE"))
;; (s:log "stdin-dat=" (slot-ref s:session 'stdin-dat))
(s:validate-inputs)
(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))
(exit))
|
|
|
<
<
<
<
<
<
|
|
<
<
<
|
|
>
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(declare (uses misc-stml))
(declare (uses formdat))
(declare (uses stml))
(declare (uses session))
(declare (uses setup)) ;; s:session gets created here
(declare (uses sqltbl))
(declare (uses keystore))
(sdat-set-log-port! s:session ;; (current-error-port))
(open-output-file (sdat-get-logfile s:session) #:append))
(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)
;; (raise-error)
;; (exit)
)
|