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