tests/multi/auto.tcl

   1 #!/usr/local/bin/wish8.4
   2
   3 package require TclCurl
   4
   5 #wm withdraw .
   6
   7 proc CleanUp {multiHandle easyHandle} {
   8     puts "\n\nCleaning up\n\n"
   9
  10     $::multiHandle removehandle $::easyHandle
  11     $::multiHandle cleanup
  12     $::easyHandle  cleanup
  13
  14     puts "\n\nAll done\n\n"
  15
  16     exit
  17 }
  18
  19 set multiHandle [curl::multiinit]
  20 set easyHandle  [curl::init]
  21
  22 $easyHandle  configure -url http://127.0.0.1/~andres/HomePage.tar.gz -file home.tar.gz
  23
  24 $multiHandle addhandle $easyHandle
  25
  26 puts "Starting transfer..."
  27
  28 $multiHandle auto -command "CleanUp $multiHandle $easyHandle"
  29
  30
  31