File example/pages/sys-state/view.scm artifact b45ac32796 part of check-in 77e3268c9d
;; 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))