25 lines
400 B
Tcl
25 lines
400 B
Tcl
|
package require TclCurl
|
||
|
|
|
||
|
|
# This is one contrived example, but it works.
|
||
|
|
|
||
|
|
proc writeToFile {readData} {
|
||
|
|
puts "writeToFile called [incr ::i]"
|
||
|
|
puts -nonewline $::inFile $readData
|
||
|
|
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
set i 0
|
||
|
|
|
||
|
|
set inFile [open "cosa.tar" w+]
|
||
|
|
fconfigure $inFile -translation binary
|
||
|
|
|
||
|
|
curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" \
|
||
|
|
-writeproc writeToFile -buffersize 250
|
||
|
|
|
||
|
|
close $inFile
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|