2014-02-05 16:43:59 -08:00

24 lines
270 B
Tcl
Executable File

package require TclCurl
set curlHandle [curl::init]
$curlHandle configure -url 127.0.0.1 -verbose 1 -nobody 1
puts "First one is verbose"
$curlHandle perform
puts "The second isn't"
$curlHandle configure -verbose 0
$curlHandle perform
$curlHandle cleanup