Artifact ac18dafbf914e0364e403436cea551188a992b46:
- 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]
;; (require-library chicken) ;; (import chicken) ;; (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))) )