Home     |     .Net Programming    |     cSharp Home    |     Sql Server Home    |     Javascript / Client Side Development     |     Ajax Programming

Ruby on Rails Development     |     Perl Programming     |     C Programming Language     |     C++ Programming     |     IT Jobs

Python Programming Language     |     Laptop Suggestions?    |     TCL Scripting     |     Fortran Programming     |     Scheme Programming Language


 
 
Cervo Technologies
The Right Source to Outsource

MS Dynamics CRM 3.0

TCL(Tool Command Language) Scripting

tls package use


I'm trying to use the tls tcl package to make a web connection as a
client.  When I attempt to make the connection I get the error:
"Original error: SSL channel "sock175": error: certificate verify
failed".  I thought perhaps it was an issue with not having the CA
that issued the server's certificate in my CA file.  However when I
checked, it was present.  My only idea now is perhaps to look at the
SSL handshake info to see if that gives me any clues.  I have not been
able to figure out how to set the debug flag though.  Does anyone have
experience using this package that might be able to help me?

Here is the jist of what I'm doing:

package require http
package require tls

::http::register https 443 [list ::tls::socket -require 1 -cafile ./
cacert.pem]

if {![catch {set http [::http::geturl $url -type $type -headers $head -
query $inData]} error_msg ]} {
    set html [::http::data $http]
....

tomt@gmail.com wrote:
> ...  I have not been
> able to figure out how to set the debug flag though.  Does anyone have
> experience using this package that might be able to help me?

I believe you arelooking for the "-command" option to the [tls::socket]
or [tls::import] commands of the tls 1.5 package.

HTH,

Erik Leunissen.

> Here is the jist of what I'm doing:

> package require http
> package require tls

> ::http::register https 443 [list ::tls::socket -require 1 -cafile ./
> cacert.pem]

> if {![catch {set http [::http::geturl $url -type $type -headers $head -
> query $inData]} error_msg ]} {
>     set html [::http::data $http]
> ....

--
   leunissen@       nl | Merge the left part of these two lines into one,
e.          hccnet.   | respecting a character's position in a line.
Add to del.icio.us | Digg this | Stumble it | Powered by Megasolutions Inc