<html>
-<head><title>Europgate WWW gateway test script $Id: egwscript,v 1.1 1995/10/20 14:02:41 adam Exp $</title></head>
+<head><title>Europgate WWW gateway test script $Id: egwscript,v 1.2 1995/10/23 16:55:35 adam Exp $</title></head>
<body>
-howdi
+Test script with embedded Tcl. <p>
{
- set f [open mylog a+]
- puts $f "Hello world"
- close $f
+ if {[catch {incr count}]} {
+ set count 1
+ }
}
+session Id: {html $sessionId}<br>
+session Parms: {html $sessionParms}<br>
+Click
+<a href="http:/cgi-bin/egwcgi/{html $sessionId}/egwscript/{html $count}">
+here</a> to go to this page again. <br>
+Number of times this page has been referenced: {html $count} <p>
</body>
</html>