version 1.3, 1999/12/13 21:38:44
|
version 1.4, 1999/12/16 22:18:35
|
Line 1442 proc getSet { pid set followupCommand {s
|
Line 1442 proc getSet { pid set followupCommand {s
|
if { [array names gGetSet exit] == "" } { set gGetSet(exit) 0 } |
if { [array names gGetSet exit] == "" } { set gGetSet(exit) 0 } |
} |
} |
if { [catch {set gCapaConfig(getSet.answers_command)}] } {parseCapaConfig getSet} |
if { [catch {set gCapaConfig(getSet.answers_command)}] } {parseCapaConfig getSet} |
set command "$gCapaConfig(getSet.answers_command) $pid {} {} $set" |
set command "$gCapaConfig(getSet.answers_command) $pid {} 1 $set" |
foreach var [array names gCapaConfig $num.*] { unset gCapaConfig($var) } |
foreach var [array names gCapaConfig $num.*] { unset gCapaConfig($var) } |
set fileId [open "|$command" "r"] |
set fileId [open "|$command" "r"] |
fileevent $fileId readable "getSetLine $num $fileId" |
fileevent $fileId readable "getSetLine $num $fileId" |