Artifact b45ac3279666f1dda4b5dddd0d2aee444b0e3c36:

• File example/pages/sys-state/view.scm — part of check-in [d3abae2d97] at 2011-05-15 20:43:16 on branch trunk — Initial check in after moving from http://www.kiatoa.com/fossils/opensrc (user: matt, size: 415) [annotate] [blame] [check-ins using]

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