Wapp

Differences From Artifact [47d88c8606]:

• 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)

To Artifact [bdce475e1e]:

• File examples/env.tcl — part of check-in [5d5c1559d7] at 2018-01-30 20:36:59 on branch trunk — Update example scripts to remove uses of the ::wapp dict. Improvements to the documentation. (user: drh size: 525)

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

|
>
>



<


|

<
<
<
<
<

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17





18
19

# 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 Wapp execution environment, which includes
# CGI-line environment variables, decoded query and POST parameters, and 
# decoded cookies.
#
package require wapp
proc wapp-default {} {

  wapp-trim {
    <h1>Wapp Environment</h1>
    <pre>%html([wapp-debug-env])</pre>
  }





}
wapp-start $argv