Problem implementing a relatively simple restful client query, that I have already implemented in curl. A request for device information from a cisco ISE server.

#!/usr/bin/perl
use warnings;
use REST::Client;
use LWP::UserAgent;
use JSON;
use MIME::Base64;
use Data::Dumper;

$ENV{HTTPS_VERSION} = 3;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

########################################################
# This works in the shell
########################################################
#curl -k 'https://<myuser>:<mypassword>@<myhost>/webacs/api/v1/data/De
+vices'

 my $host = 'https://<myhost>';
 my $user = '<myuser>';
 my $pwd = '<mypassword>';

 my $client = REST::Client->new(host => $host);

 my $encoded_auth = encode_base64("$user:$pwd", '');

 $client->GET("/webacs/api/v1/data/Devices",
              {'Authorization' => "Basic $encoded_auth",
               'Accept' => 'application/json'});

 print 'Response: ' . $client->responseContent() . "\n";
 print 'Response status: ' . $client->responseCode() . "\n";
 foreach ( $client->responseHeaders() ) {
   print 'Header: ' . $_ . '=' . $client->responseHeader($_) . "\n";
 }

__END__

Response: Can't connect to <myhost>:443

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown 
+errorerror:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert h
+andshake failure at /usr/lib/perl5/site_perl/5.10.0/LWP/Protocol/http
+.pm line 47.

Response status: 500
Header: Content-Type=text/plain
Header: Client-Date=Tue, 28 Jun 2016 13:56:58 GMT
Header: Client-Warning=Internal response

[download]
Thank You !!

In reply to Restful Client Query by beckmanel

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.