tests/bufferSize.tcl

   1 package require TclCurl
   2
   3 # This is one contrived example, but it works.
   4
   5 proc writeToFile {readData} {
   6     puts "writeToFile called [incr ::i]"
   7     puts -nonewline $::inFile $readData
   8
   9     return
  10 }
  11
  12 set i 0
  13
  14 set inFile [open "cosa.tar" w+]
  15 fconfigure $inFile -translation binary
  16
  17 curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" \
  18         -writeproc writeToFile -buffersize 250
  19
  20 close $inFile
  21
  22
  23
  24