Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/cPanel/APIClient/Request/HTTPBase.pm

package cPanel::APIClient::Request::HTTPBase;

# Copyright 2020 cPanel, L. L. C.
# All rights reserved.
# http://cpanel.net
#
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself. See L<perlartistic>.

use strict;
use warnings;

use cPanel::APIClient::Utils::JSON ();
use cPanel::APIClient::X           ();

sub get_http_method {
    return 'POST';
}

sub get_http_headers {
    return [ 'Content-Type' => 'application/x-www-form-urlencoded' ];
}

sub parse_http_response {
    my ( $self, $resp_obj, $resp_body ) = @_;

    if ( $resp_obj->code() !~ m<\A2> ) {
        die cPanel::APIClient::X->create( 'HTTP', $resp_obj->as_string() . $/ . $resp_body );
    }

    my $resp_struct = cPanel::APIClient::Utils::JSON::decode($resp_body);

    return $self->HTTP_RESPONSE_CLASS()->new(
        $self->_EXTRACT_RESPONSE($resp_struct),
    );
}

sub create_transport_error {
    my ( $self, $description, @properties_kv ) = @_;

    die cPanel::APIClient::X->create( 'SubTransport', $description );
}

sub _EXTRACT_RESPONSE {
    return $_[1];
}

1;