web/src/cgi.tcl-1.10/example/error.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/depot/path/tclsh

# This is a CGI script that demonstrates error processing.

package require cgi

cgi_eval {
    source example.tcl

    cgi_input

    cgi_title "This CGI script contains an intentional error."

    cgi_body {
	p "The page that you are now reading is being generated by a
	CGI script that contains an intentional error."

	cgi_debug -on

	p "Debugging is enabled, so the error message will be shown in
the browser window (below).  Disable this by commenting out the
cgi_debug command and reloading this script."

	cgi_number_list {
	    cgi_li "List item 1"
	    cgi_li "List item 2"
	    cgi_lix "List item 3 - intentionally misspelled"
	    cgi_li "List item 4"
	}
    }
}