tests/multi/single.tcl

   1 package require TclCurl
   2
   3 proc Perform {multiHandle} {
   4     if {[catch {$multiHandle active} activeTransfers]} {
   5         puts "Error checking active transfers: $activeTransfers"
   6         return -1
   7     }
   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 set curlEasyHandle [curl::init]
  28
  29 $curlEasyHandle configure -url http://127.0.0.1/ -file index.html
  30
  31 if {[catch {curl::multiinit} curlMultiHandle]} {
  32     puts "Error with multi handle init"
  33 }
  34
  35 puts "The multi handle: $curlMultiHandle"
  36
  37 puts -nonewline "We add the easy handle: "
  38 puts [$curlMultiHandle addhandle $curlEasyHandle]
  39
  40 StartTransfer $curlMultiHandle
  41
  42 puts "Calling getinfo [$curlMultiHandle getinfo]"
  43
  44 puts -nonewline "Removing the easy handle: "
  45 puts [$curlMultiHandle removehandle $curlEasyHandle]
  46
  47 puts -nonewline "Cleanup the multi handle handle: "
  48 puts [$curlMultiHandle cleanup]
  49
  50 $curlEasyHandle cleanup
  51
  52