Imported Upstream version 7.19.6

[sven/tclcurl.git] / tests / formGet.tcl

diff --git a/tests/formGet.tcl b/tests/formGet.tcl
new file mode 100755 (executable)
index 0000000..9b74b02
--- /dev/null
+++ b/tests/formGet.tcl
@@ -0,0 +1,13 @@
+package require TclCurl
+
+curl::transfer -url "http://www.google.com/search?q=TclCurl&hl=en&btnG=Google+Search+&lr=" \
+        -file tclcurl.html -cookiejar [file join [file dirname [info script]] cookieJar.txt]
+puts "Transfer saved in 'tclcurl.html'"
+puts "Cookies en el fichero: [file join [file dirname [info script]] cookieJar.txt]"
+
+
+
+
+
+
+