wap_import_parse

one of the documented procedures in this installation of the ACS
Usage:
wap_import_parse   page_contents
What 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


philg@mit.edu