X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fegwscript;fp=www%2Fegwscript;h=4a192ee8c55a945e5304de4916cc1b6ab0cea924;hb=5414eafed41a60ef3625cfc6770184b36016186e;hp=94303b71e961f4764728630ac17c9ed97619a1a5;hpb=f37ddd57014f51c88ef36050ed08b4c6e226e094;p=egate.git
diff --git a/www/egwscript b/www/egwscript
index 94303b7..4a192ee 100644
--- a/www/egwscript
+++ b/www/egwscript
@@ -1,11 +1,17 @@
-Europgate WWW gateway test script $Id: egwscript,v 1.1 1995/10/20 14:02:41 adam Exp $
+Europgate WWW gateway test script $Id: egwscript,v 1.2 1995/10/23 16:55:35 adam Exp $
-howdi
+Test script with embedded Tcl.
{
- set f [open mylog a+]
- puts $f "Hello world"
- close $f
+ if {[catch {incr count}]} {
+ set count 1
+ }
}
+session Id: {html $sessionId}
+session Parms: {html $sessionParms}
+Click
+
+here to go to this page again.
+Number of times this page has been referenced: {html $count}