Hi there,

This is the first time I am working on HTTPS connection thru Perl. I installed 
SSLeay from the below location:

ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

Then I executed a small script to connect one of our HTTPS server, but it gives 
the error:

C:\Test Programs>perl https.pl
Failed: 500 configure certs failed: failed to load csidev.p12: No such file or d
irectory
500 (Internal Server Error) configure certs failed: failed to load csidev.p12: N
o such file or directory
Client-Date: Fri, 06 May 2005 16:01:23 GMT

Script: I loaded the cerificate to the working directory

      # PROXY SUPPORT
      $ENV{HTTPS_PROXY} = 'http://proxy.entp.attws.com:8080';

      # PROXY_BASIC_AUTH
      #$ENV{HTTPS_PROXY_USERNAME} = 'username';
      #$ENV{HTTPS_PROXY_PASSWORD} = 'password';  

      # DEFAULT SSL VERSION
      $ENV{HTTPS_VERSION} = '2';

      # CLIENT CERT SUPPORT
      #$ENV{HTTPS_CERT_FILE} = 'csidev.p12';
      $ENV{HTTPS_KEY_FILE}  = 'csidev.p12';
      #$ENV{HTTPS_KEY_FILE}  = 'certs/notacakeynopass.pem';

      # CA CERT PEER VERIFICATION
      $ENV{HTTPS_CA_FILE}   = 'csidev.p12';
      $ENV{HTTPS_CA_DIR}    = 'C:/Downloads/Perl/Cerificate/';      

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 
'https://stg-csiwww01.cingular.com:18443/Services/com/cingular/csi/cam/AddAccount.jws');
#my $req = 
HTTP::Request->new("POST",'https://stg-csiwww01.cingular.com:18443/Services/com/cingular/csi/cam/AddAccount.jws');
my $res = $ua->request($req);
if ($res->is_success) 
{
        print $res->as_string;
} 
else 
{
        print "Failed: ", $res->status_line, "\n";
        #print $res->content() . "\n";
        print $res->as_string;
}

Please let me know what is missing in the script or need to download any 
module. I appreciate your help. Thanks in advance.

Thanks
Murali Thalanki
425-288-6589

Reply via email to