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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
<HTML><HEAD>
<TITLE>Examples -- Example 2: showhdrs</TITLE>
<LINK rel=Previous href="tcl-app1.htm">
<LINK rel=ToC href="toc.htm">
<LINK rel=Index href="master.htm">
<LINK rel=Next href="tcl-app3.htm">
</HEAD><BODY BGCOLOR="#ffffff"><A NAME="topofpage"></A>
<TABLE WIDTH=100%>
<TR>
<TD ALIGN=LEFT>
<A NAME="topofpage"></A> <IMG SRC="as-c-sm.gif">
</TD>
<TD ALIGN=RIGHT>
<A href="tcl-app1.htm"><IMG BORDER="0" src=navbprev.gif alt="[ Previous ]"></A>
<A href=toc.htm> <IMG BORDER="0" src=navbhome.gif alt="[ Contents ]"></A>
<A href=master.htm> <IMG BORDER="0" src=navbhelp.gif alt="[ Index ]"></A>
<A href="tcl-app3.htm"> <IMG BORDER="0" src=navbnext.gif alt="[ Next ]"></A>
<A name="7983"> </A>
</TD>
</TR>
</TABLE>
<a name="19260">
</a><h3>Example 2: showhdrs</h3>
<p><a name="19261">
</a>The following example script shows how to access the HTTP headers sent by the client within a Tcl script. </p>
<p><a name="19262">
</a>This example can be found in the <code>examples/tcl/showhdrs.tcl</code> file.</p>
<pre> <a name="19263"></a>
<a name="19264"></a># Example 2: Show header data
<a name="19265"></a>#
<a name="19266"></a># Things to notice:
<a name="19267"></a>#
<a name="19268"></a># * The same function is registered for two different URLs
<a name="19269"></a># with different context.
<a name="19270"></a>#
<a name="19271"></a># * The headers are pulled out of the conn using the
<a name="19272"></a># ns_conn function.
<a name="19273"></a>#
<a name="19274"></a># * The value for a particular header line is extracted
<a name="19275"></a># with "ns_set iget", the case insensitive counterpart to
<a name="19276"></a># "ns_set get".
<a name="19277"></a>
<a name="19278"></a>ns_register_proc GET /example/showbrowser showheader USER-AGENT
<a name="19279"></a>ns_register_proc GET /example/showrefer showheader REFERER
<a name="19280"></a>
<a name="19281"></a>proc showheader {conn key} {
<a name="19282"></a> set value [ns_set iget [ns_conn headers $conn] $key]
<a name="19283"></a> ns_return $conn 200 text/plain "$key: $value"
<a name="19284"></a>}
<a name="19285"></a>
<a name="19286"></a>
<a name="19287"></a>
</pre><p><p><a name="19288">
</a></p>
<TABLE BORDER="2" CELLPADDING="1" width="100%">
<TR><TD COLSPAN=3><P ALIGN=Center>
<IMG SRC="bluebult.gif">
<A HREF="#topofpage">
<FONT SIZE=-1>Top of Page</FONT></A>
<IMG SRC="bluebult.gif">
</TD></TR>
<TR><TD COLSPAN=3><P ALIGN=Center>
<A href="tcl-app1.htm">
<IMG BORDER="0" src=navbprev.gif alt="[ Previous ]"></A>
<A href=toc.htm>
<IMG BORDER="0" src=navbhome.gif alt="[ Contents ]"></A>
<A href=master.htm>
<IMG BORDER="0" src=navbhelp.gif alt="[ Index ]"></A>
<A href="tcl-app3.htm">
<IMG BORDER="0" src=navbnext.gif alt="[ Next ]"></A>
<BR align=center>
<FONT size=-1>Copyright © 1998-99 America Online,
Inc.</FONT>
</TD></TR></TABLE></BODY></HTML>
|
