25 lines
687 B
25 lines
687 B
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use LWP::UserAgent;
|
|
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->ssl_opts(
|
|
SSL_cert_file => '/etc/ngcp-panel/api_ssl/NGCP-API-client-certificate-1385650532.pem',
|
|
SSL_key_file => '/etc/ngcp-panel/api_ssl/NGCP-API-client-certificate-1385650532.pem',
|
|
SSL_ca_file => '/etc/ngcp-panel/api_ssl/api_ca.crt',
|
|
);
|
|
my $can_accept = HTTP::Message::decodable;
|
|
my $res = $ua->get(
|
|
'https://serenity:4443/api/contacts/?id=10',
|
|
#'Accept-Encoding' => $can_accept,
|
|
'Accept' => 'application/hal+json',
|
|
);
|
|
if($res->is_success) {
|
|
print $res->as_string;
|
|
} else {
|
|
print STDERR $res->status_line, "\n";
|
|
}
|
|
|
|
# vim: set tabstop=4 expandtab:
|