Fix session check

This commit is contained in:
Jan Schneider 2019-12-22 11:56:16 +01:00
parent a89f3fd83a
commit 44bf45ce12
1 changed files with 1 additions and 2 deletions

View File

@ -46,7 +46,7 @@ proc get_session {sid} {
proc check_session {sid} { proc check_session {sid} {
if {[get_session $sid] != ""} { if {[get_session $sid] != ""} {
# renew session # check and renew session
set url "http://127.0.0.1/pages/index.htm?sid=$sid" set url "http://127.0.0.1/pages/index.htm?sid=$sid"
set request [::http::geturl $url] set request [::http::geturl $url]
set code [::http::code $request] set code [::http::code $request]
@ -54,7 +54,6 @@ proc check_session {sid} {
if {[lindex $code 1] == 200} { if {[lindex $code 1] == 200} {
return 1 return 1
} }
return 1
} }
return 0 return 0
} }