http://qs321.pair.com?node_id=11121807


in reply to REST::Client 500 Error

Instantiate your own LWP::UserAgent object with the fields you deem useful. I don't think that your ssl_opts field is getting passed through. Here's an incomplete example:

my $ua = LWP::UserAgent->new(
    ssl_opts => {verify_hostname => 0},
);

my $client = REST::Client->new(
    timeout => 30,
    useragent => $ua,
);

[download]

This has two benefits. First, it allows you to configure the user agent however you like. But second, it provides you full access to the LWP::UserAgent object, so that you can probe and inspect the transaction in far greater detail than what is exposed natively by REST::Client.


Dave

Replies are listed 'Best First'.
Re^2: REST::Client 500 Error
by ty_sopw (Novice) on Sep 15, 2020 at 18:14 UTC

    I did the change, but, still get the same error 500 Can't connect to <domain>:443 (connect: Connection refused). The URL we are hitting is external; do we have to add their CA to verify server certificates,$client->setCa('/path/to/ca.file'); or add their SSL cert and provide it to REST::Client, cert => '/path/to/ssl.crt' 

    #!/usr/bin/perl

use strict;
use warnings;
use REST::Client;
use LWP::UserAgent;

MAIN:
{

my $ua = LWP::UserAgent->new(
    ssl_opts => {verify_hostname => 0},
);

my $client = REST::Client->new(
        timeout => 30,
        useragent => $ua,);

$client->GET(<end point url>);

        #assigning the API response to a variable
        my $response = $client->responseContent();
        print $response."\n";
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom