Select Code to Download

#!/usr/local/bin/perl -w
# DEBUGGING SWITCH / LOW LEVEL SSL DIAGNOSTICS
...
# Can we access the host?
my $response = $agent->get("https://hostname/secure/area");
print $response->content;

SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
...
SSL3 alert read:fatal:certificate unknown
SSL_connect:failed in SSLv3 read finished A
Error GETing https://hostname/secure/area: read failed: error:14094416
+:SSL routines:SSL3_READ_BYTES:sslv3 alert certificate unknown | error
+:140940E5:SSL routines:SSL3_READ_BYTES:ssl handshake failure at ./tes
+t.pl line 26

openssl pkcs12 -in test.p12 -out test.crt -clcerts -nokeys
openssl pkcs12 -in test.p12 -out test.key -nodes -nocerts
openssl pkcs12 -in test.p12 -out cacerts.crt -nokeys -cacerts

openssl s_client -cert test.crt -key test.key -CAfile cacerts.crt -con
+nect hostname:443