socket -server obsluga 10000

proc obsluga {s args} {
  _puts "obsluga: podlaczyl sie $s"
  fileevent $s readable "obslugaKli $s"
}
proc obslugaKli s {
  if {[eof $s]} { puts "obslugaKli: close $s"; close $s; return }
  set linia [gets $s]
  _puts "obslugaKli: od $s przyszla $linia"
}

file chann sock*




















exit