3 package require TclCurl
7 proc CleanUp {multiHandle easyHandle} {
8 puts "\n\nCleaning up\n\n"
10 $::multiHandle removehandle $::easyHandle
11 $::multiHandle cleanup
14 puts "\n\nAll done\n\n"
19 set multiHandle [curl::multiinit]
20 set easyHandle [curl::init]
22 $easyHandle configure -url http://127.0.0.1/~andres/HomePage.tar.gz -file home.tar.gz
24 $multiHandle addhandle $easyHandle
26 puts "Starting transfer..."
28 $multiHandle auto -command "CleanUp $multiHandle $easyHandle"