Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v diff -u -N -r1.72 -r1.73 --- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 25 Jul 2018 20:16:56 -0000 1.72 +++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 26 Jul 2018 09:55:11 -0000 1.73 @@ -1154,11 +1154,15 @@ # address in the check in the security-procs. # set address [ns_conn currentaddr] + set port [ns_conn currentport] + set proto [ns_conn proto] } on error {errorMsg} { # # If this fails, fall back to configured value. # set address [dict get $driverInfo address] + set port [dict get $driverInfo port] + set proto [dict get $driverInfo proto] } set extra_args {} if {[info exists body]} { @@ -1189,11 +1193,13 @@ # Run actual request # try { + set url "$proto:\[$address\]:$port/$request" + ns_log notice "acs::test:http client request (timeout $timeout): $method $url" set d [ns_http run \ -timeout $timeout \ -method $method \ {*}$extra_args \ - "http://\[$address\]:[dict get $driverInfo port]/$request"] + $url] } finally { # # always reset after the reqest the login data nsv