wap_db_user_agent_p

wap_db_user_agent_p   agent

Returns 1 if agent matches a list of known WAP user agents.

Source code:

    set compare_length [ad_parameter WapUAStringCompareLength wap 4]

    set db [ns_db gethandle subquery]

    ns_log Notice "wap_db_user_agent_p: hitting the db to check $agent"

    set retval [database_to_tcl_string $db "select count(*)
    from wap_user_agents
    where lower(substr('[DoubleApos $agent]',1,$compare_length)) like
          lower(substr(name,1,$compare_length)) || '%'
      and deletion_date is null"]

    ns_db releasehandle $db

    if { $retval > 0} {
	return 1
    } else {
	return 0
    }