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
|
#!/usr/bin/wish
package require TclCurl
proc CleanUp {multiHandle easyHandle} {
puts "\n\nCleaning up $multiHandle - $easyHandle\n\n"
$multiHandle removehandle $easyHandle
$multiHandle cleanup
$easyHandle cleanup
puts "\n\nAll done\n\n"
exit
}
proc StartTransfer {} {
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
$multiHandle auto -command "CleanUp $multiHandle $easyHandle"
}
set start [button .start -text Start -command StartTransfer]
set stop [button .stop -text Stop -command StopTransfer]
pack $start $stop -side left -padx 10 -pady 10
|
