wap_user_agent_p

wap_user_agent_p

Returns 1 if User-Agent matches a list of known WAP user agents. Returns 0 if no header is supplied.

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]]