tests/file.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4 $curlHandle configure -url "127.0.0.1" -file "index.html"
   5 $curlHandle perform
   6
   7 puts "First transfer finished\n"
   8
   9 $curlHandle configure -header  1 -file cosa.html
  10 $curlHandle perform
  11
  12 $curlHandle cleanup
  13
  14
  15
  16
  17