events_insecurelink

one of the documented procedures in this installation of the ACS
Usage:
events_insecurelink   new_page
What it does:
Allows you to create a relative link from a secure page to an insecure page
Defined in: /web/philip/tcl/events-defs.tcl

Source code:



    if {[ns_conn driver] != "nsssl"} {
        return $new_page
    } else {
        set new_url "http://[ns_config ns/server/[ns_info server]/module/nssock Hostname]"

        set port [ns_config ns/server/[ns_info server]/module/nssock Port]
        if {![empty_string_p $port] && ($port != 80)} {
           append new_url ":$port"
        }

        if [string match /* $new_page] {
           append new_url $new_page
        } else {
           set current_url [ns_conn url]
           regexp {^(.*)/} $current_url match new_url_dir
           append new_url "$new_url_dir/$new_page"
        }
        return $new_url
    }


philg@mit.edu