X-Git-Url: https://git.sven.stormbind.net/?a=blobdiff_plain;f=tests%2FbodyVar.tcl;fp=tests%2FbodyVar.tcl;h=ef3a9a0cfecc3d20bf3d0339d1bb77db5ba7a890;hb=b0e6fb6e4379fb87fa2854b84a56c5ad49c644da;hp=0000000000000000000000000000000000000000;hpb=c9a5bcd9d76f699909b24e71a2a216d36062ab0b;p=sven%2Ftclcurl.git

diff --git a/tests/bodyVar.tcl b/tests/bodyVar.tcl
new file mode 100755
index 0000000..ef3a9a0
--- /dev/null
+++ b/tests/bodyVar.tcl
@@ -0,0 +1,36 @@
+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
+
+