Merge pull request #11 from hobbyquaker/master

Session validation

addon/etc/rmupdate-addon.cfg

@@ -1,5 +1,5 @@
 {
-  CONFIG_URL /addons/rmupdate
+  CONFIG_URL /addons/rmupdate/index.cgi
   CONFIG_DESCRIPTION {
     de {<li>System-Update</li>}
     en {<li>System-update</li>}

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

addon/www/index.cgi

@@ -0,0 +1,12 @@
+#!/bin/tclsh
+
+source /usr/local/addons/rmupdate/lib/querystring.tcl
+source /usr/local/addons/rmupdate/lib/session.tcl
+
+if {[info exists sid] && [check_session $sid]} {
+    set fp [open "/usr/local/addons/rmupdate/www/rmupdate.html" r]
+    puts -nonewline [read $fp]
+    close $fp
+} else {
+    puts {error: invalid session}
+}