wap_user_agent_pWhat it does:
Returns 1 if User-Agent matches a list of known WAP user agents. Returns 0 if no header is supplied.Defined in: /web/philip/tcl/wap-defs.tcl
Source code:
# Get the user agent for the request. set agent [ns_set iget [ns_conn headers] User-Agent] if [empty_string_p $agent] { return 0 } # Take the db hit in a memoize return [util_memoize "wap_db_user_agent_p {$agent}" [ad_parameter WapUserAgentDbRefresh wap 300]]