add tcl libs for session check
This commit is contained in:
parent
cc45e7d034
commit
13ca418ce2
|
@ -0,0 +1,9 @@
|
|||
catch {
|
||||
set input $env(QUERY_STRING)
|
||||
set pairs [split $input &]
|
||||
foreach pair $pairs {
|
||||
if {0 != [regexp "^(\[^=]*)=(.*)$" $pair dummy varname val]} {
|
||||
set $varname $val
|
||||
}
|
||||
}
|
||||
}
|
|
@ -0,0 +1,13 @@
|
|||
#!/bin/tclsh
|
||||
|
||||
load tclrega.so
|
||||
|
||||
proc check_session sid {
|
||||
if {[regexp {@([0-9a-zA-Z]{10})@} $sid all sidnr]} {
|
||||
set res [lindex [rega_script "Write(system.GetSessionVarStr('$sidnr'));"] 1]
|
||||
if {$res != ""} {
|
||||
return 1
|
||||
}
|
||||
}
|
||||
return 0
|
||||
}
|
Loading…
Reference in New Issue