tests/readProc.tcl

   1 package require TclCurl
   2
   3 # As an example this is very contrived, but it works.
   4
   5 proc readFile {size} {
   6
   7     set chunk [read $::inFile $size]
   8
   9     return $chunk
  10 }
  11
  12 set inFile [open "cosa.tar" r]
  13 fconfigure $inFile -translation binary
  14
  15 curl::transfer -url "ftp://127.0.0.1/cosa.tar" -verbose 1 \
  16         -username user -password pass -readproc readFile -upload 1
  17
  18 close $inFile
  19
  20
  21
  22
  23