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