0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 2d 2a 2d 0a 3b 3b 0a 3b 3b 20 54 eme; -*-.;;.;; T
0020: 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 72 74 his file is part
0030: 20 6f 66 20 57 65 62 47 61 74 65 20 66 6f 72 20 of WebGate for
0040: 43 48 49 43 4b 45 4e 2e 0a 3b 3b 20 43 6f 70 79 CHICKEN..;; Copy
0050: 72 69 67 68 74 20 28 63 29 20 32 30 31 31 2d 32 right (c) 2011-2
0060: 30 31 33 20 62 79 20 54 68 6f 6d 61 73 20 43 68 013 by Thomas Ch
0070: 75 73 74 2e 20 20 41 6c 6c 20 72 69 67 68 74 73 ust. All rights
0080: 20 72 65 73 65 72 76 65 64 2e 0a 3b 3b 0a 3b 3b reserved..;;.;;
0090: 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 20 68 Permission is h
00a0: 65 72 65 62 79 20 67 72 61 6e 74 65 64 2c 20 66 ereby granted, f
00b0: 72 65 65 20 6f 66 20 63 68 61 72 67 65 2c 20 74 ree of charge, t
00c0: 6f 20 61 6e 79 20 70 65 72 73 6f 6e 0a 3b 3b 20 o any person.;;
00d0: 6f 62 74 61 69 6e 69 6e 67 20 61 20 63 6f 70 79 obtaining a copy
00e0: 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 of this softwar
00f0: 65 20 61 6e 64 20 61 73 73 6f 63 69 61 74 65 64 e and associated
0100: 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 3b documentation.;
0110: 3b 20 66 69 6c 65 73 20 28 74 68 65 20 53 6f 66 ; files (the Sof
0120: 74 77 61 72 65 29 2c 20 74 6f 20 64 65 61 6c 20 tware), to deal
0130: 69 6e 20 74 68 65 20 53 6f 66 74 77 61 72 65 20 in the Software
0140: 77 69 74 68 6f 75 74 20 72 65 73 74 72 69 63 74 without restrict
0150: 69 6f 6e 2c 0a 3b 3b 20 69 6e 63 6c 75 64 69 6e ion,.;; includin
0160: 67 20 77 69 74 68 6f 75 74 20 6c 69 6d 69 74 61 g without limita
0170: 74 69 6f 6e 20 74 68 65 20 72 69 67 68 74 73 20 tion the rights
0180: 74 6f 20 75 73 65 2c 20 63 6f 70 79 2c 20 6d 6f to use, copy, mo
0190: 64 69 66 79 2c 0a 3b 3b 20 6d 65 72 67 65 2c 20 dify,.;; merge,
01a0: 70 75 62 6c 69 73 68 2c 20 64 69 73 74 72 69 62 publish, distrib
01b0: 75 74 65 2c 20 73 75 62 6c 69 63 65 6e 73 65 2c ute, sublicense,
01c0: 20 61 6e 64 2f 6f 72 20 73 65 6c 6c 20 63 6f 70 and/or sell cop
01d0: 69 65 73 20 6f 66 20 74 68 65 0a 3b 3b 20 53 6f ies of the.;; So
01e0: 66 74 77 61 72 65 2c 20 61 6e 64 20 74 6f 20 70 ftware, and to p
01f0: 65 72 6d 69 74 20 70 65 72 73 6f 6e 73 20 74 6f ermit persons to
0200: 20 77 68 6f 6d 20 74 68 65 20 53 6f 66 74 77 61 whom the Softwa
0210: 72 65 20 69 73 20 66 75 72 6e 69 73 68 65 64 0a re is furnished.
0220: 3b 3b 20 74 6f 20 64 6f 20 73 6f 2c 20 73 75 62 ;; to do so, sub
0230: 6a 65 63 74 20 74 6f 20 74 68 65 20 66 6f 6c 6c ject to the foll
0240: 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 owing conditions
0250: 3a 0a 3b 3b 20 0a 3b 3b 20 54 68 65 20 61 62 6f :.;; .;; The abo
0260: 76 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f 74 ve copyright not
0270: 69 63 65 20 61 6e 64 20 74 68 69 73 20 70 65 72 ice and this per
0280: 6d 69 73 73 69 6f 6e 20 6e 6f 74 69 63 65 20 73 mission notice s
0290: 68 61 6c 6c 20 62 65 0a 3b 3b 20 69 6e 63 6c 75 hall be.;; inclu
02a0: 64 65 64 20 69 6e 20 61 6c 6c 20 63 6f 70 69 65 ded in all copie
02b0: 73 20 6f 72 20 73 75 62 73 74 61 6e 74 69 61 6c s or substantial
02c0: 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 74 68 65 portions of the
02d0: 20 53 6f 66 74 77 61 72 65 2e 0a 3b 3b 20 0a 3b Software..;; .;
02e0: 3b 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 49 ; THE SOFTWARE I
02f0: 53 20 50 52 4f 56 49 44 45 44 20 41 53 49 53 2c S PROVIDED ASIS,
0300: 20 57 49 54 48 4f 55 54 20 57 41 52 52 41 4e 54 WITHOUT WARRANT
0310: 59 20 4f 46 20 41 4e 59 20 4b 49 4e 44 2c 0a 3b Y OF ANY KIND,.;
0320: 3b 20 45 58 50 52 45 53 53 20 4f 52 20 49 4d 50 ; EXPRESS OR IMP
0330: 4c 49 45 44 2c 20 49 4e 43 4c 55 44 49 4e 47 20 LIED, INCLUDING
0340: 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 20 BUT NOT LIMITED
0350: 54 4f 20 54 48 45 20 57 41 52 52 41 4e 54 49 45 TO THE WARRANTIE
0360: 53 20 4f 46 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 S OF.;; MERCHANT
0370: 41 42 49 4c 49 54 59 2c 20 46 49 54 4e 45 53 53 ABILITY, FITNESS
0380: 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 FOR A PARTICULA
0390: 52 20 50 55 52 50 4f 53 45 20 41 4e 44 0a 3b 3b R PURPOSE AND.;;
03a0: 20 4e 4f 4e 49 4e 46 52 49 4e 47 45 4d 45 4e 54 NONINFRINGEMENT
03b0: 2e 20 49 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 . IN NO EVENT SH
03c0: 41 4c 4c 20 54 48 45 20 41 55 54 48 4f 52 53 20 ALL THE AUTHORS
03d0: 4f 52 20 43 4f 50 59 52 49 47 48 54 20 48 4f 4c OR COPYRIGHT HOL
03e0: 44 45 52 53 0a 3b 3b 20 42 45 20 4c 49 41 42 4c DERS.;; BE LIABL
03f0: 45 20 46 4f 52 20 41 4e 59 20 43 4c 41 49 4d 2c E FOR ANY CLAIM,
0400: 20 44 41 4d 41 47 45 53 20 4f 52 20 4f 54 48 45 DAMAGES OR OTHE
0410: 52 20 4c 49 41 42 49 4c 49 54 59 2c 20 57 48 45 R LIABILITY, WHE
0420: 54 48 45 52 20 49 4e 20 41 4e 0a 3b 3b 20 41 43 THER IN AN.;; AC
0430: 54 49 4f 4e 20 4f 46 20 43 4f 4e 54 52 41 43 54 TION OF CONTRACT
0440: 2c 20 54 4f 52 54 20 4f 52 20 4f 54 48 45 52 57 , TORT OR OTHERW
0450: 49 53 45 2c 20 41 52 49 53 49 4e 47 20 46 52 4f ISE, ARISING FRO
0460: 4d 2c 20 4f 55 54 20 4f 46 20 4f 52 20 49 4e 0a M, OUT OF OR IN.
0470: 3b 3b 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 57 49 ;; CONNECTION WI
0480: 54 48 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 TH THE SOFTWARE
0490: 4f 52 20 54 48 45 20 55 53 45 20 4f 52 20 4f 54 OR THE USE OR OT
04a0: 48 45 52 20 44 45 41 4c 49 4e 47 53 20 49 4e 20 HER DEALINGS IN
04b0: 54 48 45 0a 3b 3b 20 53 4f 46 54 57 41 52 45 2e THE.;; SOFTWARE.
04c0: 0a 0a 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 ..(require-libra
04d0: 72 79 20 77 65 62 67 61 74 65 29 0a 0a 3b 3b 20 ry webgate)..;;
04e0: 55 73 65 20 2d 65 78 74 65 6e 64 20 61 74 2d 65 Use -extend at-e
04f0: 78 70 72 20 64 75 72 69 6e 67 20 63 6f 6d 70 69 xpr during compi
0500: 6c 61 74 69 6f 6e 21 0a 28 65 76 61 6c 2d 77 68 lation!.(eval-wh
0510: 65 6e 20 28 65 76 61 6c 29 0a 20 20 28 69 6d 70 en (eval). (imp
0520: 6f 72 74 20 28 6f 6e 6c 79 20 77 65 62 67 61 74 ort (only webgat
0530: 65 2d 75 74 69 6c 73 20 75 73 65 2d 61 74 2d 72 e-utils use-at-r
0540: 65 61 64 2d 74 61 62 6c 65 29 29 0a 20 20 28 75 ead-table)). (u
0550: 73 65 2d 61 74 2d 72 65 61 64 2d 74 61 62 6c 65 se-at-read-table
0560: 20 23 3a 6c 69 73 74 2d 61 72 67 75 6d 65 6e 74 #:list-argument
0570: 73 3f 20 23 74 29 29 0a 0a 28 69 6d 70 6f 72 74 s? #t))..(import
0580: 0a 20 77 65 62 67 61 74 65 20 28 6f 6e 6c 79 20 . webgate (only
0590: 77 65 62 67 61 74 65 2d 75 74 69 6c 73 20 62 61 webgate-utils ba
05a0: 73 65 36 34 2d 65 6e 63 6f 64 65 29 29 0a 0a 28 se64-encode))..(
05b0: 64 65 66 69 6e 65 20 63 6f 6d 6d 6f 6e 2d 68 65 define common-he
05c0: 61 64 0a 20 20 27 40 68 65 61 64 7b 0a 20 20 20 ad. '@head{.
05d0: 20 20 40 6d 65 74 61 5b 28 63 68 61 72 73 65 74 @meta[(charset
05e0: 20 22 75 74 66 2d 38 22 29 5d 0a 20 20 20 20 20 "utf-8")].
05f0: 40 6d 65 74 61 5b 28 6e 61 6d 65 20 22 76 69 65 @meta[(name "vie
0600: 77 70 6f 72 74 22 29 20 28 63 6f 6e 74 65 6e 74 wport") (content
0610: 20 22 77 69 64 74 68 3d 64 65 76 69 63 65 2d 77 "width=device-w
0620: 69 64 74 68 2c 20 69 6e 69 74 69 61 6c 2d 73 63 idth, initial-sc
0630: 61 6c 65 3d 31 2e 30 22 29 5d 0a 20 20 20 20 20 ale=1.0")].
0640: 40 74 69 74 6c 65 7b 57 65 62 47 61 74 65 7d 0a @title{WebGate}.
0650: 20 20 20 20 20 40 6d 65 74 61 5b 28 6e 61 6d 65 @meta[(name
0660: 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 29 20 "description")
0670: 28 63 6f 6e 74 65 6e 74 20 22 43 48 49 43 4b 45 (content "CHICKE
0680: 4e 20 57 65 62 47 61 74 65 20 65 78 61 6d 70 6c N WebGate exampl
0690: 65 22 29 5d 0a 20 20 20 20 20 40 6d 65 74 61 5b e")]. @meta[
06a0: 28 6e 61 6d 65 20 22 61 75 74 68 6f 72 22 29 20 (name "author")
06b0: 28 63 6f 6e 74 65 6e 74 20 22 54 68 6f 6d 61 73 (content "Thomas
06c0: 20 43 68 75 73 74 22 29 5d 0a 20 20 20 20 20 40 Chust")]. @
06d0: 6c 69 6e 6b 5b 28 72 65 6c 20 22 73 74 79 6c 65 link[(rel "style
06e0: 73 68 65 65 74 22 29 20 28 68 72 65 66 20 22 2f sheet") (href "/
06f0: 63 73 73 2f 62 6f 6f 74 73 74 72 61 70 2e 6d 69 css/bootstrap.mi
0700: 6e 2e 63 73 73 22 29 5d 0a 20 20 20 20 20 40 6c n.css")]. @l
0710: 69 6e 6b 5b 28 72 65 6c 20 22 73 74 79 6c 65 73 ink[(rel "styles
0720: 68 65 65 74 22 29 20 28 68 72 65 66 20 22 2f 63 heet") (href "/c
0730: 73 73 2f 62 6f 6f 74 73 74 72 61 70 2d 72 65 73 ss/bootstrap-res
0740: 70 6f 6e 73 69 76 65 2e 6d 69 6e 2e 63 73 73 22 ponsive.min.css"
0750: 29 5d 0a 20 20 20 20 20 40 73 74 79 6c 65 5b 28 )]. @style[(
0760: 74 79 70 65 20 22 74 65 78 74 2f 63 73 73 22 29 type "text/css")
0770: 5d 7b 62 6f 64 79 7b 70 61 64 64 69 6e 67 2d 74 ]{body{padding-t
0780: 6f 70 3a 36 30 70 78 3b 20 70 61 64 64 69 6e 67 op:60px; padding
0790: 2d 62 6f 74 74 6f 6d 3a 34 30 70 78 7d 7d 0a 20 -bottom:40px}}.
07a0: 20 20 7d 29 0a 0a 28 64 65 66 69 6e 65 20 63 6f })..(define co
07b0: 6d 6d 6f 6e 2d 66 6f 6f 74 0a 20 20 27 40 7b 0a mmon-foot. '@{.
07c0: 20 20 20 20 40 73 63 72 69 70 74 5b 28 73 72 63 @script[(src
07d0: 20 22 2f 6a 73 2f 6a 71 75 65 72 79 2e 6d 69 6e "/js/jquery.min
07e0: 2e 6a 73 22 29 5d 0a 20 20 20 20 40 73 63 72 69 .js")]. @scri
07f0: 70 74 5b 28 73 72 63 20 22 2f 6a 73 2f 62 6f 6f pt[(src "/js/boo
0800: 74 73 74 72 61 70 2e 6d 69 6e 2e 6a 73 22 29 5d tstrap.min.js")]
0810: 0a 20 20 20 7d 29 0a 0a 28 64 65 66 69 6e 65 2d . })..(define-
0820: 72 65 73 6f 75 72 63 65 20 28 72 6f 6f 74 2a 20 resource (root*
0830: 70 61 72 61 6d 65 74 65 72 73 29 0a 20 20 28 6d parameters). (m
0840: 61 6b 65 2d 72 65 64 69 72 65 63 74 2d 72 65 73 ake-redirect-res
0850: 70 6f 6e 73 65 20 33 30 31 20 28 72 65 73 6f 75 ponse 301 (resou
0860: 72 63 65 2d 75 72 69 20 72 6f 6f 74 29 29 29 0a rce-uri root))).
0870: 0a 28 64 65 66 69 6e 65 2d 72 65 73 6f 75 72 63 .(define-resourc
0880: 65 20 28 72 6f 6f 74 20 22 72 6f 6f 74 22 20 70 e (root "root" p
0890: 61 72 61 6d 65 74 65 72 73 29 0a 20 20 28 6d 61 arameters). (ma
08a0: 6b 65 2d 68 74 6d 6c 2d 72 65 73 70 6f 6e 73 65 ke-html-response
08b0: 0a 20 20 20 32 30 30 0a 20 20 20 60 40 68 74 6d . 200. `@htm
08c0: 6c 7b 0a 20 20 20 20 20 20 40 2c 63 6f 6d 6d 6f l{. @,commo
08d0: 6e 2d 68 65 61 64 0a 20 20 20 20 20 20 40 62 6f n-head. @bo
08e0: 64 79 7b 0a 20 20 20 20 20 20 20 20 40 64 69 76 dy{. @div
08f0: 5b 28 63 6c 61 73 73 20 22 6e 61 76 62 61 72 20 [(class "navbar
0900: 6e 61 76 62 61 72 2d 69 6e 76 65 72 73 65 20 6e navbar-inverse n
0910: 61 76 62 61 72 2d 66 69 78 65 64 2d 74 6f 70 22 avbar-fixed-top"
0920: 29 5d 7b 0a 20 20 20 20 20 20 20 20 20 20 40 64 )]{. @d
0930: 69 76 5b 28 63 6c 61 73 73 20 22 6e 61 76 62 61 iv[(class "navba
0940: 72 2d 69 6e 6e 65 72 22 29 5d 7b 0a 09 20 20 20 r-inner")]{..
0950: 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 63 6f @div[(class "co
0960: 6e 74 61 69 6e 65 72 22 29 5d 7b 0a 09 20 20 20 ntainer")]{..
0970: 20 20 20 40 61 5b 28 63 6c 61 73 73 20 22 62 72 @a[(class "br
0980: 61 6e 64 22 29 20 28 68 72 65 66 20 22 23 22 29 and") (href "#")
0990: 5d 7b 57 65 62 47 61 74 65 7d 0a 09 20 20 20 20 ]{WebGate}..
09a0: 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 6e @div[(class "n
09b0: 61 76 2d 63 6f 6c 6c 61 70 73 65 20 63 6f 6c 6c av-collapse coll
09c0: 61 70 73 65 22 29 5d 7b 0a 09 20 20 20 20 20 20 apse")]{..
09d0: 20 20 40 75 6c 5b 28 63 6c 61 73 73 20 22 6e 61 @ul[(class "na
09e0: 76 22 29 5d 7b 0a 09 20 20 20 20 20 20 20 20 20 v")]{..
09f0: 20 40 6c 69 5b 28 63 6c 61 73 73 20 22 61 63 74 @li[(class "act
0a00: 69 76 65 22 29 5d 7b 40 61 5b 28 68 72 65 66 20 ive")]{@a[(href
0a10: 22 23 22 29 5d 7b 4d 69 73 63 65 6c 6c 61 6e 65 "#")]{Miscellane
0a20: 6f 75 73 7d 7d 0a 09 20 20 20 20 20 20 20 20 20 ous}}..
0a30: 20 40 6c 69 7b 40 61 5b 28 68 72 65 66 20 2c 28 @li{@a[(href ,(
0a40: 72 65 73 6f 75 72 63 65 2d 75 72 69 20 63 61 6c resource-uri cal
0a50: 63 20 22 61 64 64 22 29 29 5d 7b 53 75 73 70 65 c "add"))]{Suspe
0a60: 6e 73 69 6f 6e 73 7d 7d 0a 09 20 20 20 20 20 20 nsions}}..
0a70: 20 20 7d 0a 09 20 20 20 20 20 20 7d 0a 09 20 20 }.. }..
0a80: 20 20 7d 0a 09 20 20 7d 0a 20 20 20 20 20 20 20 }.. }.
0a90: 20 7d 0a 20 20 20 20 20 20 20 20 40 64 69 76 5b }. @div[
0aa0: 28 63 6c 61 73 73 20 22 63 6f 6e 74 61 69 6e 65 (class "containe
0ab0: 72 22 29 5d 7b 0a 20 20 20 20 20 20 20 20 20 20 r")]{.
0ac0: 40 64 69 76 5b 28 63 6c 61 73 73 20 22 68 65 72 @div[(class "her
0ad0: 6f 2d 75 6e 69 74 22 29 5d 7b 0a 09 20 20 20 20 o-unit")]{..
0ae0: 40 68 31 7b 41 70 70 6c 69 63 61 74 69 6f 6e 20 @h1{Application
0af0: 45 78 61 6d 70 6c 65 7d 0a 09 20 20 20 20 40 70 Example}.. @p
0b00: 7b 0a 09 20 20 20 20 20 20 54 68 69 73 20 73 61 {.. This sa
0b10: 6d 70 6c 65 20 70 72 6f 67 72 61 6d 20 6a 75 73 mple program jus
0b20: 74 20 73 68 6f 77 73 20 73 6f 6d 65 20 69 6e 66 t shows some inf
0b30: 6f 72 6d 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 ormation.
0b40: 20 20 20 20 20 20 20 65 78 74 72 61 63 74 65 64 extracted
0b50: 20 66 72 6f 6d 20 74 68 65 20 69 6e 63 6f 6d 69 from the incomi
0b60: 6e 67 20 72 65 71 75 65 73 74 2e 0a 09 20 20 20 ng request...
0b70: 20 7d 0a 09 20 20 7d 0a 09 20 20 40 64 69 76 5b }.. }.. @div[
0b80: 28 63 6c 61 73 73 20 22 72 6f 77 22 29 5d 7b 0a (class "row")]{.
0b90: 09 20 20 20 20 40 64 69 76 5b 28 63 6c 61 73 73 . @div[(class
0ba0: 20 22 73 70 61 6e 38 22 29 5d 7b 0a 09 20 20 20 "span8")]{..
0bb0: 20 20 20 40 68 32 7b 50 72 65 73 65 6e 74 20 43 @h2{Present C
0bc0: 6f 6e 74 65 78 74 7d 0a 09 20 20 20 20 20 20 40 ontext}.. @
0bd0: 74 61 62 6c 65 5b 28 63 6c 61 73 73 20 22 7a 65 table[(class "ze
0be0: 62 72 61 2d 73 74 72 69 70 65 64 22 29 5d 7b 0a bra-striped")]{.
0bf0: 09 20 20 20 20 20 20 20 20 40 74 68 65 61 64 7b . @thead{
0c00: 0a 09 09 20 20 40 74 72 7b 40 74 68 7b 4b 65 79 ... @tr{@th{Key
0c10: 7d 20 40 74 68 7b 56 61 6c 75 65 7d 7d 0a 09 09 } @th{Value}}...
0c20: 7d 0a 09 09 40 74 62 6f 64 79 7b 0a 09 09 20 20 }...@tbody{...
0c30: 40 2c 40 28 6c 65 74 20 28 28 67 65 74 65 6e 76 @,@(let ((getenv
0c40: 20 28 72 65 73 6f 75 72 63 65 2d 63 6f 6e 74 65 (resource-conte
0c50: 78 74 2d 67 65 74 65 6e 76 0a 09 09 09 09 20 20 xt-getenv.....
0c60: 20 20 28 63 75 72 72 65 6e 74 2d 72 65 73 6f 75 (current-resou
0c70: 72 63 65 2d 63 6f 6e 74 65 78 74 29 29 29 29 0a rce-context)))).
0c80: 09 09 20 20 20 20 20 20 20 60 28 28 74 72 20 28 .. `((tr (
0c90: 74 64 20 22 53 43 52 49 50 54 5f 4e 41 4d 45 22 td "SCRIPT_NAME"
0ca0: 29 0a 09 09 09 20 20 20 20 20 28 74 64 20 28 63 ).... (td (c
0cb0: 6f 64 65 20 2c 28 6f 72 20 28 67 65 74 65 6e 76 ode ,(or (getenv
0cc0: 20 22 53 43 52 49 50 54 5f 4e 41 4d 45 22 29 20 "SCRIPT_NAME")
0cd0: 22 3c 75 6e 6b 6e 6f 77 6e 3e 22 29 29 29 29 0a "<unknown>")))).
0ce0: 09 09 09 20 28 74 72 20 28 74 64 20 22 50 41 54 ... (tr (td "PAT
0cf0: 48 5f 49 4e 46 4f 22 29 0a 09 09 09 20 20 20 20 H_INFO")....
0d00: 20 28 74 64 20 28 63 6f 64 65 20 2c 28 6f 72 20 (td (code ,(or
0d10: 28 67 65 74 65 6e 76 20 22 50 41 54 48 5f 49 4e (getenv "PATH_IN
0d20: 46 4f 22 29 20 22 3c 75 6e 6b 6e 6f 77 6e 3e 22 FO") "<unknown>"
0d30: 29 29 29 29 0a 09 09 09 20 28 74 72 20 28 74 64 )))).... (tr (td
0d40: 20 22 52 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 "REQUEST_METHOD
0d50: 22 29 0a 09 09 09 20 20 20 20 20 28 74 64 20 28 ").... (td (
0d60: 63 6f 64 65 20 2c 28 6f 72 20 28 67 65 74 65 6e code ,(or (geten
0d70: 76 20 22 52 45 51 55 45 53 54 5f 4d 45 54 48 4f v "REQUEST_METHO
0d80: 44 22 29 20 22 3c 75 6e 6b 6e 6f 77 6e 3e 22 29 D") "<unknown>")
0d90: 29 29 29 29 29 0a 09 09 7d 0a 09 20 20 20 20 20 )))))...}..
0da0: 20 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 40 }.. }.. @
0db0: 64 69 76 5b 28 63 6c 61 73 73 20 22 73 70 61 6e div[(class "span
0dc0: 38 22 29 5d 7b 0a 09 20 20 20 20 20 20 40 68 32 8")]{.. @h2
0dd0: 7b 50 72 65 73 65 6e 74 20 50 61 72 61 6d 65 74 {Present Paramet
0de0: 65 72 73 7d 0a 09 20 20 20 20 20 20 40 74 61 62 ers}.. @tab
0df0: 6c 65 5b 28 63 6c 61 73 73 20 22 7a 65 62 72 61 le[(class "zebra
0e00: 2d 73 74 72 69 70 65 64 22 29 5d 7b 0a 09 20 20 -striped")]{..
0e10: 20 20 20 20 20 20 40 74 68 65 61 64 7b 0a 09 09 @thead{...
0e20: 20 20 40 74 72 7b 40 74 68 7b 4b 65 79 7d 20 40 @tr{@th{Key} @
0e30: 74 68 7b 4d 65 73 73 61 67 65 73 7d 7d 0a 09 09 th{Messages}}...
0e40: 7d 0a 09 09 40 74 62 6f 64 79 7b 0a 09 09 20 20 }...@tbody{...
0e50: 40 2c 40 28 6d 61 70 0a 09 09 20 20 20 20 20 20 @,@(map...
0e60: 28 6c 61 6d 62 64 61 20 28 6b 65 79 2b 6d 73 67 (lambda (key+msg
0e70: 73 29 0a 09 09 09 28 6c 65 74 2d 76 61 6c 75 65 s)....(let-value
0e80: 73 20 28 28 28 6b 65 79 20 6d 73 67 73 29 20 28 s (((key msgs) (
0e90: 63 61 72 2b 63 64 72 20 6b 65 79 2b 6d 73 67 73 car+cdr key+msgs
0ea0: 29 29 29 0a 09 09 09 20 20 60 28 74 72 0a 09 09 ))).... `(tr...
0eb0: 09 20 20 20 20 28 74 64 20 2c 6b 65 79 29 0a 09 . (td ,key)..
0ec0: 09 09 20 20 20 20 28 74 64 0a 09 09 09 20 20 20 .. (td....
0ed0: 20 20 28 6f 6c 0a 09 09 09 20 20 20 20 20 20 2c (ol.... ,
0ee0: 40 28 6d 61 70 0a 09 09 09 09 20 28 6c 61 6d 62 @(map..... (lamb
0ef0: 64 61 20 28 6d 73 67 29 0a 09 09 09 09 20 20 20 da (msg).....
0f00: 60 28 6c 69 0a 09 09 09 09 20 20 20 20 20 28 70 `(li..... (p
0f10: 0a 09 09 09 09 20 20 20 20 20 20 2c 28 6c 65 74 ..... ,(let
0f20: 20 28 28 74 79 70 65 20 28 6d 65 73 73 61 67 65 ((type (message
0f30: 2d 74 79 70 65 20 6d 73 67 29 29 29 0a 09 09 09 -type msg)))....
0f40: 09 09 20 28 63 6f 6e 64 0a 09 09 09 09 09 20 20 .. (cond......
0f50: 28 28 6d 65 73 73 61 67 65 2d 74 65 78 74 20 6d ((message-text m
0f60: 73 67 29 0a 09 09 09 09 09 20 20 20 3d 3e 20 28 sg)...... => (
0f70: 6c 61 6d 62 64 61 20 28 74 78 74 29 0a 09 09 09 lambda (txt)....
0f80: 09 09 09 60 28 73 70 61 6e 0a 09 09 09 09 09 09 ...`(span.......
0f90: 20 20 28 73 70 61 6e 0a 09 09 09 09 09 09 20 20 (span.......
0fa0: 20 28 28 63 6c 61 73 73 20 22 6c 61 62 65 6c 20 ((class "label
0fb0: 6e 6f 74 69 63 65 22 29 29 0a 09 09 09 09 09 09 notice")).......
0fc0: 20 20 20 22 54 65 78 74 20 43 6f 6e 74 65 6e 74 "Text Content
0fd0: 3a 22 29 0a 09 09 09 09 09 09 20 20 22 20 22 20 :")....... " "
0fe0: 2c 74 78 74 29 29 29 0a 09 09 09 09 09 20 20 28 ,txt)))...... (
0ff0: 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 3f 20 (string-prefix?
1000: 22 69 6d 61 67 65 2f 22 20 74 79 70 65 29 0a 09 "image/" type)..
1010: 09 09 09 09 20 20 20 60 28 73 70 61 6e 0a 09 09 .... `(span...
1020: 09 09 09 20 20 20 20 20 28 73 70 61 6e 0a 09 09 ... (span...
1030: 09 09 09 20 20 20 20 20 20 28 28 63 6c 61 73 73 ... ((class
1040: 20 22 6c 61 62 65 6c 20 6e 6f 74 69 63 65 22 29 "label notice")
1050: 29 0a 09 09 09 09 09 20 20 20 20 20 20 22 49 6d )...... "Im
1060: 61 67 65 20 43 6f 6e 74 65 6e 74 3a 22 29 0a 09 age Content:")..
1070: 09 09 09 09 20 20 20 20 20 22 20 22 0a 09 09 09 .... " "....
1080: 09 09 20 20 20 20 20 28 69 6d 67 0a 09 09 09 09 .. (img.....
1090: 09 20 20 20 20 20 20 28 28 73 72 63 20 2c 28 73 . ((src ,(s
10a0: 74 72 69 6e 67 2d 61 70 70 65 6e 64 0a 09 09 09 tring-append....
10b0: 09 09 09 20 20 20 20 20 20 22 64 61 74 61 3a 22 ... "data:"
10c0: 20 74 79 70 65 20 22 3b 62 61 73 65 36 34 2c 22 type ";base64,"
10d0: 0a 09 09 09 09 09 09 20 20 20 20 20 20 28 62 61 ....... (ba
10e0: 73 65 36 34 2d 65 6e 63 6f 64 65 0a 09 09 09 09 se64-encode.....
10f0: 09 09 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 .. (messag
1100: 65 2d 62 6f 64 79 20 6d 73 67 29 29 29 29 29 29 e-body msg))))))
1110: 29 29 0a 09 09 09 09 09 20 20 28 65 6c 73 65 0a ))...... (else.
1120: 09 09 09 09 09 20 20 20 60 28 73 70 61 6e 0a 09 ..... `(span..
1130: 09 09 09 09 20 20 20 20 20 28 73 70 61 6e 0a 09 .... (span..
1140: 09 09 09 09 20 20 20 20 20 20 28 28 63 6c 61 73 .... ((clas
1150: 73 20 22 6c 61 62 65 6c 20 6e 6f 74 69 63 65 22 s "label notice"
1160: 29 29 0a 09 09 09 09 09 20 20 20 20 20 20 22 4f ))...... "O
1170: 6d 69 74 74 65 64 20 43 6f 6e 74 65 6e 74 3a 22 mitted Content:"
1180: 29 0a 09 09 09 09 09 20 20 20 20 20 22 20 22 0a )...... " ".
1190: 09 09 09 09 09 20 20 20 20 20 28 63 6f 64 65 20 ..... (code
11a0: 2c 74 79 70 65 29 29 29 29 29 0a 09 09 09 09 20 ,type))))).....
11b0: 20 20 20 20 20 2c 40 28 6d 61 70 0a 09 09 09 09 ,@(map.....
11c0: 09 20 28 6c 61 6d 62 64 61 20 28 68 65 61 64 65 . (lambda (heade
11d0: 72 29 0a 09 09 09 09 09 20 20 20 28 6c 65 74 2d r)...... (let-
11e0: 76 61 6c 75 65 73 20 28 28 28 6b 65 79 20 76 61 values (((key va
11f0: 6c 75 65 29 20 28 63 61 72 2b 63 64 72 20 68 65 lue) (car+cdr he
1200: 61 64 65 72 29 29 29 0a 09 09 09 09 09 20 20 20 ader)))......
1210: 20 20 60 28 73 70 61 6e 0a 09 09 09 09 09 20 20 `(span......
1220: 20 20 20 20 20 22 2c 20 22 0a 09 09 09 09 09 20 ", "......
1230: 20 20 20 20 20 20 28 73 70 61 6e 20 28 28 63 6c (span ((cl
1240: 61 73 73 20 22 6c 61 62 65 6c 22 29 29 20 2c 6b ass "label")) ,k
1250: 65 79 20 22 3a 22 29 0a 09 09 09 09 09 20 20 20 ey ":")......
1260: 20 20 20 20 22 20 22 0a 09 09 09 09 09 20 20 20 " "......
1270: 20 20 20 20 28 63 6f 64 65 20 2c 76 61 6c 75 65 (code ,value
1280: 29 29 29 29 0a 09 09 09 09 09 20 28 6d 65 73 73 ))))...... (mess
1290: 61 67 65 2d 68 65 61 64 65 72 73 20 6d 73 67 29 age-headers msg)
12a0: 29 29 29 29 0a 09 09 09 09 20 6d 73 67 73 29 29 ))))..... msgs))
12b0: 29 29 29 29 0a 09 09 20 20 20 20 20 20 28 68 61 ))))... (ha
12c0: 73 68 2d 74 61 62 6c 65 2d 3e 61 6c 69 73 74 20 sh-table->alist
12d0: 70 61 72 61 6d 65 74 65 72 73 29 29 0a 09 09 7d parameters))...}
12e0: 0a 09 20 20 20 20 20 20 7d 0a 09 20 20 20 20 7d .. }.. }
12f0: 0a 09 20 20 7d 0a 09 20 20 40 64 69 76 5b 28 63 .. }.. @div[(c
1300: 6c 61 73 73 20 22 72 6f 77 22 29 5d 7b 0a 09 20 lass "row")]{..
1310: 20 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 @div[(class "
1320: 73 70 61 6e 38 22 29 5d 7b 0a 09 20 20 20 20 20 span8")]{..
1330: 20 40 68 32 7b 47 45 54 20 77 69 74 68 20 50 61 @h2{GET with Pa
1340: 72 61 6d 65 74 65 72 73 7d 0a 09 20 20 20 20 20 rameters}..
1350: 20 40 66 6f 72 6d 5b 28 6d 65 74 68 6f 64 20 22 @form[(method "
1360: 47 45 54 22 29 20 28 61 63 74 69 6f 6e 20 2c 28 GET") (action ,(
1370: 72 65 73 6f 75 72 63 65 2d 75 72 69 20 72 6f 6f resource-uri roo
1380: 74 29 29 5d 7b 0a 09 20 20 20 20 20 20 20 20 40 t))]{.. @
1390: 66 69 65 6c 64 73 65 74 7b 0a 09 09 20 20 40 6c fieldset{... @l
13a0: 65 67 65 6e 64 7b 53 74 75 66 66 7d 0a 09 09 20 egend{Stuff}...
13b0: 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 63 6c @div[(class "cl
13c0: 65 61 72 66 69 78 22 29 5d 7b 0a 09 09 20 20 20 earfix")]{...
13d0: 20 40 6c 61 62 65 6c 5b 28 66 6f 72 20 22 73 6f @label[(for "so
13e0: 6d 65 2d 74 68 69 6e 67 30 22 29 5d 7b 53 6f 6d me-thing0")]{Som
13f0: 65 20 76 61 6c 75 65 7d 0a 09 09 20 20 20 20 40 e value}... @
1400: 64 69 76 5b 28 63 6c 61 73 73 20 22 69 6e 70 75 div[(class "inpu
1410: 74 22 29 5d 7b 0a 09 09 20 20 20 20 20 20 40 69 t")]{... @i
1420: 6e 70 75 74 5b 28 74 79 70 65 20 22 74 65 78 74 nput[(type "text
1430: 22 29 20 28 69 64 20 22 73 6f 6d 65 2d 74 68 69 ") (id "some-thi
1440: 6e 67 30 22 29 20 28 63 6c 61 73 73 20 22 6d 65 ng0") (class "me
1450: 64 69 75 6d 22 29 0a 09 09 09 20 20 20 20 20 28 dium").... (
1460: 6e 61 6d 65 20 22 73 6f 6d 65 2d 74 68 69 6e 67 name "some-thing
1470: 22 29 20 28 73 69 7a 65 20 22 33 30 22 29 5d 0a ") (size "30")].
1480: 09 09 20 20 20 20 7d 0a 09 09 20 20 7d 0a 09 09 .. }... }...
1490: 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 63 @div[(class "c
14a0: 6c 65 61 72 66 69 78 22 29 5d 7b 0a 09 09 20 20 learfix")]{...
14b0: 20 20 40 6c 61 62 65 6c 5b 28 66 6f 72 20 22 6f @label[(for "o
14c0: 74 68 65 72 2d 74 68 69 6e 67 73 30 22 29 5d 7b ther-things0")]{
14d0: 4f 74 68 65 72 20 76 61 6c 75 65 73 7d 0a 09 09 Other values}...
14e0: 20 20 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 @div[(class
14f0: 22 69 6e 70 75 74 22 29 5d 7b 0a 09 09 20 20 20 "input")]{...
1500: 20 20 20 40 73 65 6c 65 63 74 5b 28 69 64 20 22 @select[(id "
1510: 6f 74 68 65 72 2d 74 68 69 6e 67 73 30 22 29 20 other-things0")
1520: 28 63 6c 61 73 73 20 22 6d 65 64 69 75 6d 22 29 (class "medium")
1530: 0a 09 09 09 20 20 20 20 20 20 28 6e 61 6d 65 20 .... (name
1540: 22 6f 74 68 65 72 2d 74 68 69 6e 67 73 22 29 20 "other-things")
1550: 28 6d 75 6c 74 69 70 6c 65 20 22 6d 75 6c 74 69 (multiple "multi
1560: 70 6c 65 22 29 5d 7b 0a 09 09 20 20 20 20 20 20 ple")]{...
1570: 20 20 40 6f 70 74 69 6f 6e 7b 66 6f 6f 62 61 7a @option{foobaz
1580: 7d 0a 09 09 09 40 6f 70 74 69 6f 6e 7b 64 6f 73 }....@option{dos
1590: 68 7d 0a 09 09 09 40 6f 70 74 69 6f 6e 7b 67 6f h}....@option{go
15a0: 73 74 61 6b 7d 0a 09 09 20 20 20 20 20 20 7d 0a stak}... }.
15b0: 09 09 20 20 20 20 7d 0a 09 09 20 20 7d 0a 09 09 .. }... }...
15c0: 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 61 @div[(class "a
15d0: 63 74 69 6f 6e 73 22 29 5d 7b 0a 09 09 20 20 20 ctions")]{...
15e0: 20 40 69 6e 70 75 74 5b 28 74 79 70 65 20 22 73 @input[(type "s
15f0: 75 62 6d 69 74 22 29 20 28 63 6c 61 73 73 20 22 ubmit") (class "
1600: 62 74 6e 20 70 72 69 6d 61 72 79 22 29 0a 09 09 btn primary")...
1610: 09 20 20 20 28 76 61 6c 75 65 20 22 53 75 62 6d . (value "Subm
1620: 69 74 22 29 5d 0a 09 09 20 20 20 20 40 6e 62 73 it")]... @nbs
1630: 70 0a 09 09 20 20 20 20 40 69 6e 70 75 74 5b 28 p... @input[(
1640: 74 79 70 65 20 22 72 65 73 65 74 22 29 20 28 63 type "reset") (c
1650: 6c 61 73 73 20 22 62 74 6e 22 29 0a 09 09 09 20 lass "btn")....
1660: 20 20 28 76 61 6c 75 65 20 22 52 65 73 65 74 22 (value "Reset"
1670: 29 5d 0a 09 09 20 20 7d 0a 09 09 7d 0a 09 20 20 )]... }...}..
1680: 20 20 20 20 7d 0a 09 20 20 20 20 7d 0a 09 20 20 }.. }..
1690: 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 73 @div[(class "s
16a0: 70 61 6e 38 22 29 5d 7b 0a 09 20 20 20 20 20 20 pan8")]{..
16b0: 40 68 32 7b 50 4f 53 54 20 77 69 74 68 20 50 61 @h2{POST with Pa
16c0: 72 61 6d 65 74 65 72 73 7d 0a 09 20 20 20 20 20 rameters}..
16d0: 20 40 66 6f 72 6d 5b 28 6d 65 74 68 6f 64 20 22 @form[(method "
16e0: 50 4f 53 54 22 29 20 28 65 6e 63 74 79 70 65 20 POST") (enctype
16f0: 22 6d 75 6c 74 69 70 61 72 74 2f 66 6f 72 6d 2d "multipart/form-
1700: 64 61 74 61 22 29 0a 09 09 20 20 20 20 28 61 63 data")... (ac
1710: 74 69 6f 6e 20 2c 28 72 65 73 6f 75 72 63 65 2d tion ,(resource-
1720: 75 72 69 20 72 6f 6f 74 29 29 5d 7b 0a 09 20 20 uri root))]{..
1730: 20 20 20 20 20 20 40 66 69 65 6c 64 73 65 74 7b @fieldset{
1740: 0a 09 09 20 20 40 6c 65 67 65 6e 64 7b 55 70 6c ... @legend{Upl
1750: 6f 61 64 7d 0a 09 09 20 20 40 64 69 76 5b 28 63 oad}... @div[(c
1760: 6c 61 73 73 20 22 63 6c 65 61 72 66 69 78 22 29 lass "clearfix")
1770: 5d 7b 0a 09 09 20 20 20 20 40 6c 61 62 65 6c 5b ]{... @label[
1780: 28 66 6f 72 20 22 73 6f 6d 65 2d 74 68 69 6e 67 (for "some-thing
1790: 31 22 29 5d 7b 53 6f 6d 65 20 76 61 6c 75 65 7d 1")]{Some value}
17a0: 0a 09 09 20 20 20 20 40 64 69 76 5b 28 63 6c 61 ... @div[(cla
17b0: 73 73 20 22 69 6e 70 75 74 22 29 5d 7b 0a 09 09 ss "input")]{...
17c0: 20 20 20 20 20 20 40 69 6e 70 75 74 5b 28 74 79 @input[(ty
17d0: 70 65 20 22 74 65 78 74 22 29 20 28 69 64 20 22 pe "text") (id "
17e0: 73 6f 6d 65 2d 74 68 69 6e 67 31 22 29 20 28 63 some-thing1") (c
17f0: 6c 61 73 73 20 22 6d 65 64 69 75 6d 22 29 0a 09 lass "medium")..
1800: 09 09 20 20 20 20 20 28 6e 61 6d 65 20 22 73 6f .. (name "so
1810: 6d 65 2d 74 68 69 6e 67 22 29 20 28 73 69 7a 65 me-thing") (size
1820: 20 22 33 30 22 29 5d 0a 09 09 20 20 20 20 7d 0a "30")]... }.
1830: 09 09 20 20 7d 0a 09 09 20 20 40 64 69 76 5b 28 .. }... @div[(
1840: 63 6c 61 73 73 20 22 63 6c 65 61 72 66 69 78 22 class "clearfix"
1850: 29 5d 7b 0a 09 09 20 20 20 20 40 6c 61 62 65 6c )]{... @label
1860: 5b 28 66 6f 72 20 22 66 69 6c 65 2d 74 68 69 6e [(for "file-thin
1870: 67 31 22 29 5d 7b 53 6f 6d 65 20 66 69 6c 65 7d g1")]{Some file}
1880: 0a 09 09 20 20 20 20 40 64 69 76 5b 28 63 6c 61 ... @div[(cla
1890: 73 73 20 22 69 6e 70 75 74 22 29 5d 7b 0a 09 09 ss "input")]{...
18a0: 20 20 20 20 20 20 40 69 6e 70 75 74 5b 28 74 79 @input[(ty
18b0: 70 65 20 22 66 69 6c 65 22 29 20 28 69 64 20 22 pe "file") (id "
18c0: 66 69 6c 65 2d 74 68 69 6e 67 31 22 29 20 28 63 file-thing1") (c
18d0: 6c 61 73 73 20 22 6d 65 64 69 75 6d 22 29 0a 09 lass "medium")..
18e0: 09 09 20 20 20 20 20 28 6e 61 6d 65 20 22 66 69 .. (name "fi
18f0: 6c 65 2d 74 68 69 6e 67 22 29 5d 0a 09 09 20 20 le-thing")]...
1900: 20 20 7d 0a 09 09 20 20 7d 0a 09 09 20 20 40 64 }... }... @d
1910: 69 76 5b 28 63 6c 61 73 73 20 22 61 63 74 69 6f iv[(class "actio
1920: 6e 73 22 29 5d 7b 0a 09 09 20 20 20 20 40 69 6e ns")]{... @in
1930: 70 75 74 5b 28 74 79 70 65 20 22 73 75 62 6d 69 put[(type "submi
1940: 74 22 29 20 28 63 6c 61 73 73 20 22 62 74 6e 20 t") (class "btn
1950: 70 72 69 6d 61 72 79 22 29 0a 09 09 09 20 20 20 primary")....
1960: 28 76 61 6c 75 65 20 22 53 75 62 6d 69 74 22 29 (value "Submit")
1970: 5d 0a 09 09 20 20 20 20 40 6e 62 73 70 0a 09 09 ]... @nbsp...
1980: 20 20 20 20 40 69 6e 70 75 74 5b 28 74 79 70 65 @input[(type
1990: 20 22 72 65 73 65 74 22 29 20 28 63 6c 61 73 73 "reset") (class
19a0: 20 22 62 74 6e 22 29 0a 09 09 09 20 20 20 28 76 "btn").... (v
19b0: 61 6c 75 65 20 22 52 65 73 65 74 22 29 5d 0a 09 alue "Reset")]..
19c0: 09 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 20 20 . }...}..
19d0: 7d 0a 09 20 20 20 20 7d 0a 09 20 20 7d 0a 09 20 }.. }.. }..
19e0: 20 40 66 6f 6f 74 65 72 7b 40 63 6f 70 79 20 32 @footer{@copy 2
19f0: 30 31 31 2d 32 30 31 33 20 62 79 20 54 68 6f 6d 011-2013 by Thom
1a00: 61 73 20 43 68 75 73 74 7d 0a 09 7d 0a 09 40 2c as Chust}..}..@,
1a10: 40 63 6f 6d 6d 6f 6e 2d 66 6f 6f 74 0a 20 20 20 @common-foot.
1a20: 20 20 20 7d 0a 20 20 20 20 7d 29 29 0a 0a 28 64 }. }))..(d
1a30: 65 66 69 6e 65 20 6e 75 6d 65 72 69 63 2d 70 61 efine numeric-pa
1a40: 72 61 6d 65 74 65 72 0a 20 20 28 63 75 74 65 0a rameter. (cute.
1a50: 20 20 20 70 61 72 61 6d 65 74 65 72 2d 72 65 66 parameter-ref
1a60: 20 3c 3e 20 3c 3e 0a 20 20 20 28 6c 61 6d 62 64 <> <>. (lambd
1a70: 61 20 28 76 29 0a 20 20 20 20 20 28 63 6f 6e 64 a (v). (cond
1a80: 0a 20 20 20 20 20 20 28 28 6d 65 73 73 61 67 65 . ((message
1a90: 2d 74 65 78 74 20 76 29 20 3d 3e 20 73 74 72 69 -text v) => stri
1aa0: 6e 67 2d 3e 6e 75 6d 62 65 72 29 0a 20 20 20 20 ng->number).
1ab0: 20 20 28 65 6c 73 65 20 23 66 29 29 29 29 29 0a (else #f))))).
1ac0: 0a 28 64 65 66 69 6e 65 2d 72 65 73 6f 75 72 63 .(define-resourc
1ad0: 65 20 28 63 61 6c 63 20 22 63 61 6c 63 22 20 6f e (calc "calc" o
1ae0: 70 20 70 61 72 61 6d 65 74 65 72 73 29 0a 20 20 p parameters).
1af0: 28 69 66 20 28 73 74 72 69 6e 67 3d 3f 20 6f 70 (if (string=? op
1b00: 20 22 61 64 64 22 29 0a 20 20 20 20 20 20 28 6c "add"). (l
1b10: 65 74 2a 20 28 28 63 6f 6d 6d 6f 6e 2d 74 6f 70 et* ((common-top
1b20: 62 61 72 0a 09 20 20 20 20 20 20 60 40 64 69 76 bar.. `@div
1b30: 5b 28 63 6c 61 73 73 20 22 6e 61 76 62 61 72 20 [(class "navbar
1b40: 6e 61 76 62 61 72 2d 69 6e 76 65 72 73 65 20 6e navbar-inverse n
1b50: 61 76 62 61 72 2d 66 69 78 65 64 2d 74 6f 70 22 avbar-fixed-top"
1b60: 29 5d 7b 0a 09 09 20 40 64 69 76 5b 28 63 6c 61 )]{... @div[(cla
1b70: 73 73 20 22 6e 61 76 62 61 72 2d 69 6e 6e 65 72 ss "navbar-inner
1b80: 22 29 5d 7b 0a 09 09 20 20 20 40 64 69 76 5b 28 ")]{... @div[(
1b90: 63 6c 61 73 73 20 22 63 6f 6e 74 61 69 6e 65 72 class "container
1ba0: 22 29 5d 7b 0a 09 09 20 20 20 20 20 40 61 5b 28 ")]{... @a[(
1bb0: 63 6c 61 73 73 20 22 62 72 61 6e 64 22 29 20 28 class "brand") (
1bc0: 68 72 65 66 20 22 23 22 29 5d 7b 57 65 62 47 61 href "#")]{WebGa
1bd0: 74 65 7d 0a 09 09 20 20 20 20 20 40 64 69 76 5b te}... @div[
1be0: 28 63 6c 61 73 73 20 22 6e 61 76 2d 63 6f 6c 6c (class "nav-coll
1bf0: 61 70 73 65 20 63 6f 6c 6c 61 70 73 65 22 29 5d apse collapse")]
1c00: 7b 0a 09 09 20 20 20 20 20 20 20 40 75 6c 5b 28 {... @ul[(
1c10: 63 6c 61 73 73 20 22 6e 61 76 22 29 5d 7b 0a 09 class "nav")]{..
1c20: 09 20 20 20 20 20 20 20 20 20 40 6c 69 7b 40 61 . @li{@a
1c30: 5b 28 68 72 65 66 20 2c 28 72 65 73 6f 75 72 63 [(href ,(resourc
1c40: 65 2d 75 72 69 20 72 6f 6f 74 29 29 5d 7b 4d 69 e-uri root))]{Mi
1c50: 73 63 65 6c 6c 61 6e 65 6f 75 73 7d 7d 0a 09 09 scellaneous}}...
1c60: 20 20 20 20 20 20 20 20 20 40 6c 69 5b 28 63 6c @li[(cl
1c70: 61 73 73 20 22 61 63 74 69 76 65 22 29 5d 7b 40 ass "active")]{@
1c80: 61 5b 28 68 72 65 66 20 22 23 22 29 5d 7b 53 75 a[(href "#")]{Su
1c90: 73 70 65 6e 73 69 6f 6e 73 7d 7d 0a 09 09 20 20 spensions}}...
1ca0: 20 20 20 20 20 7d 0a 09 09 20 20 20 20 20 7d 0a }... }.
1cb0: 09 09 20 20 20 7d 0a 09 09 20 7d 0a 09 20 20 20 .. }... }..
1cc0: 20 20 20 20 7d 29 0a 09 20 20 20 20 20 28 70 61 }).. (pa
1cd0: 72 61 6d 65 74 65 72 73 0a 09 20 20 20 20 20 20 rameters..
1ce0: 28 73 65 6e 64 2f 73 75 73 70 65 6e 64 0a 09 20 (send/suspend..
1cf0: 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 (lambda (r
1d00: 65 73 75 6d 65 2d 75 72 69 29 0a 09 09 20 28 6d esume-uri)... (m
1d10: 61 6b 65 2d 68 74 6d 6c 2d 72 65 73 70 6f 6e 73 ake-html-respons
1d20: 65 0a 09 09 20 20 32 30 30 0a 09 09 20 20 60 40 e... 200... `@
1d30: 68 74 6d 6c 7b 0a 09 09 20 20 20 20 20 40 2c 63 html{... @,c
1d40: 6f 6d 6d 6f 6e 2d 68 65 61 64 0a 09 09 20 20 20 ommon-head...
1d50: 20 20 40 62 6f 64 79 7b 0a 09 09 20 20 20 20 20 @body{...
1d60: 20 20 40 2c 63 6f 6d 6d 6f 6e 2d 74 6f 70 62 61 @,common-topba
1d70: 72 0a 09 09 20 20 20 20 20 20 20 40 64 69 76 5b r... @div[
1d80: 28 63 6c 61 73 73 20 22 63 6f 6e 74 61 69 6e 65 (class "containe
1d90: 72 22 29 5d 7b 0a 09 09 20 20 20 20 20 20 20 20 r")]{...
1da0: 20 40 66 6f 72 6d 5b 28 6d 65 74 68 6f 64 20 22 @form[(method "
1db0: 47 45 54 22 29 20 28 61 63 74 69 6f 6e 20 2c 72 GET") (action ,r
1dc0: 65 73 75 6d 65 2d 75 72 69 29 5d 7b 0a 09 09 09 esume-uri)]{....
1dd0: 20 20 20 40 66 69 65 6c 64 73 65 74 7b 0a 09 09 @fieldset{...
1de0: 09 20 20 20 20 20 40 6c 65 67 65 6e 64 7b 41 64 . @legend{Ad
1df0: 64 20 4e 75 6d 62 65 72 73 7d 0a 09 09 09 20 20 d Numbers}....
1e00: 20 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 @div[(class "
1e10: 63 6c 65 61 72 66 69 78 22 29 5d 7b 0a 09 09 09 clearfix")]{....
1e20: 20 20 20 20 20 20 20 40 6c 61 62 65 6c 5b 28 66 @label[(f
1e30: 6f 72 20 22 61 22 29 5d 7b 46 69 72 73 74 20 53 or "a")]{First S
1e40: 75 6d 6d 61 6e 64 7d 0a 09 09 09 20 20 20 20 20 ummand}....
1e50: 20 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 69 @div[(class "i
1e60: 6e 70 75 74 22 29 5d 7b 0a 09 09 09 20 20 20 20 nput")]{....
1e70: 20 20 20 20 20 40 69 6e 70 75 74 5b 28 74 79 70 @input[(typ
1e80: 65 20 22 74 65 78 74 22 29 20 28 69 64 20 22 61 e "text") (id "a
1e90: 22 29 20 28 63 6c 61 73 73 20 22 6d 65 64 69 75 ") (class "mediu
1ea0: 6d 22 29 0a 09 09 09 09 09 28 6e 61 6d 65 20 22 m")......(name "
1eb0: 61 22 29 20 28 73 69 7a 65 20 22 33 30 22 29 5d a") (size "30")]
1ec0: 0a 09 09 09 20 20 20 20 20 20 20 7d 0a 09 09 09 .... }....
1ed0: 20 20 20 20 20 7d 0a 09 09 09 20 20 20 20 20 40 }.... @
1ee0: 64 69 76 5b 28 63 6c 61 73 73 20 22 63 6c 65 61 div[(class "clea
1ef0: 72 66 69 78 22 29 5d 7b 0a 09 09 09 20 20 20 20 rfix")]{....
1f00: 20 20 20 40 6c 61 62 65 6c 5b 28 66 6f 72 20 22 @label[(for "
1f10: 61 22 29 5d 7b 53 65 63 6f 6e 64 20 53 75 6d 6d a")]{Second Summ
1f20: 61 6e 64 7d 0a 09 09 09 20 20 20 20 20 20 20 40 and}.... @
1f30: 64 69 76 5b 28 63 6c 61 73 73 20 22 69 6e 70 75 div[(class "inpu
1f40: 74 22 29 5d 7b 0a 09 09 09 20 20 20 20 20 20 20 t")]{....
1f50: 20 20 40 69 6e 70 75 74 5b 28 74 79 70 65 20 22 @input[(type "
1f60: 74 65 78 74 22 29 20 28 69 64 20 22 62 22 29 20 text") (id "b")
1f70: 28 63 6c 61 73 73 20 22 6d 65 64 69 75 6d 22 29 (class "medium")
1f80: 0a 09 09 09 09 09 28 6e 61 6d 65 20 22 62 22 29 ......(name "b")
1f90: 20 28 73 69 7a 65 20 22 33 30 22 29 5d 0a 09 09 (size "30")]...
1fa0: 09 20 20 20 20 20 20 20 7d 0a 09 09 09 20 20 20 . }....
1fb0: 20 20 7d 0a 09 09 09 20 20 20 20 20 40 64 69 76 }.... @div
1fc0: 5b 28 63 6c 61 73 73 20 22 61 63 74 69 6f 6e 73 [(class "actions
1fd0: 22 29 5d 7b 0a 09 09 09 20 20 20 20 20 20 20 40 ")]{.... @
1fe0: 69 6e 70 75 74 5b 28 74 79 70 65 20 22 73 75 62 input[(type "sub
1ff0: 6d 69 74 22 29 20 28 63 6c 61 73 73 20 22 62 74 mit") (class "bt
2000: 6e 20 70 72 69 6d 61 72 79 22 29 0a 09 09 09 09 n primary").....
2010: 20 20 20 20 20 20 28 76 61 6c 75 65 20 22 53 75 (value "Su
2020: 62 6d 69 74 22 29 5d 0a 09 09 09 20 20 20 20 20 bmit")]....
2030: 20 20 40 6e 62 73 70 0a 09 09 09 20 20 20 20 20 @nbsp....
2040: 20 20 40 69 6e 70 75 74 5b 28 74 79 70 65 20 22 @input[(type "
2050: 72 65 73 65 74 22 29 20 28 63 6c 61 73 73 20 22 reset") (class "
2060: 62 74 6e 22 29 0a 09 09 09 09 20 20 20 20 20 20 btn").....
2070: 28 76 61 6c 75 65 20 22 52 65 73 65 74 22 29 5d (value "Reset")]
2080: 0a 09 09 09 20 20 20 20 20 7d 0a 09 09 09 20 20 .... }....
2090: 20 7d 0a 09 09 09 20 7d 0a 09 09 20 20 20 20 20 }.... }...
20a0: 20 20 7d 0a 09 09 20 20 20 20 20 7d 0a 09 09 20 }... }...
20b0: 20 20 7d 29 29 29 29 0a 09 20 20 20 20 20 28 61 })))).. (a
20c0: 0a 09 20 20 20 20 20 20 28 6f 72 20 28 6e 75 6d .. (or (num
20d0: 65 72 69 63 2d 70 61 72 61 6d 65 74 65 72 20 70 eric-parameter p
20e0: 61 72 61 6d 65 74 65 72 73 20 22 61 22 29 20 30 arameters "a") 0
20f0: 29 29 0a 09 20 20 20 20 20 28 62 0a 09 20 20 20 )).. (b..
2100: 20 20 20 28 6f 72 20 28 6e 75 6d 65 72 69 63 2d (or (numeric-
2110: 70 61 72 61 6d 65 74 65 72 20 70 61 72 61 6d 65 parameter parame
2120: 74 65 72 73 20 22 62 22 29 20 30 29 29 29 0a 09 ters "b") 0)))..
2130: 28 6d 61 6b 65 2d 68 74 6d 6c 2d 72 65 73 70 6f (make-html-respo
2140: 6e 73 65 0a 09 20 32 30 30 0a 09 20 60 40 68 74 nse.. 200.. `@ht
2150: 6d 6c 7b 0a 09 20 20 20 20 40 2c 63 6f 6d 6d 6f ml{.. @,commo
2160: 6e 2d 68 65 61 64 0a 09 20 20 20 20 40 62 6f 64 n-head.. @bod
2170: 79 7b 0a 09 20 20 20 20 20 20 40 2c 63 6f 6d 6d y{.. @,comm
2180: 6f 6e 2d 74 6f 70 62 61 72 0a 09 20 20 20 20 20 on-topbar..
2190: 20 40 64 69 76 5b 28 63 6c 61 73 73 20 22 63 6f @div[(class "co
21a0: 6e 74 61 69 6e 65 72 22 29 5d 7b 0a 09 20 20 20 ntainer")]{..
21b0: 20 20 20 20 20 40 64 69 76 5b 28 63 6c 61 73 73 @div[(class
21c0: 20 22 68 65 72 6f 2d 75 6e 69 74 22 29 5d 7b 0a "hero-unit")]{.
21d0: 09 09 20 20 40 68 31 7b 40 2c 28 6e 75 6d 62 65 .. @h1{@,(numbe
21e0: 72 2d 3e 73 74 72 69 6e 67 20 28 2b 20 61 20 62 r->string (+ a b
21f0: 29 29 7d 0a 09 09 20 20 40 70 7b 40 68 65 6c 6c ))}... @p{@hell
2200: 69 70 20 69 73 20 74 68 65 20 61 6e 73 77 65 72 ip is the answer
2210: 7d 0a 09 09 7d 0a 09 20 20 20 20 20 20 7d 0a 09 }...}.. }..
2220: 20 20 20 20 20 20 40 2c 40 63 6f 6d 6d 6f 6e 2d @,@common-
2230: 66 6f 6f 74 0a 09 20 20 20 20 7d 0a 09 20 20 7d foot.. }.. }
2240: 29 29 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 )). (make-e
2250: 72 72 6f 72 2d 72 65 73 70 6f 6e 73 65 0a 20 20 rror-response.
2260: 20 20 20 20 20 34 30 30 20 22 44 6f 6e 27 74 20 400 "Don't
2270: 6b 6e 6f 77 20 68 6f 77 20 74 6f 20 70 65 72 66 know how to perf
2280: 6f 72 6d 20 74 68 65 20 72 65 71 75 65 73 74 65 orm the requeste
2290: 64 20 63 61 6c 63 75 6c 61 74 69 6f 6e 2e 22 29 d calculation.")
22a0: 29 29 0a 0a 28 77 65 62 67 61 74 65 2d 6d 61 69 ))..(webgate-mai
22b0: 6e 29 0a n).