Thread: TCL - Telnet
View Single Post
Old 12-21-2002, 12:04 PM  
darkone
Disabled
 
darkone's Avatar
 
Join Date: Dec 2001
Posts: 2,230
Default

You could improve performance on script changing last part of switch to:

2 {
# Get line
#

while { [set buffer [gets $sock]] != "" } {
# New line recieved
#

putlog $buffer
}
}
darkone is offline   Reply With Quote