/usr/share/doc/tclcurl/examples/debugProc.tcl is in tclcurl 7.22.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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
|