tests/verbose.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4
   5 $curlHandle configure -url 127.0.0.1 -verbose 1 -nobody 1
   6
   7
   8 puts "First one is verbose"
   9 $curlHandle perform
  10
  11 puts "The second isn't"
  12 $curlHandle configure -verbose 0
  13 $curlHandle perform
  14
  15
  16 $curlHandle cleanup
  17
  18
  19
  20
  21
  22
  23