util_guess_doctype

util_guess_doctype

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.

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