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

13
tests/headerVar.tcl Executable file
View File

@ -0,0 +1,13 @@
package require TclCurl
curl::transfer -url 127.0.0.1 -header 1 -nobody 1 -headervar headers
puts "The received headers"
foreach {key content} [array get headers] {
puts "headers($key): $content"
}