add tcl libs for session check

addon/lib/querystring.tcl

@@ -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
+    }
+  }
+}

addon/lib/session.tcl

@@ -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
+}