package require http proc HttpCallback {token} { global count done ::http::cleanup $token if {[incr count -1] == 0} { set done 1 } } proc StartTest {count url} { for {set i 1} {$i <= $count} {incr i} { ::http::geturl $url \ -command HttpCallback \ -blocksize 1024 } } set startTime [clock seconds] set done 0 set count 100 StartTest $count http://209.17.146.136 #StartTest $count http://www.tcl.tk set endTime [clock seconds] puts stdout "$startTime $endTime" flush stdout vwait done set stopTime [clock seconds] puts stdout "$startTime $endTime $stopTime"
Comments
Posted by gwlester at Fri Nov 09 19:53:57 GMT 2007 [text] [code]
package require http proc HttpCallback {token} { global count done ::http::cleanup $token if {[incr count -1] == 0} { set done 1 } } proc StartTest {count url} { for {set i 1} {$i <= $count} {incr i} { ::http::geturl $url \ -command HttpCallback \ -blocksize 1024 } } set startTime [clock seconds] set done 0 set count 100 StartTest $count http://209.17.146.136 #StartTest $count http://www.tcl.tk set endTime [clock seconds] puts stdout "$startTime $endTime" flush stdout vwait done set stopTime [clock seconds] puts stdout "$startTime $endTime $stopTime"