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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
package require TclCurl
proc Perform {multiHandle} {
if {[catch {$multiHandle active} activeTransfers]} {
puts "Error checking active transfers: $activeTransfers"
return -1
}
if {[catch {$multiHandle perform} running]} {
puts "Error: $running"
return 1
}
return $running
}
proc StartTransfer {multiHandle} {
while {1==1} {
set runningTransfers [Perform $multiHandle]
if {$runningTransfers>0} {
after 500
} else {
break
}
}
}
set curlEasyHandle [curl::init]
$curlEasyHandle configure -url http://127.0.0.1/ -file index.html
if {[catch {curl::multiinit} curlMultiHandle]} {
puts "Error with multi handle init"
}
puts "The multi handle: $curlMultiHandle"
puts -nonewline "We add the easy handle: "
puts [$curlMultiHandle addhandle $curlEasyHandle]
StartTransfer $curlMultiHandle
puts "Calling getinfo [$curlMultiHandle getinfo]"
puts -nonewline "Removing the easy handle: "
puts [$curlMultiHandle removehandle $curlEasyHandle]
puts -nonewline "Cleanup the multi handle handle: "
puts [$curlMultiHandle cleanup]
$curlEasyHandle cleanup
|
