Wapp

Hex Artifact Content
Login

Artifact 4e5dbf4caea8eef8dc7a0c0e0f37dd044eeba2029f868a593bde8ad93daa1787:


0000: 23 20 54 68 69 73 20 73 63 72 69 70 74 20 69 73  # This script is
0010: 20 61 20 74 65 6d 70 6c 61 74 65 20 75 73 65 64   a template used
0020: 20 66 6f 72 20 74 65 73 74 69 6e 67 2e 0a 23 0a   for testing..#.
0030: 23 20 41 66 74 65 72 20 6d 61 6b 69 6e 67 20 6d  # After making m
0040: 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 74 6f 20  odifications to 
0050: 74 68 69 73 20 73 63 72 69 70 74 20 74 6f 20 74  this script to t
0060: 65 73 74 20 6f 75 74 20 62 69 74 73 20 6f 66 20  est out bits of 
0070: 48 54 4d 4c 0a 23 20 28 6f 72 20 6e 6f 74 20 2d  HTML.# (or not -
0080: 20 74 68 65 20 73 63 72 69 70 74 20 77 6f 72 6b   the script work
0090: 73 20 66 69 6e 65 20 61 73 20 69 74 20 69 73 29  s fine as it is)
00a0: 2c 20 69 6e 76 6f 6b 65 20 74 68 65 20 73 63 72  , invoke the scr
00b0: 69 70 74 20 75 73 69 6e 67 0a 23 0a 23 20 20 20  ipt using.#.#   
00c0: 77 61 70 70 74 63 6c 73 68 20 65 6e 76 2e 74 63  wapptclsh env.tc
00d0: 6c 0a 23 0a 23 20 41 6c 6c 20 77 65 62 20 70 61  l.#.# All web pa
00e0: 67 65 73 20 73 68 6f 77 20 74 68 65 20 57 61 70  ges show the Wap
00f0: 70 20 65 78 65 63 75 74 69 6f 6e 20 65 6e 76 69  p execution envi
0100: 72 6f 6e 6d 65 6e 74 2c 20 77 68 69 63 68 20 69  ronment, which i
0110: 6e 63 6c 75 64 65 73 0a 23 20 43 47 49 2d 6c 69  ncludes.# CGI-li
0120: 6e 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76  ne environment v
0130: 61 72 69 61 62 6c 65 73 2c 20 64 65 63 6f 64 65  ariables, decode
0140: 64 20 71 75 65 72 79 20 61 6e 64 20 50 4f 53 54  d query and POST
0150: 20 70 61 72 61 6d 65 74 65 72 73 2c 20 61 6e 64   parameters, and
0160: 20 0a 23 20 64 65 63 6f 64 65 64 20 63 6f 6f 6b   .# decoded cook
0170: 69 65 73 2e 0a 23 0a 70 61 63 6b 61 67 65 20 72  ies..#.package r
0180: 65 71 75 69 72 65 20 77 61 70 70 0a 70 72 6f 63  equire wapp.proc
0190: 20 77 61 70 70 2d 64 65 66 61 75 6c 74 20 7b 7d   wapp-default {}
01a0: 20 7b 0a 20 20 77 61 70 70 2d 61 6c 6c 6f 77 2d   {.  wapp-allow-
01b0: 78 6f 72 69 67 69 6e 2d 70 61 72 61 6d 73 0a 20  xorigin-params. 
01c0: 20 77 61 70 70 2d 74 72 69 6d 20 7b 0a 20 20 20   wapp-trim {.   
01d0: 20 3c 68 31 3e 57 61 70 70 20 45 6e 76 69 72 6f   <h1>Wapp Enviro
01e0: 6e 6d 65 6e 74 3c 2f 68 31 3e 0a 20 20 20 20 3c  nment</h1>.    <
01f0: 70 72 65 3e 25 68 74 6d 6c 28 5b 77 61 70 70 2d  pre>%html([wapp-
0200: 64 65 62 75 67 2d 65 6e 76 5d 29 3c 2f 70 72 65  debug-env])</pre
0210: 3e 0a 20 20 7d 0a 7d 0a 77 61 70 70 2d 73 74 61  >.  }.}.wapp-sta
0220: 72 74 20 24 61 72 67 76 0a                       rt $argv.