[darkone]

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
}
}