Artifact
b45ac3279666f1dda4b5dddd0d2aee444b0e3c36:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 30 38 2c 20 4d 61 74 74 68 65 77 20 7-2008, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 20 4b 69 61 74 6f 61 2e Welland. Kiatoa.
0030: 63 6f 6d 20 41 6c 6c 20 72 69 67 68 74 73 20 72 com All rights r
0040: 65 73 65 72 76 65 64 2e 0a 3b 3b 20 0a 0a 3b 3b eserved..;; ..;;
0050: 20 73 79 73 2d 73 74 61 74 65 0a 0a 28 6c 69 73 sys-state..(lis
0060: 74 20 28 6c 65 74 20 28 28 70 20 28 6f 70 65 6e t (let ((p (open
0070: 2d 69 6e 70 75 74 2d 70 69 70 65 20 22 65 6e 76 -input-pipe "env
0080: 22 29 29 29 0a 09 28 6c 65 74 20 6c 6f 6f 70 20 ")))..(let loop
0090: 28 28 6c 20 28 72 65 61 64 2d 6c 69 6e 65 20 70 ((l (read-line p
00a0: 29 29 0a 09 09 20 20 20 28 72 65 73 20 27 28 29 ))... (res '()
00b0: 29 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 20 28 )).. (if (not (
00c0: 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 6c 29 29 0a eof-object? l)).
00d0: 09 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 72 65 . (loop (re
00e0: 61 64 2d 6c 69 6e 65 20 70 29 28 63 6f 6e 73 20 ad-line p)(cons
00f0: 28 6c 69 73 74 20 6c 20 22 3c 42 52 3e 22 29 20 (list l "<BR>")
0100: 72 65 73 29 29 0a 09 20 20 20 20 20 20 72 65 73 res)).. res
0110: 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 22 55 53 ))). ;; "US
0120: 45 52 3d 22 20 28 75 73 65 72 2d 69 6e 66 6f 72 ER=" (user-infor
0130: 6d 61 74 69 6f 6e 20 28 63 75 72 72 65 6e 74 2d mation (current-
0140: 75 73 65 72 2d 69 64 29 29 0a 0a 20 20 20 20 20 user-id))..
0150: 20 28 73 3a 68 32 20 22 46 6f 72 6d 20 64 61 74 (s:h2 "Form dat
0160: 61 22 29 0a 20 20 20 20 20 20 28 73 65 73 73 69 a"). (sessi
0170: 6f 6e 3a 70 70 2d 66 6f 72 6d 64 61 74 20 73 3a on:pp-formdat s:
0180: 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 22 session). "
0190: 61 72 67 76 3d 22 20 28 61 72 67 76 29 29 0a argv=" (argv)).