]> git.sven.stormbind.net Git - sven/tclcurl.git/blob - tests/readProc.tcl
Change debhelper compat level to 11 and move the declaration to Build-Depends.
[sven/tclcurl.git] / tests / readProc.tcl
1 package require TclCurl
2
3 # As an example this is very contrived, but it works.
4
5 proc readFile {size} {
6
7     set chunk [read $::inFile $size]
8
9     return $chunk
10 }
11
12 set inFile [open "cosa.tar" r]
13 fconfigure $inFile -translation binary
14
15 curl::transfer -url "ftp://127.0.0.1/cosa.tar" -verbose 1 \
16         -username user -password pass -readproc readFile -upload 1
17
18 close $inFile
19
20
21
22
23