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.104 -r1.105 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 30 Jun 2018 22:04:28 -0000 1.104 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 24 Jul 2018 19:42:16 -0000 1.105 @@ -112,6 +112,11 @@ # # We have no cookie. Maybe we are running under 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]" + #} if {[nsv_array exists aa_test] && [nsv_get aa_test logindata logindata] && [ns_conn peeraddr] eq [dict get $logindata peeraddr] @@ -593,7 +598,7 @@ # Fetch the last value element of ad_user_login cookie (or # ad_user_login_secure) that indicates if user wanted to be - # remembered when loggin in. + # remembered when logging in. set discard t set max_age [sec_session_timeout]