Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.133.2.19 -r1.133.2.20 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 29 Sep 2013 12:07:34 -0000 1.133.2.19 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 29 Sep 2013 14:27:38 -0000 1.133.2.20 @@ -2442,26 +2442,28 @@ set driver [ad_conn driver] } + set section [ns_driversection -driver $driver] + switch $driver { nssock { set result(proto) http - set result(port) [ns_config -int "ns/server/[ns_info server]/module/nssock" Port] + set result(port) [ns_config -int $section Port] } nsunix { set result(proto) http set result(port) {} } nsssl - nsssle { - set result(port) [ns_config -int "ns/server/[ns_info server]/module/[ad_conn driver]" Port] + set result(port) [ns_config -int $section Port] set result(proto) https } nsopenssl { - set result(port) [ns_config -int "ns/server/[ns_info server]/module/[ad_conn driver]" ServerPort] + set result(port) [ns_config -int $section ServerPort] set result(proto) https } default { ns_log Error "Unknown driver: [ad_conn driver]. Only know nssock, nsunix, nsssl, nsssle, nsopenssl" - set result(port) [ns_config -int "ns/server/[ns_info server]/module/nssock" Port] + set result(port) [ns_config -int $section Port] set result(proto) http } }