49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
-
+
|
(globalvars (make-hash-table))
(globalvars-before (make-hash-table))
;; ports and log file
(curr-err #f)
(log-port (current-error-port))
(logfile "/tmp/stml.log")
(seen-pages '())
(page-dir-style #t)
(page-dir-style 'flat)
(debug-mode #f)
(session-id #f)
(request-method #f)
(domain "localhost")
(twikidir #f)
(script #f)
(force-ssl #f)
|
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
|
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
|
+
|
;; (session:initialize session)
(session:setup session)
(session:get-vars session)
(sdat-log-port-set! session ;; (current-error-port))
(open-output-file (sdat-logfile session) #:append))
(s:validate-inputs)
(change-directory (sdat-sroot session))
(session:run-actions session)
(sdat-pagedat-set! session
(append (sdat-pagedat session)
(s:call (sdat-toppage session))))
(if (eq? (sdat-page-type session) 'html) ;; default is html.
(session:cgi-out session)
(session:alt-out session))
|