Initial Alpine Version

1 files changed, 30 insertions, 0 deletions

diff --git a/web/src/cgi.tcl-1.10/example/version.cgi b/web/src/cgi.tcl-1.10/example/version.cgi
new file mode 100644
index 00000000..b266acfb
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/version.cgi
@@ -0,0 +1,30 @@
+#!/depot/path/tclsh
+
+# This is a CGI script that displays some version information that I
+# find useful for debugging.
+
+set v [package require cgi]
+
+proc row {var val} {
+    table_row {
+	td $var
+	td $val
+    }
+}
+
+cgi_eval {
+    source example.tcl
+
+    title "Version info"
+
+    cgi_body {
+	table border=2 {
+	    row "cgi.tcl" $v
+	    row "Tcl" [info patchlevel]
+	    row "uname -a" [exec uname -a]
+	    catch {row "SERVER_SOFTWARE" $env(SERVER_SOFTWARE)}
+	    catch {row "HTTP_USER_AGENT" $env(HTTP_USER_AGENT)}
+	    catch {row "SERVER_PROTOCOL" $env(SERVER_PROTOCOL)}
+	}
+    }
+}