Tcl Source Code

Artifact 9c8926c258b2f466c7f5f3cacd1df724f6f1735c:

Attachment "accept_client.tcl" to ticket [597970ffff] added by davygrvy 2002-08-29 07:31:15.

---

set numcon 50
set goodsockets 0
set badsockets 0

set i 0
while { $i < $numcon } {
    if { [catch {
	    set sk [socket localhost 8090] 
	    fconfigure $sk -buffering line 
	    puts $sk {GET / HTTP/1.0} 
	} err] } {
	    incr ::badsockets 
	    puts "$::badsockets bad sockets" 
    } else { 
	incr ::goodsockets 
	puts "$::goodsockets good sockets" 
    }
    incr i 
}