wap_user_agent_collisions

wap_user_agent_collisions   agent_list

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.

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