3 package require TclCurl
5 proc CleanUp {multiHandle easyHandle} {
6 puts "\n\nCleaning up $multiHandle - $easyHandle\n\n"
8 $multiHandle removehandle $easyHandle
12 puts "\n\nAll done\n\n"
17 proc StartTransfer {} {
18 set multiHandle [curl::multiinit]
19 set easyHandle [curl::init]
21 $easyHandle configure -url http://127.0.0.1/~andres/HomePage.tar.gz -file home.tar.gz
23 $multiHandle addhandle $easyHandle
25 $multiHandle auto -command "CleanUp $multiHandle $easyHandle"
28 set start [button .start -text Start -command StartTransfer]
29 set stop [button .stop -text Stop -command StopTransfer]
31 pack $start $stop -side left -padx 10 -pady 10