300 |
if [info exists MU_TOOL_VERSION] { |
if [info exists MU_TOOL_VERSION] { |
301 |
return |
return |
302 |
} |
} |
303 |
|
|
304 |
|
if {![info exists MU_CAPABILITY]} { |
305 |
|
return |
306 |
|
} |
307 |
|
|
308 |
set output [remote_exec host "$MU_TOOL --show-config-options"] |
set output [remote_exec host "$MU_TOOL --show-config-options"] |
309 |
set flg [split [lindex $output 1]] |
set flg [split [lindex $output 1]] |
347 |
return -1 |
return -1 |
348 |
} |
} |
349 |
} |
} |
350 |
|
verbose "RESULT: $res" 2 |
351 |
return $res |
return $res |
352 |
} |
} |
353 |
|
|
463 |
} else { |
} else { |
464 |
mu_expect $tmt { |
mu_expect $tmt { |
465 |
-ex "$pat" { |
-ex "$pat" { |
466 |
if { $expect_out(buffer) != $expect_out(0,string) } { |
# if { $expect_out(buffer) != $expect_out(0,string) } { |
467 |
verbose "Got \"$expect_out(buffer)\"" 2 |
# verbose "Got \"$expect_out(buffer)\"" 2 |
468 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
# verbose "instead of expected \"$pat\\r\\n\"" 2 |
469 |
set result 1 |
# set result 1 |
470 |
break |
# break |
471 |
} |
# } |
472 |
} |
} |
473 |
default { |
default { |
474 |
set result 1 |
set result 1 |
526 |
|
|
527 |
set result -1 |
set result -1 |
528 |
if { "${command}" != "" } { |
if { "${command}" != "" } { |
529 |
if { [mu_command "${command}"] != "" } { |
set res [mu_command "${command}"] |
530 |
|
if { $res != "" } { |
531 |
if { ! $do_suppress } { |
if { ! $do_suppress } { |
532 |
perror "Couldn't send \"$command\"."; |
perror "Couldn't send \"$command\": $res."; |
533 |
} |
} |
534 |
return $result; |
return $result; |
535 |
} |
} |
577 |
} else { |
} else { |
578 |
mu_expect $tmt { |
mu_expect $tmt { |
579 |
-ex "$pat" { |
-ex "$pat" { |
580 |
if { $expect_out(buffer) != $expect_out(0,string) } { |
# if { $expect_out(buffer) != $expect_out(0,string) } { |
581 |
verbose "Got \"$expect_out(buffer)\"" 2 |
# verbose "Got \"$expect_out(buffer)\"" 2 |
582 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
# verbose "instead of expected \"$pat\\r\\n\"" 2 |
583 |
set result 1 |
# set result 1 |
584 |
break |
# break |
585 |
} |
# } |
586 |
} |
} |
587 |
default { |
default { |
588 |
set result 1 |
set result 1 |
597 |
break |
break |
598 |
} |
} |
599 |
} |
} |
600 |
verbose "RES: $result" |
|
601 |
if {$result == 0} { |
if {$result == 0} { |
602 |
mu_expect $tmt { |
mu_expect $tmt { |
603 |
-re "\[ \t]*\r\n" { } |
-re "\[ \t]*\r\n" { } |