events_insecurelink

events_insecurelink   new_page

Allows you to create a relative link from a secure page to an insecure page

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
    }