37 lines
764 B
Tcl
Raw Permalink Normal View History

2014-02-05 16:43:59 -08:00
package require TclCurl
# These tests has some urls that don't exists outside my system,
# so IT WON'T WORK FOR YOU unless you change them.
set curlHandle [curl::init]
$curlHandle configure -url "127.0.0.1" -bodyvar body -noprogress 1
$curlHandle perform
$curlHandle configure -url "127.0.0.1/~andres/" -bodyvar newBody
$curlHandle perform
$curlHandle cleanup
puts "First page:"
puts $body
puts "Second page:"
puts $newBody
# You can also use it for binary transfers
curl::transfer \
-url {127.0.0.1/~andres/HomePage/getleft/images/getleft.png} \
-bodyvar image -noprogress 1 -verbose 1
if [catch {open "getleft.png" w} out] {
puts "Could not open $out."
exit
}
fconfigure $out -translation binary
puts $out $image
close $out