Latest version of file 'examples/env.tcl':
- File
examples/env.tcl
— part of check-in
[e82121be4d]
at
2018-01-30 23:46:10
on branch trunk
— Add wapp-allow-xorigin-params and SAME_ORIGIN. Update the documentation
accordingly.
(user:
drh
size: 553)
# 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-allow-xorigin-params
wapp-trim {
<h1>Wapp Environment</h1>
<pre>%html([wapp-debug-env])</pre>
}
}
wapp-start $argv