wap_user_agent_p

one of the documented procedures in this installation of the ACS
Usage:
wap_user_agent_p
What 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]]


philg@mit.edu