14 lines
343 B
Tcl
Raw Permalink Normal View History

2014-02-05 16:43:59 -08:00
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]"