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
37
38
39
40
41
|
package require TclCurl
proc DebugProc {infoType data} {
switch $infoType {
0 {
set type "text"
}
1 {
set type "incoming header"
}
2 {
set type "outgoing header"
}
3 {
set type "incoming data"
}
4 {
set type "outgoing data"
}
5 {
set type "incoming SSL data"
}
6 {
set type "outgoing SSL data"
}
}
puts "Type: $type - Data:"
puts "$data"
return 0
}
set curlHandle [curl::init]
$curlHandle configure -url 127.0.0.1 -verbose 1 \
-debugproc DebugProc
$curlHandle perform
$curlHandle cleanup
|
