events_insecurelink new_pageWhat it does:
Allows you to create a relative link from a secure page to an insecure pageDefined 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 }