1 files changed, 31 insertions, 0 deletions
diff --git a/web/src/cgi.tcl-1.10/example/error.cgi b/web/src/cgi.tcl-1.10/example/error.cgi
new file mode 100755
index 00000000..0b97c99a
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/error.cgi
@@ -0,0 +1,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"
+	}
+    }
+}