wap_user_agent_collisions agent_listWhat 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