Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -25,11 +25,11 @@ # setup.scm html-filter.scm requirements.scm keystore.scm \ # cookie.scm sqltbl.scm # csc stmlrun.scm $(TARGDIR)/stmlrun : stmlrun - cp stmlrun $(TARGDIR) + install stmlrun $(TARGDIR) chmod a+rx $(TARGDIR)/stmlrun $(TARGDIR)/modules : mkdir -p $(TARGDIR)/modules Index: stmlrun.scm ================================================================== --- stmlrun.scm +++ stmlrun.scm @@ -37,29 +37,21 @@ (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)) - + (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)))) - + (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) - - (exit)) + ;; (raise-error) + ;; (exit) + )