Tcl Source Code

Artifact b471cec16d5a49e8216bba180a305a4320d39e2d:

Attachment "accept1_server.tcl" to ticket [597970ffff] added by davygrvy 2002-08-29 07:32:30.

---

set MyCounter 0

proc Cntr {chan addr port} {
    global ::MyCounter
    incr ::MyCounter
    puts "Counter: $::MyCounter"
    fileevent $chan readable [list DoRead $chan $addr:$port] 
}

proc DoRead {chan tuple} {
    if {[string length [set error [fconfigure $chan -error]]]} {
	puts "error on $tuple is $error"
	close $chan
    }
    puts "got \"[gets $chan]\" on $tuple"
    if {[eof $chan]} { close $chan }
}

socket -server Cntr 8090
vwait forever