Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: REST::Client 500 Error

by davido (Cardinal)
on Sep 15, 2020 at 17:09 UTC ( #11121807=note: print w/replies, xml ) Need Help??

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, );

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.


Replies are listed 'Best First'.
Re^2: REST::Client 500 Error
by ty_sopw (Initiate) 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"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11121807]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2021-01-27 07:48 GMT
Find Nodes?
    Voting Booth?