tests/headNoHead.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4
   5 puts "First we save the headers in 'header.txt'"
   6
   7 $curlHandle configure -noprogress 1 -nobody 1 -url "127.0.0.1" \
   8         -writeheader header.txt
   9 $curlHandle perform
  10
  11 puts "And now we dump them to the console"
  12
  13 $curlHandle configure -writeheader ""
  14 $curlHandle perform
  15
  16 $curlHandle cleanup
  17
  18
  19
  20
  21