Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -r1.136 -r1.137 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 12 Jun 2025 17:05:14 -0000 1.136 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 24 Sep 2025 15:23:40 -0000 1.137 @@ -2657,6 +2657,7 @@ # If we can use the "ns_driver info" interface, return the # potentially found secure driver. # + #ns_log notice "security::driver returns <$::acs::sdriver>" return $::acs::sdriver } on error {errorMsg} { @@ -2849,6 +2850,8 @@ # Get configuration information from the configured servers. # set driver_info [security::configured_driver_info] + #ns_log notice "configured_driver_info: $driver_info" + foreach d $driver_info { # # port == 0 means that the driver is just used for sending, @@ -2873,11 +2876,13 @@ lappend hosts {*}[ns_set values $virtualservers] } } + #ns_log notice "adding configured locations hosts: $hosts" foreach entry $hosts { # # The value of the "DRIVER/servers" section might # contain also a port. # + #ns_log notice "get proto from <[ns_parsehostport $entry]> or <$d>" set d1 [dict merge $d [ns_parsehostport $entry]] set proto [dict get $d proto] set host [dict get $d1 host] @@ -2894,6 +2899,7 @@ if {($proto eq "https" && $port eq "443") || ($proto eq "http" && $port eq "80") } { + #ns_log notice "join location 1 -proto $proto -hostname $host" set location [util::join_location -proto $proto -hostname $host] if {$location ni $locations} { lappend locations $location @@ -2903,6 +2909,7 @@ # Add a variant with the omitted port to # portless_locations. # + #ns_log notice "join location 2 -proto $proto -hostname $host" set location [util::join_location -proto $proto -hostname $host] if {$location ni $portless_locations && $location ni $locations @@ -2912,6 +2919,7 @@ # # Add always a variant with the port to locations. # + #ns_log notice "join location 3 -proto $proto -hostname $host" set location [util::join_location -proto $proto -hostname $host -port $port] if {$location ni $locations} { lappend locations $location