tests/headerVar.tcl

   1 package require TclCurl
   2
   3 curl::transfer -url 127.0.0.1 -header 1 -nobody 1 -headervar headers
   4
   5 puts "The received headers"
   6 foreach {key content} [array get headers] {
   7     puts "headers($key): $content"
   8 }
   9
  10
  11
  12
  13