initial checkin of TclCurl

This commit is contained in:
Steve Havelka
2014-02-05 16:43:59 -08:00
commit 639b49517b
95 changed files with 30934 additions and 0 deletions

21
tests/reset.tcl Executable file
View File

@ -0,0 +1,21 @@
package require TclCurl
set curlHandle [curl::init]
puts "First we save in 'index.html'"
$curlHandle configure -noprogress 1 -url "127.0.0.1" -file "index.html"
$curlHandle perform
puts "And now in stdout"
$curlHandle reset
$curlHandle configure -url "http://127.0.0.1/"
$curlHandle perform
$curlHandle cleanup