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 53 54 55 56 57 58 59
|
<!-- Presentation generated by Internet Assistant for Microsoft PowerPoint 97 -->
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft Internet Assistant for Microsoft PowerPoint 97">
<TITLE>Example: CGI-style Request Procedures</TITLE>
</HEAD>
<BODY >
<CENTER>
<TABLE WIDTH=100%>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<A HREF="sld001.htm">First</A>
<A HREF="sld009.htm">Previous</A>
<A HREF="sld011.htm">Next</A>
<A HREF="sld077.htm">Last</A>
<A HREF="index.htm">Index</A>
<A HREF="tsld010.htm">Text</A>
</TD> </TR>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<IMG SRC="img010.gif" usemap="#Objmap" WIDTH=600 HEIGHT=450 BORDER=0>
</TD> </TR>
</TABLE>
<P>Slide 10 of 77</P>
</CENTER>
<!-- <UL>
<H2>Example: CGI-style Request Procedures</H2>
</UL></P>
<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> -->
</Body>
</HTML>
|