Tcl Source Code

Artifact fb690fa020916bb9653486ac38ecef79a8364fd7:

Attachment "tst-http.tcl" to ticket [2911139fff] added by kakaroto 2009-12-09 09:33:27.

---

package require http

proc tst { {depth 0}} {
  if { $depth == 5 }  {
    geturl
  } else {
    incr depth 1
    tst $depth
  }
}

proc dummy { args }  {}

proc geturl { } {
  ::http::geturl "http://google.com" -timeout 600000 -command dummy
}

for {set i 0} {$i < 100 } { incr i } {
   after idle tst
}