- # $tpage should contain name=value[[&name=value]...] pairs
- my $cgi = CGI->new("$tpage");
-
- if ( $cgi->param("RESULT") eq "0" ) {
- my $response_id = $tresp_headers{"X-VPS-RESPONSE-ID"};
- $options{headers}->{"X-VPS-RESPONSE-ID"} = $response_id;
- $self->path( $self->param("path_commit") );
- my ( $cpage, $cresp, %cresp_headers ) =
- $self->https_post( \%options, \%params );
- $self->param(
- "commit_response" => {
- page => $cpage,
- response => $cresp,
- headers => \%cresp_headers,
- },
- );
- my $comcgi = CGI->new("$cpage");
-
- # merge commit results with transaction
- foreach my $p ( $comcgi->param() ) {
- $cgi->param( $p => $comcgi->param($p) );
- }
- }