Wapp

Artifact 47d88c86066b206074bcb1a04365868c73ccc9687b2718f1e6df6af4ccc09605:

• File env.tcl — part of check-in [441f956cf2] at 2018-01-28 22:58:32 on branch trunk — Add the "env.tcl" demonstration and prototyping script. (user: drh size: 575)
• File examples/env.tcl — part of check-in [afbbaffbe0] at 2018-01-29 00:45:48 on branch trunk — Move the "env.tcl" example script into the examples/ folder. (user: drh size: 575)

# 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