1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft Internet Assistant for PowerPoint 97">
<TITLE>Example: CGI-style Request Procedures</TITLE>
</HEAD>
<BODY >
<H1>Example: CGI-style Request Procedures</H1>
<P><UL>
<LI><H2>ns_register_proc binds procs to arbitrary requests:</H2>
</UL></P>
<P><UL>
ns_register_proc GET /demo/time getTime
</UL><UL>
</UL><UL>
proc getTime {} {
</UL><UL>
set headers [ns_conn headers]
</UL><UL>
set browser [ns_set iget $headers User-Agent]
</UL><UL>
set page <html><body>\n
</UL><UL>
append page Time: [clock seconds]<br>\n
</UL><UL>
append page Browser: $browser\n
</UL><UL>
append page </body></html>
</UL><UL>
ns_return 200 text/html $page
</UL><UL>
}</UL></P>
<P></P>
<P>
<TABLE>
<TD HEIGHT=100 WIDTH=100> <A HREF="tsld009.htm">Previous slide</A> </TD>
<TD HEIGHT=100 WIDTH=100> <A HREF="tsld011.htm">Next slide</A> </TD>
<TD HEIGHT=100 WIDTH=150> <A HREF="tsld001.htm">Back to first slide</A> </TD>
<TD HEIGHT=100 WIDTH=150> <A HREF="sld010.htm">View graphic version</A> </TD>
</TABLE>
<BR>
</P>
</Body>
</HTML>
|
