1 package require TclCurl
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"] \
12 puts "Upload complete"