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

17
tests/file.tcl Executable file
View File

@ -0,0 +1,17 @@
package require TclCurl
set curlHandle [curl::init]
$curlHandle configure -url "127.0.0.1" -file "index.html"
$curlHandle perform
puts "First transfer finished\n"
$curlHandle configure -header 1 -file cosa.html
$curlHandle perform
$curlHandle cleanup