Wapp

Diff
Login

Differences From Artifact [4e5dbf4cae]:

To Artifact [d6e4b6a2a7]:


1
2
3
4
5
6

7
8

9
10
11
12
13
14
15
16
17






18
19
20

1
2
3
4
5

6
7

8
9
10
11






12
13
14
15
16
17
18
19

20





-
+

-
+



-
-
-
-
-
-
+
+
+
+
+
+


-
+
# 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
#   w3tclsh env.tcl
#
# All web pages show the Wapp execution environment, which includes
# All web pages show the W3 execution environment, which includes
# CGI-line environment variables, decoded query and POST parameters, and 
# decoded cookies.
#
package require wapp
proc wapp-default {} {
  wapp-allow-xorigin-params
  wapp-trim {
    <h1>Wapp Environment</h1>
    <pre>%html([wapp-debug-env])</pre>
package require w3
proc w3-default {} {
  w3-allow-xorigin-params
  w3-trim {
    <h1>W3 Environment</h1>
    <pre>%html([w3-debug-env])</pre>
  }
}
wapp-start $argv
w3-start $argv