wap_import_parse page_contentsWhat it does:
Parse a list of WAP user-agents from http://wap.colorline.no/wap-faq/useragents.php3 and return the result as a tcl list.Defined in: /web/philip/tcl/wap-defs.tcl
Source code:
set page_lines [split $page_contents \n] foreach line $page_lines { if [regexp {^[^,]+} $line match] { lappend agents_list $match } } return $agents_list