Megatest

Artifact b45ac3279666f1dda4b5dddd0d2aee444b0e3c36:

• File stml2/example/pages/sys-state/view.scm — part of check-in [78408a15fb] at 2019-12-16 22:57:30 on branch v1.70-refactor01 — Added stml2 as compilation unit/module (user: matt, size: 415) [annotate] [blame] [check-ins using] [more...]

;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved.
;; 

;; sys-state

(list (let ((p (open-input-pipe "env")))
	(let loop ((l (read-line p))
		   (res '()))
	  (if (not (eof-object? l))
	      (loop (read-line p)(cons (list l "<BR>") res))
	      res)))
      ;; "USER=" (user-information (current-user-id))

      (s:h2 "Form data")
      (session:pp-formdat s:session)
      "argv=" (argv))