raspberrymatic-addon-rmupdate/addon/lib/querystring.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
}
}
}