1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
package require TclCurl
# These tests has some urls that don't exists outside my system,
# so IT WON'T WORK FOR YOU unless you change them.
set curlHandle [curl::init]
$curlHandle configure -url "127.0.0.1" -bodyvar body -noprogress 1
$curlHandle perform
$curlHandle configure -url "127.0.0.1/~andres/" -bodyvar newBody
$curlHandle perform
$curlHandle cleanup
puts "First page:"
puts $body
puts "Second page:"
puts $newBody
# You can also use it for binary transfers
curl::transfer \
-url {127.0.0.1/~andres/HomePage/getleft/images/getleft.png} \
-bodyvar image -noprogress 1 -verbose 1
if [catch {open "getleft.png" w} out] {
puts "Could not open $out."
exit
}
fconfigure $out -translation binary
puts $out $image
close $out
|
