exit command added

2011-09-12 09:52:48 +00:00
parent ff46c9a4a7
commit 807fe825d6
1 changed files with 3 additions and 0 deletions
--- a/streamApp/terminal.tcl
+++ b/streamApp/terminal.tcl
@ -74,6 +74,9 @@ proc receiveHandler {sock} {
    set l [split $a]
    if [catch {
        switch -- [lindex $l 0] {
+            "exit" {
+                exit
+            }
            "disconnect" {
                sendReply $sock [string range $a 11 end]
                destroy .$sock