- $ENV{'PFPRO_CERT_PATH'} = $self->cert_path;
- my ( $response, $resultstr ) =
- pfpro( \%params, $self->server, $self->port );
+ # get header data, get request_id from %content if defined for ease of use
+ my %req_headers = %{ $self->headers || {} };
+ if ( defined $content{"request_id"} ) {
+ $req_headers{"X-VPS-Request-ID"} = $content{"request_id"};
+ }
+ unless ( defined( $req_headers{"X-VPS-Request-ID"} ) ) {
+ $req_headers{"X-VPS-Request-ID"} = $self->request_id();
+ }
+
+ unless ( defined( $req_headers{"X-VPS-VIT-Client-Certification-Id"} ) ) {
+ $req_headers{"X-VPS-VIT-Client-Certification-Id"} =
+ $self->client_certification_id;
+ }
+
+ my %options = (
+ "Content-Type" => "text/namevalue",
+ "headers" => \%req_headers,
+ );
+
+ my ( $page, $resp, %resp_headers ) =
+ $self->https_post( \%options, \%params );
+
+ $self->response_code( $resp );
+ $self->response_page( $page );
+ $self->response_headers( \%resp_headers );
+
+ # $page should contain name=value[[&name=value]...] pairs
+ my $cgi = CGI->new("$page");