events_securelink

events_securelink   new_page

Allows you to create a relative link to a secure page

Source code:

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

        set port [ns_config ns/server/[ns_info server]/module/nsssl Port]
        if {![empty_string_p $port] && ($port != 443)} {
           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
    }