Artifact
0953505b2d015a92108c7cb15c4ea430bb1b8d74:
0000: 3b 3b 20 54 68 69 73 20 64 6f 65 73 6e 27 74 20 ;; This doesn't
0010: 77 6f 72 6b 20 79 65 74 0a 3b 3b 0a 28 75 73 65 work yet.;;.(use
0020: 20 73 70 69 66 66 79 20 63 67 69 2d 68 61 6e 64 spiffy cgi-hand
0030: 6c 65 72 29 0a 0a 28 73 70 69 66 66 79 2d 64 65 ler)..(spiffy-de
0040: 62 75 67 2d 6d 6f 64 65 20 23 74 29 0a 0a 28 73 bug-mode #t)..(s
0050: 70 69 66 66 79 2d 66 69 6c 65 2d 65 78 74 2d 68 piffy-file-ext-h
0060: 61 6e 64 6c 65 72 73 20 0a 20 60 28 28 22 64 72 andlers . `(("dr
0070: 63 64 62 22 20 2e 20 2c 28 63 67 69 2d 68 61 6e cdb" . ,(cgi-han
0080: 64 6c 65 72 2a 20 22 2f 70 61 74 68 2f 74 6f 2f dler* "/path/to/
0090: 64 72 63 64 62 22 29 29 29 29 0a 0a 28 73 70 69 drcdb"))))..(spi
00a0: 66 66 79 2d 72 6f 6f 74 2d 70 61 74 68 20 22 2f ffy-root-path "/
00b0: 70 61 74 68 2f 74 6f 2f 77 65 62 22 29 0a 0a 28 path/to/web")..(
00c0: 73 74 61 72 74 2d 73 65 72 76 65 72 20 6c 6f 63 start-server loc
00d0: 61 74 69 6f 6e 3a 20 28 67 65 74 2d 68 6f 73 74 ation: (get-host
00e0: 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 -name).
00f0: 20 20 20 20 20 20 20 69 6e 69 74 3a 20 6e 6f 6f init: noo
0100: 70 29 0a p).