22 lines
323 B
Tcl
Executable File
22 lines
323 B
Tcl
Executable File
package require TclCurl
|
|
|
|
set curlHandle [curl::init]
|
|
|
|
puts "First we save in 'index.html'"
|
|
|
|
$curlHandle configure -noprogress 1 -url "127.0.0.1" -file "index.html"
|
|
$curlHandle perform
|
|
|
|
puts "And now in stdout"
|
|
|
|
$curlHandle reset
|
|
$curlHandle configure -url "http://127.0.0.1/"
|
|
$curlHandle perform
|
|
|
|
$curlHandle cleanup
|
|
|
|
|
|
|
|
|
|
|