1 package require TclCurl
3 proc ProgressCallback {dltotal dlnow ultotal ulnow} {
5 set dltotal [expr int($dltotal)]
6 set dlnow [expr int($dlnow)]
7 set ultotal [expr int($ultotal)]
8 set ulnow [expr int($ulnow)]
10 puts "Progress callback: $dltotal - $dlnow - $ultotal - $ulnow"
16 set curlHandle [curl::init]
18 $curlHandle configure -url "127.0.0.1/~andres/cosa&co.tar" \
19 -progressproc ProgressCallback -file cosa.tar -noprogress 0