1 package require TclCurl
3 proc DebugProc {infoType data} {
10 set type "incoming header"
13 set type "outgoing header"
16 set type "incoming data"
19 set type "outgoing data"
22 set type "incoming SSL data"
25 set type "outgoing SSL data"
29 puts "Type: $type - Data:"
35 set curlHandle [curl::init]
37 $curlHandle configure -url 127.0.0.1 -verbose 1 \