From 807fe825d678d96145629b2abb92e874df1b1a37 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Mon, 12 Sep 2011 09:52:48 +0000
Subject: [PATCH] exit command added

---
 streamApp/terminal.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/streamApp/terminal.tcl b/streamApp/terminal.tcl
index 504b8ad..b2374ba 100755
--- 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