1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package require TclCurl
proc ProgressCallback {dltotal dlnow ultotal ulnow} {
set dltotal [expr int($dltotal)]
set dlnow [expr int($dlnow)]
set ultotal [expr int($ultotal)]
set ulnow [expr int($ulnow)]
puts "Progress callback: $dltotal - $dlnow - $ultotal - $ulnow"
return
}
set curlHandle [curl::init]
$curlHandle configure -url "127.0.0.1/~andres/cosa&co.tar" \
-progressproc ProgressCallback -file cosa.tar -noprogress 0
$curlHandle perform
$curlHandle cleanup
|
