#!/usr/bin/perl

use HTTP::Request;
use HTTP::Response;

use lib './Work';

use REJBlibUA::client;

my $method = "POST";
my @requests = (HTTP::Request->new( $method,'https://www.google.ca'), 
                HTTP::Request->new( $method,'https://gremlin.site/cgi-bin/printenv.pl'),
		HTTP::Request->new( $method,'https://byerspublishing.com'),
		HTTP::Request->new( $method,'https://195.160.170.115:8443/soapproxy/PaymentServer'));

my $cnt = 0;
foreach my $r (@requests) {
    my %rp;
    if ($cnt == 1) {
	$rp{'ca_cert_file'} = 'rootCA.pem';  
	$rp{'ca_cert_dir'} = '.';
	$rp{'SSL_cert_file'} = 'client.crt';
	$rp{'SSL_key_file'} = 'client.key';
    }
    if ($cnt == 3) {
	#next;
	$rp{'ca_cert_file'} = 'ECOMM_old_test.pem';  
	$rp{'ca_cert_dir'} = '.';
	$rp{'SSL_cert_file'} = 'OnsoftArch_test.pem';
	$rp{'SSL_key_file'} = 'onsoftarch_test.key';
    }

    my $c = REJBlibUA::client->new(%rp);
    
    my $resp = $c->request($r);

    if ($resp->is_success) {
	print $resp->decoded_content;
    } else {
	print STDERR $resp->status_line, "\n";
    }
    $cnt += 1;
}