Initial Alpine Version

1 files changed, 36 insertions, 0 deletions

diff --git a/web/src/cgi.tcl-1.10/example/evaljs.cgi b/web/src/cgi.tcl-1.10/example/evaljs.cgi
new file mode 100755
index 00000000..ea732e9d
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/evaljs.cgi
@@ -0,0 +1,36 @@
+#!/depot/path/tclsh
+
+# This CGI script uses JavaScript to evaluate an expression.
+
+package require cgi
+
+cgi_eval {
+    source example.tcl
+
+    cgi_head {
+	title "Using JavaScript to evaluate an expression"
+
+	javascript {
+	    puts {
+		function compute(f) {
+		    f.result.value = eval(f.expr.value)
+		}
+	    }
+	}
+	noscript {
+	    puts "Sorry - your browser doesn't understand JavaScript."
+	}
+    }
+
+    cgi_body {
+	cgi_form dummy {
+	    cgi_unbreakable {
+		cgi_button "Evaluate" onClick=compute(this.form)
+		cgi_text expr=Math.sqrt(2)*10000
+		puts "="
+		cgi_text result=
+	    }
+	    p "Feel free to enter and evaluate your own JavaScript expression."
+	}
+    }
+}