/usr/share/doc/tclcurl/examples/bodyVar.tcl is in tclcurl 7.22.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 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
|