Artifact
62a996e09539fd1e41b7cd1c3078dfa08f08da84:
0000: 28 75 73 65 20 74 65 73 74 20 6d 64 35 29 0a 0a (use test md5)..
0010: 28 72 65 71 75 69 72 65 2d 65 78 74 65 6e 73 69 (require-extensi
0020: 6f 6e 20 73 71 6c 69 74 65 33 29 0a 28 69 6d 70 on sqlite3).(imp
0030: 6f 72 74 20 28 70 72 65 66 69 78 20 73 71 6c 69 ort (prefix sqli
0040: 74 65 33 20 73 71 6c 69 74 65 33 3a 29 29 0a 0a te3 sqlite3:))..
0050: 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 72 79 (require-library
0060: 20 64 62 69 29 0a 0a 3b 3b 20 28 64 65 63 6c 61 dbi)..;; (decla
0070: 72 65 20 28 75 73 65 73 20 73 74 6d 6c 29 29 0a re (uses stml)).
0080: 0a 28 69 6e 63 6c 75 64 65 20 22 72 65 71 75 69 .(include "requi
0090: 72 65 6d 65 6e 74 73 2e 73 63 6d 22 29 0a 28 69 rements.scm").(i
00a0: 6e 63 6c 75 64 65 20 22 63 6f 6f 6b 69 65 2e 73 nclude "cookie.s
00b0: 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 6d cm").(include "m
00c0: 69 73 63 2d 73 74 6d 6c 2e 73 63 6d 22 29 0a 28 isc-stml.scm").(
00d0: 69 6e 63 6c 75 64 65 20 22 66 6f 72 6d 64 61 74 include "formdat
00e0: 2e 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 .scm").(include
00f0: 22 73 74 6d 6c 2e 73 63 6d 22 29 0a 28 69 6e 63 "stml.scm").(inc
0100: 6c 75 64 65 20 22 73 65 73 73 69 6f 6e 2e 73 63 lude "session.sc
0110: 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 73 71 m").(include "sq
0120: 6c 74 62 6c 2e 73 63 6d 22 29 0a 28 69 6e 63 6c ltbl.scm").(incl
0130: 75 64 65 20 22 68 74 6d 6c 2d 66 69 6c 74 65 72 ude "html-filter
0140: 2e 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 .scm").(include
0150: 22 6b 65 79 73 74 6f 72 65 2e 73 63 6d 22 29 0a "keystore.scm").
0160: 0a 28 64 65 66 69 6e 65 20 70 20 28 6f 70 65 6e .(define p (open
0170: 2d 69 6e 70 75 74 2d 66 69 6c 65 20 22 74 65 73 -input-file "tes
0180: 74 2e 73 74 6d 6c 22 29 29 0a 28 70 72 69 6e 74 t.stml")).(print
0190: 20 28 70 72 6f 63 65 73 73 2d 70 6f 72 74 20 70 (process-port p
01a0: 29 29 0a 28 63 6c 6f 73 65 2d 69 6e 70 75 74 2d )).(close-input-
01b0: 70 6f 72 74 20 70 29 0a port p).