Implement session and login handling

addon/lib/querystring.tcl

@@ -1,9 +0,0 @@
-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

@@ -1,13 +0,0 @@
-#!/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
-}