tests/multi/double.tcl

   1 package require TclCurl
   2
   3
   4 proc Perform {multiHandle} {
   5     if {[catch {$multiHandle active} activeTransfers]} {
   6         puts "Error checking active transfers: $activeTransfers"
   7         return -1
   8     }
   9     if {[catch {$multiHandle perform} running]} {
  10         puts "Error: $running"
  11         return 1
  12     }
  13     return $running
  14 }
  15
  16 proc StartTransfer {multiHandle} {
  17     while {1==1} {
  18         set runningTransfers [Perform $multiHandle]
  19         if {$runningTransfers>0} {
  20             after 500
  21         } else {
  22             break
  23         }
  24     }
  25 }
  26
  27 puts "We create and configure the easy handles"
  28
  29 set curlEasyHandle1 [curl::init]
  30 set curlEasyHandle2 [curl::init]
  31
  32 $curlEasyHandle1 configure -url http://127.0.0.1/~andres/ -file index.html
  33 $curlEasyHandle2 configure -url http://127.0.0.1/ -file index2.html
  34
  35 puts "Creating the multi handle"
  36
  37 set curlMultiHandle [curl::multiinit]
  38
  39 puts "Adding easy handles to the multi one"
  40
  41 $curlMultiHandle addhandle $curlEasyHandle1
  42 $curlMultiHandle addhandle $curlEasyHandle2
  43
  44 puts "We start the transfer"
  45
  46 StartTransfer $curlMultiHandle
  47
  48 puts "Transfer done, cleanning up"
  49
  50 $curlMultiHandle removehandle $curlEasyHandle1
  51 $curlMultiHandle removehandle $curlEasyHandle2
  52
  53 $curlMultiHandle cleanup
  54 $curlEasyHandle1 cleanup
  55 $curlEasyHandle2 cleanup
  56
  57