Wapp

Check-in [441f956cf2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add the "env.tcl" demonstration and prototyping script.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 441f956cf2f16370dc8809642956b56bcc7d972c2f72f862e091035c671b33f0
User & Date: drh 2018-01-28 22:58:32.305
Context
2018-01-29
00:40
Add the formajax01.tcl example script (check-in: bc899245cc user: drh tags: trunk)
2018-01-28
22:58
Add the "env.tcl" demonstration and prototyping script. (check-in: 441f956cf2 user: drh tags: trunk)
20:54
Updates to the README.md file. (check-in: 05cf577f9f user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Added env.tcl. 
















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

# This script is a template used for testing.
#
# After making modifications to this script to test out bits of HTML
# (or not - the script works fine as it is), invoke the script using
#
#   wapptclsh env.tcl
#
# All web pages show the CGI environment.
#
package require wapp
proc wapp-default {} {
  global wapp
  wapp-trim {
    <h1>Wapp Environment</h1>
    <pre>
  }
  foreach var [lsort [dict keys $wapp]] {
    if {[string index $var 0]=="."} continue
    wapp-subst {%html($var) = %html([list [dict get $wapp $var]])\n}
  }
  wapp-subst {</pre>\n}
}
wapp-start $argv