14 lines
276 B
Tcl
14 lines
276 B
Tcl
|
#!/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
|
||
|
|
}
|