Remove superfluous trailing white space from TCL files
This commit is contained in:
@@ -174,11 +174,11 @@ proc getCMD {channel line} {
|
||||
}
|
||||
}
|
||||
}
|
||||
# Reads a command from a DMC2280 client and then performs an appropriate
|
||||
# Reads a command from a DMC2280 client and then performs an appropriate
|
||||
# action depending on whether or not the command produces output or has
|
||||
# been defined.
|
||||
proc readLine {who channel} {
|
||||
global didRead
|
||||
global didRead
|
||||
global B
|
||||
global validUID
|
||||
global validPWD
|
||||
@@ -191,7 +191,7 @@ proc readLine {who channel} {
|
||||
puts "RECEIVED EOF: $line"
|
||||
close $f
|
||||
return -code error "Got EOF, close channel"
|
||||
} else {
|
||||
} else {
|
||||
puts "RECEIVED: $line"
|
||||
switch $serverState {
|
||||
"UID" {
|
||||
|
||||
Reference in New Issue
Block a user