Artifact e1ba568e5b15eae6d7b90b2f79ff93ee18f254ef:
- 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]
;; (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))) )