wap_import_parse

wap_import_parse   page_contents

Parse a list of WAP user-agents from http://wap.colorline.no/wap-faq/useragents.php3 and return the result as a tcl list.

Source code:

    set page_lines [split $page_contents \n]

    foreach line $page_lines {
	if [regexp {^[^,]+} $line match] {
	    lappend agents_list $match
	}
    }
    return $agents_list