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.126.2.18 -r1.126.2.19 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 31 Oct 2019 18:15:25 -0000 1.126.2.18 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 2 Nov 2019 16:09:53 -0000 1.126.2.19 @@ -125,13 +125,13 @@ # aa_test. # #if {[nsv_array exists aa_test]} { - # ns_log notice "nsv_array logindata [nsv_get aa_test logindata logindata]" - # ns_log notice "ns_conn peeraddr [ns_conn peeraddr]" - # ns_log notice "dict get $logindata peeraddr [dict get $logindata peeraddr]" + # ns_log notice "... nsv_array logindata [nsv_get aa_test logindata logindata]" + # ns_log notice "... ns_conn peeraddr [ns_conn peeraddr]" + # ns_log notice "... dict get $logindata peeraddr [ns_conn peeraddr]" #} if {[nsv_array exists aa_test] && [nsv_get aa_test logindata logindata] - && [ns_conn peeraddr] eq [dict get $logindata peeraddr] + && [ns_conn peeraddr] in [list [dict get $logindata peeraddr] 127.0.0.1] } { #ns_log notice logindata=$logindata if {[dict exists $logindata user_id]} {