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.4 -r1.5 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 29 Dec 2001 01:48:32 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 9 Feb 2002 02:33:35 -0000 1.5 @@ -1019,6 +1019,7 @@ ns_log Debug "Security: Expire_Time is $expire_time (compare to [ns_time]), hash is $hash" # validate cookie: verify hash and expire_time + set computed_hash [ns_sha1 "$value$token_id$expire_time$secret_token"] if { [string compare $computed_hash $hash] == 0 && ($expire_time > [ns_time] || $expire_time == 0) } {