- add ngcp-api_ping script to check api status ngcp-panel scripts stop working in Jessie due new behaviour of the library related to openssl policies. We are creating self-signed certificates at dev enviroment, so we need a way to skip that new verification Change-Id: I7f7f323636c4c405e1b01590f0434e2dda1b0d25changes/49/3949/1
Victor Seva
10 years ago
committed by
Kirill Solomko
parent
244095467d
commit
933c00a582
@ -0,0 +1,169 @@
|
||||
#!/usr/bin/perl
|
||||
use strict;
|
||||
use warnings;
|
||||
use Config::Tiny;
|
||||
use English;
|
||||
use Getopt::Long;
|
||||
use JSON qw();
|
||||
use LWP::UserAgent;
|
||||
use Pod::Usage;
|
||||
use IO::Socket::SSL;
|
||||
|
||||
my $config = Config::Tiny->read('/etc/default/ngcp-api');
|
||||
my $opts = {
|
||||
host => '127.0.0.1',
|
||||
port => 1443,
|
||||
auth_user => 'administrator',
|
||||
auth_pwd => 'administrator',
|
||||
verbose => 0,
|
||||
admin => 0
|
||||
};
|
||||
|
||||
if ($config) {
|
||||
$opts->{host} = $config->{_}->{NGCP_API_IP};
|
||||
$opts->{port} = $config->{_}->{NGCP_API_PORT};
|
||||
$opts->{sslverify} = $config->{_}->{NGCP_API_SSLVERIFY} || 'yes';
|
||||
}
|
||||
|
||||
GetOptions( $opts,
|
||||
"help|h" => sub { pod2usage(-exitval =>0); },
|
||||
"host=s",
|
||||
"port=i",
|
||||
"auth_user=s",
|
||||
"auth_pwd=s",
|
||||
"verbose",
|
||||
"man" => sub { pod2usage(-exitval => 0, -verbose => 2); },
|
||||
) or pod2usage(2);
|
||||
|
||||
sub main {
|
||||
my $urlbase = 'https://'.$opts->{host}.':'.$opts->{port};
|
||||
my $ua = LWP::UserAgent->new();
|
||||
if($opts->{sslverify} eq 'no') {
|
||||
$ua->ssl_opts(
|
||||
verify_hostname => 0,
|
||||
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
|
||||
);
|
||||
}
|
||||
$ua->credentials($opts->{host}.':'.$opts->{port}, 'api_admin_http',
|
||||
$opts->{auth_user}, $opts->{auth_pwd});
|
||||
# debug!!
|
||||
if($opts->{verbose}) {
|
||||
$ua->show_progress(1);
|
||||
$ua->add_handler("request_send", sub { shift->dump; return });
|
||||
$ua->add_handler("response_done", sub { shift->dump; return });
|
||||
}
|
||||
my $url = $urlbase . '/api/domains/';
|
||||
my $res = do_request($ua, $url);
|
||||
if($res->is_success) {
|
||||
print "API up\n";
|
||||
} else {
|
||||
die $res->as_string;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
sub do_request {
|
||||
my $ua = shift;
|
||||
my $url = shift;
|
||||
my $req = HTTP::Request->new('GET', $url);
|
||||
$req->header('Content-Type' => 'application/json');
|
||||
$req->header('Prefer' => 'return=representation');
|
||||
|
||||
return $ua->request($req);
|
||||
}
|
||||
|
||||
main();
|
||||
|
||||
__END__
|
||||
=head1 NAME
|
||||
|
||||
ngcp-api_ping - check NGCP API status
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
ngcp-api_ping [options]
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<-help>
|
||||
|
||||
Print a brief help message and exits.
|
||||
|
||||
=item B<-auth_user>
|
||||
|
||||
Authentication username . Defaults to 'administrator'.
|
||||
|
||||
=item B<-auth_pwd>
|
||||
|
||||
Authentication password . Defaults to 'administrator'.
|
||||
|
||||
=item B<-host>
|
||||
|
||||
Host where the send queries. Defaults to '127.0.0.1'.
|
||||
|
||||
=item B<-port>
|
||||
|
||||
Port where the send queries. Defaults to 1443.
|
||||
|
||||
=item B<-verbose>
|
||||
|
||||
See debug information. Default false.
|
||||
|
||||
=back
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
B<This program> will check NGCP API.
|
||||
|
||||
=head1 USAGE
|
||||
|
||||
ngcp-api-check -host 1.2.3.4
|
||||
|
||||
=head1 REQUIRED ARGUMENTS
|
||||
|
||||
None
|
||||
|
||||
=head1 EXIT STATUS
|
||||
|
||||
Exit code 0 means that everything should have went fine otherwise error.
|
||||
|
||||
=head1 DIAGNOSTICS
|
||||
|
||||
=head1 CONFIGURATION
|
||||
|
||||
/etc/default/ngcp-api for default values
|
||||
|
||||
=head1 DEPENDENCIES
|
||||
|
||||
ngcp-api_ping relies on a bunch of Perl modules, all of them specified as
|
||||
dependencies through the ngcp-ossbss-clients-perl Debian package.
|
||||
|
||||
=head1 INCOMPATIBILITIES
|
||||
|
||||
No known at this time.
|
||||
|
||||
=head1 BUGS AND LIMITATIONS
|
||||
|
||||
Please report problems you notice to the Sipwise
|
||||
Development Team <support@sipwise.com>.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Victor Seva <vseva@sipwise.com>
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (c) 2015 Sipwise GmbH, Austria.
|
||||
All rights reserved. You may not copy, distribute
|
||||
or modify without prior written permission from
|
||||
Sipwise GmbH, Austria.
|
||||
|
||||
=head1 LICENSE AND COPYRIGHT
|
||||
|
||||
Copyright (c) 2015 Sipwise GmbH, Austria.
|
||||
You should have received a copy of the licence terms together with the
|
||||
software.
|
||||
|
||||
=cut
|
||||
Loading…
Reference in new issue