mirror of
https://github.com/j-a-n/raspberrymatic-addon-rmupdate.git
synced 2023-10-10 13:37:40 +02:00
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
|
|
}
|