git.rot13.org Git - webpac/blob - openisis/tcl/test/test.tsp

   1 #!/opt/openisis/tcl/bin/tspr
   2 <%--
   3         test Tcl server page
   4         $Id: test.tsp,v 1.2 2003/04/28 16:05:23 kripke Exp $
   5 --%><%!
   6         proc foo {bla} { # proc with embedded literals
   7 !%>
   8         foo: <b><%=bla%></b>
   9 <%!
  10         };#foo
  11 %><%
  12         # preset record
  13         openIsisRec v
  14         v add 24 Foo 25 bar^abaz
  15 %><html>
  16 <head>
  17 </head>
  18 <body>
  19         hello ISIS!
  20         this goes
  21 <%
  22         for {set i 1} {$i < 4} {incr i} {
  23 %> <i><%=i%></i> <%
  24         }
  25 %>
  26         HOME is <%=::env(HOME)%> <%-- variable --%>
  27         2+2 is <%=expr 2+2%> <%-- command --%>
  28         v24 is <%=24%> <%-- field --%>
  29         <% foo bar %> <%-- procedure --%>
  30         <%=request serialize%>
  31 </body>
  32 </html>