tests/progressProcPause.tcl

   1 package require TclCurl
   2
   3 # Another one of my contrived but working examples.
   4
   5 proc ProgressCallback {dltotal dlnow ultotal ulnow} {
   6     global i curlHandle
   7
   8     set dltotal [expr int($dltotal)]
   9     set dlnow   [expr int($dlnow)]
  10     set ultotal [expr int($ultotal)]
  11     set ulnow   [expr int($ulnow)]
  12
  13     puts "$i Progress callback: $dlnow of $dltotal downloaded"
  14
  15     if {$i==10} {
  16         $curlHandle pause
  17     } elseif {$i==30} {
  18         $curlHandle resume
  19     }
  20     incr i
  21
  22     return
  23 }
  24
  25
  26 set i 0
  27
  28 set curlHandle [curl::init]
  29
  30 $curlHandle configure -url "127.0.0.1/~andres/cosa&co.tar"  \
  31         -progressproc ProgressCallback -file cosa.tar -noprogress 0
  32 $curlHandle perform
  33
  34 $curlHandle cleanup
  35
  36
  37
  38
  39