tests/ftp.tcl

   1 package require TclCurl
   2
   3 puts "nobody==1 --- header==1"
   4 curl::transfer -url "ftp://127.0.0.1/pub/indust2.gif" -nobody 1 -header 1
   5
   6 puts "nobody==0 --- header ignored"
   7 curl::transfer -url "ftp://127.0.0.1/pub/indust2.gif" -nobody 0 \
   8         -file cosa.gif
   9
  10 puts "nobody==1 --- HEADERS==0"
  11 curl::transfer -url "ftp://127.0.0.1/pub/indust2.gif" -nobody 1 \
  12         -header 0 -postquote [list "mkdir nada"]
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22