mirror of
https://github.com/j-a-n/raspberrymatic-addon-rmupdate.git
synced 2023-10-10 13:37:40 +02:00
10 lines
195 B
Tcl
10 lines
195 B
Tcl
|
catch {
|
||
|
|
set input $env(QUERY_STRING)
|
||
|
|
set pairs [split $input &]
|
||
|
|
foreach pair $pairs {
|
||
|
|
if {0 != [regexp "^(\[^=]*)=(.*)$" $pair dummy varname val]} {
|
||
|
|
set $varname $val
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|