one of the documented procedures in this installation of the ACS
What it does:
Try to figure out what kind of document type to serve up. As of May, 2000, this will usually be HTML, but could also be WML.
Defined in: /web/philip/tcl/wap-defs.tcl

Source code:

    # Assume html.  
    set guessed_type html

    if { [wap_user_agent_p] } {
	set accept [ns_set iget [ns_conn headers] Accept]
        if { [string first {text/vnd.wap.wml} $accept] >= 0 } {
            # we matched a known wap user agent + agent accepts wml.
	    set guessed_type wml
	# HERE we should email admin since wap_user_agent_p read positive
        # but device didn't accept wml!
    return $guessed_type