reset.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4
   5 puts "First we save in 'index.html'"
   6
   7 $curlHandle configure -noprogress  1 -url "127.0.0.1" -file "index.html"
   8 $curlHandle perform
   9
  10 puts "And now in stdout"
  11
  12 $curlHandle reset
  13 $curlHandle configure -url "http://127.0.0.1/"
  14 $curlHandle perform
  15
  16 $curlHandle cleanup
  17
  18
  19
  20
  21