tests/ftpUpload.tcl

   1 package require TclCurl
   2
   3 set buffer ""
   4 if {[catch {curl::transfer -url ftp://127.0.0.1/Test/cosa.tcl \
   5         -userpwd "user:pwd" -verbose 1                        \
   6         -infile ftpUpload.tcl -upload 1  -errorbuffer buffer  \
   7         -quote [list "mkd Test"]                              \
   8         -postquote [list "rnfr cosa.tcl" "rnto script.tcl"]   \
   9       } buffer]} {
  10     puts "Error: $buffer"
  11 } else {
  12     puts "Upload complete"
  13 }
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  24
  25