tests/upload.tcl

   1 package require TclCurl
   2
   3
   4 curl::transfer -url ftp://andres:ciclope4@127.0.01/cosa.tcl                 \
   5         -infilesize [file size writeProc.tcl] -infile writeProc.tcl -upload 1 \
   6         -verbose 1
   7
   8