diff options
Diffstat (limited to 'src/helper/startup.tcl')
| -rw-r--r-- | src/helper/startup.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index eb190666..0ac1ebd7 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -300,3 +300,19 @@ proc verify {args} { } add_help_text verify "synonym to verify_image" + + +add_help_text telnet_async "<enable/disable> - enable/disable async messages. Default 0." + +global telnet_async_state +set telnet_async_state 0 +proc telnet_async {state} { + global telnet_async_state + if {[string compare $state enable]==0} { + set telnet_async_state 1 + } elseif {[string compare $state disable]==0} { + set telnet_async_state 0 + } else { + return -code error "Illegal option $state" + } +}
\ No newline at end of file |