Overview
Comment:Corrected default for page-dir-style, change directory to sroot
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | stml2
Files: files | file ages | folders
SHA1: d5508f1e3b2294bbb8f4f0286348c291551ed072
User & Date: matt on 2018-09-12 06:21:23
Other Links: branch diff | manifest | tags
Context
2018-09-13
14:13
Allow either debugmode or debug-mode in config. Someday deprecate debugmode check-in: 3a34ddd1b5 user: matt tags: stml2
2018-09-12
06:21
Corrected default for page-dir-style, change directory to sroot check-in: d5508f1e3b user: matt tags: stml2
2018-09-09
16:44
Fixed s:if-{param,session-var} calls to return null list for safe processing of stml pages. check-in: 30a1c2e2d2 user: matt tags: stml2
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified stml2.scm from [fd2fc4f492] to [8da063a8b5].

︙︙
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)
  (debug-mode      #f)
  (session-id      #f)
  (request-method  #f)
  (domain          "localhost")
  (twikidir        #f)
  (script          #f)
  (force-ssl       #f)








|








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  '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

  ;; (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)

  (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))








>








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))
︙︙