(Boeing r1753)

properly support session options having spaces in value
This commit is contained in:
ahrenholz 2013-08-29 16:03:53 +00:00
parent f8f46d28be
commit 1116ff83b5
2 changed files with 3 additions and 3 deletions

View file

@ -464,7 +464,7 @@ proc loadCfg { cfg } {
# uses 'key=value' instead of 'key value'
if { $object == "session" } {
# 'key=value', values with space needs quoting 'key={space val}'
setSessionOptions "" $line
setSessionOptions "" [split $line "\n"]
set class ""
set object ""
continue

View file

@ -1471,12 +1471,12 @@ proc resetSessionOptions {} {
proc setSessionOptions { types vals } {
global g_session_options
foreach kv $vals {
set kvs [split $kv =]
set kvs [splitKeyValue $kv]
if {[llength $kvs] < 2} {
puts "error with session option: $kv"
continue
}
set key [lindex $kvs 0]
set key [string trim [lindex $kvs 0]]
set value [lindex $kvs 1]
array set g_session_options [list $key $value]
}