im_maybe_prepend_http

one of the documented procedures in this installation of the ACS
Usage:
im_maybe_prepend_http   query_url
What it does:
Prepends http to query_url unless it already starts with http://
Defined in: /web/philip/tcl/intranet-defs.tcl

Source code:


    set query_url [string tolower [string trim $query_url]]
    if { [empty_string_p $query_url] || [string compare $query_url "http://"] == 0 } {
	return ""
    }
    if { [regexp {^http://.+} $query_url] } {
	return $query_url
    }
    return "http://$query_url"


philg@mit.edu