commit
219d5801b4
|
@ -1,5 +1,5 @@
|
||||||
{
|
{
|
||||||
CONFIG_URL /addons/rmupdate
|
CONFIG_URL /addons/rmupdate/index.cgi
|
||||||
CONFIG_DESCRIPTION {
|
CONFIG_DESCRIPTION {
|
||||||
de {<li>System-Update</li>}
|
de {<li>System-Update</li>}
|
||||||
en {<li>System-update</li>}
|
en {<li>System-update</li>}
|
||||||
|
|
|
@ -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
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
|
@ -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
|
||||||
|
}
|
|
@ -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}
|
||||||
|
}
|
Loading…
Reference in New Issue