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> |