|
|
The following example script shows how to access the HTTP headers sent by the client within a Tcl script.
This example can be found in the examples/tcl/showhdrs.tcl file.
# Example 2: Show header data
#
# Things to notice:
#
# * The same function is registered for two different URLs
# with different context.
#
# * The headers are pulled out of the conn using the
# ns_conn function.
#
# * The value for a particular header line is extracted
# with "ns_set iget", the case insensitive counterpart to
# "ns_set get".
ns_register_proc GET /example/showbrowser showheader USER-AGENT
ns_register_proc GET /example/showrefer showheader REFERER
proc showheader {conn key} {
set value [ns_set iget [ns_conn headers $conn] $key]
ns_return $conn 200 text/plain "$key: $value"
}