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