Fix session check
This commit is contained in:
parent
a89f3fd83a
commit
44bf45ce12
|
@ -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
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue