Differences From Artifact [ac18dafbf9]:
- File cgisetup/pages/index.scm — part of check-in [f9ed9f102e] at 2017-02-26 21:22:54 on branch v1.64 — Added beginings for cgi interface support (user: matt, size: 338) [annotate] [blame] [check-ins using]
To Artifact [e1ba568e5b]:
- File cgisetup/pages/index.scm — part of check-in [d764a365bb] at 2017-02-26 21:47:33 on branch v1.64 — Very primitive example cgi page working (user: matt, size: 388) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 | + + + | ;; (require-library chicken) ;; (import chicken) (include "../../pgdb.scm") (declare (uses pgdb)) ;; (include "src/common_records.scm") (include "pages/index_ctrl.scm") (define (pages:index session db shared) ;; (s:log " HTTP_COOKIE=" (get-environment-variable "HTTP_COOKIE")) (include "pages/index_view.scm") ;; (s:html (s:head "head")(s:body "Got here" (current-directory))) |
︙ |