2014-09-28 23:14:22 -07:00
|
|
|
#!/usr/bin/wish
|
2014-02-05 16:43:59 -08:00
|
|
|
|
|
|
|
|
package require TclCurl
|
|
|
|
|
|
|
|
|
|
#wm withdraw .
|
|
|
|
|
|
|
|
|
|
proc CleanUp {multiHandle easyHandle} {
|
|
|
|
|
puts "\n\nCleaning up\n\n"
|
|
|
|
|
|
|
|
|
|
$::multiHandle removehandle $::easyHandle
|
|
|
|
|
$::multiHandle cleanup
|
|
|
|
|
$::easyHandle cleanup
|
|
|
|
|
|
|
|
|
|
puts "\n\nAll done\n\n"
|
|
|
|
|
|
|
|
|
|
exit
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
set multiHandle [curl::multiinit]
|
|
|
|
|
set easyHandle [curl::init]
|
|
|
|
|
|
|
|
|
|
$easyHandle configure -url http://127.0.0.1/~andres/HomePage.tar.gz -file home.tar.gz
|
|
|
|
|
|
|
|
|
|
$multiHandle addhandle $easyHandle
|
|
|
|
|
|
|
|
|
|
puts "Starting transfer..."
|
|
|
|
|
|
|
|
|
|
$multiHandle auto -command "CleanUp $multiHandle $easyHandle"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
