22 lines
350 B
Tcl
22 lines
350 B
Tcl
|
package require TclCurl
|
||
|
|
|
||
|
|
set curlHandle [curl::init]
|
||
|
|
|
||
|
|
puts "First we save the headers in 'header.txt'"
|
||
|
|
|
||
|
|
$curlHandle configure -noprogress 1 -nobody 1 -url "127.0.0.1" \
|
||
|
|
-writeheader header.txt
|
||
|
|
$curlHandle perform
|
||
|
|
|
||
|
|
puts "And now we dump them to the console"
|
||
|
|
|
||
|
|
$curlHandle configure -writeheader ""
|
||
|
|
$curlHandle perform
|
||
|
|
|
||
|
|
$curlHandle cleanup
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|