Went to https://example.com/admin/.
The "ACS Site-Wide Administration" link has the port, https://example.com:8073/acs-admin/.
Does the logic need to be updated to include a check for SuppressHttpPort?
The link uses util::configured_location
/var/www/my-site/packages/acs-subsite/www/admin/index.tcl:
ad_page_contract {
@author Bryan Quinn (bquinn@arsdigita.com)
@author Michael Bryzek (mbryzek@arsdigita.com)
@creation-date August 15, 2000
@cvs-id $Id: index.tcl,v 1.19.6.3 2016/09/02 17:33:19 gustafn Exp $
} {
} -properties {
context:onevalue
subsite_name:onevalue
acs_admin_url:onevalue
instance_name:onevalue
acs_automated_testing_url:onevalue
acs_lang_admin_url:onevalue
}
array set this_node [site_node::get -url [ad_conn url]]
set title "Subsite [_ acs-subsite.Administration]: $this_node(instance_name)"
set acs_admin_url [apm_package_url_from_key "acs-admin"]
array set acs_admin_node [site_node::get -url $acs_admin_url]
set acs_admin_name $acs_admin_node(instance_name)
set sw_admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id $acs_admin_node(object_id) -privilege adm\
in]
set full_acs_admin_url [util::configured_location]$acs_admin_url
set convert_subsite_p [expr { [llength [apm::get_package_descendent_options [ad_conn package_key]]] > 0 }]
/var/www/my-site/packages/acs-tcl/tcl/utilities-procs.tcl:
ad_proc -public util::configured_location {} {
Return the configured location as configured for the current
network driver. While [util_current_location] honors the virtual
host information of the host header field,
util::configured_location returns the main configured location
(probably the main subsite). This also differs from [ad_url],
which returns always the same value from the kernel parameter,
since it returns either the https or http result.
@return the configured location in the form "proto://hostname?:port?"
@see ad_url
@see util_current_location
} {
set driver_info [util_driver_info]
return [util::join_location \
-proto [dict get $driver_info proto] \
-hostname [dict get $driver_info hostname] \
-port [dict get $driver_info port]]
}
Thank You
