one of the documented procedures in this installation of the ACS
wap_user_agent_collisions   agent_list
What it does:
Takes a list of user agent strings as input. Returns indices of user agents which look dangerously close to to HTML browser strings, or else an empty list.
Defined in: /web/philip/tcl/wap-defs.tcl

Source code:

    set return_list [list]

    set last_index [expr [ad_parameter WapUAStringCompareLength wap 4] - 1 ]

    for {set i 0} {$i < [llength $agent_list]} {incr i} {
	if { [lsearch [wap_probable_html_browsers] [string tolower [string range [lindex $agent_list $i] 0 $last_index]]] >= 0 } {
	    lappend return_list $i

    return $return_list