initial checkin of TclCurl
This commit is contained in:
13
tests/headerVar.tcl
Executable file
13
tests/headerVar.tcl
Executable 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"
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user