24 lines
270 B
Tcl
Executable File
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|