Changeset 2174 for code/branches/objecthierarchy2/bin

Timestamp:

Nov 10, 2008, 10:13:58 PM (16 years ago)

Author:

landauf

Message:

changed tcl server script:

• client logout with "quit" or "logout"
• server shutdown with "exit"

File:

• code/branches/objecthierarchy2/bin/telnet_server.tcl (modified) (1 diff)

code/branches/objecthierarchy2/bin/telnet_server.tcl

@@ -81 +81 @@
          return
      }
-     if {[string equal $line "quit"] || [string equal $line "exit"]} {
+     if {[string equal $line "logout"] || [string equal $line "quit"]} {
          disconnect $client
+         return
+     }
+     if {[string equal $line "exit"]} {
+         set ::termination 1
          return
      }