version updated

This commit is contained in:
zimoch
2013-05-16 08:45:49 +00:00
parent bfc8e6a9cd
commit d5cda13f6f
4 changed files with 656 additions and 30 deletions

View File

@ -40,11 +40,13 @@ proc escape {string} {
}
proc sendReply {sock text} {
.$sock.t mark set insert end
.$sock.t insert end $text
.$sock.t see end
puts -nonewline $sock $text
# puts "sending \"[escape $text]\"\n"
catch {
# ignore that socket may already be closed
.$sock.t mark set insert end
.$sock.t insert end $text
.$sock.t see end
puts -nonewline $sock $text
}
}
proc checkNum {n} {