1 package require TclCurl
3 # Another one of my contrived but working examples.
5 proc ProgressCallback {dltotal dlnow ultotal ulnow} {
8 set dltotal [expr int($dltotal)]
9 set dlnow [expr int($dlnow)]
10 set ultotal [expr int($ultotal)]
11 set ulnow [expr int($ulnow)]
13 puts "$i Progress callback: $dlnow of $dltotal downloaded"
28 set curlHandle [curl::init]
30 $curlHandle configure -url "127.0.0.1/~andres/cosa&co.tar" \
31 -progressproc ProgressCallback -file cosa.tar -noprogress 0