diff --git a/bin/ngcp-api-ping b/bin/ngcp-api-ping index 852ea76..43041fd 100755 --- a/bin/ngcp-api-ping +++ b/bin/ngcp-api-ping @@ -42,22 +42,17 @@ sub main { my $uri = '/api/domains/'; $client->set_verbose($opts->{verbose}); my $res = $client->request("GET", $uri); - my $rc = 0; + if (defined $res->as_hash->{total_count}) { print "API is up\n"; + return 0; } else { print "API is down\n"; - $rc = 1; + return 1; } - - exit $rc; - - return; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-create-customer b/bin/ngcp-create-customer index d8c476d..00c4890 100755 --- a/bin/ngcp-create-customer +++ b/bin/ngcp-create-customer @@ -53,14 +53,10 @@ sub main { my $res = $client->request("POST", $uri, \%data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-create-domain b/bin/ngcp-create-domain index 31e62f2..cf5b837 100755 --- a/bin/ngcp-create-domain +++ b/bin/ngcp-create-domain @@ -60,14 +60,10 @@ sub main { my $res = $client->request("POST", $uri, \%data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-create-subscriber b/bin/ngcp-create-subscriber index 437f96b..7cb1200 100755 --- a/bin/ngcp-create-subscriber +++ b/bin/ngcp-create-subscriber @@ -71,14 +71,10 @@ sub main { my $res = $client->request("POST", $uri, \%data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-credit-warning b/bin/ngcp-credit-warning index 9b5b19a..2d27bfc 100755 --- a/bin/ngcp-credit-warning +++ b/bin/ngcp-credit-warning @@ -168,12 +168,10 @@ sub main { print $EVAL_ERROR if $EVAL_ERROR; } } - return; + return 0; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-delete-domain b/bin/ngcp-delete-domain index d8e1c6e..df19d8d 100755 --- a/bin/ngcp-delete-domain +++ b/bin/ngcp-delete-domain @@ -67,14 +67,10 @@ sub main { my $res = $client->request("DELETE", $uri, \%data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-get-customer b/bin/ngcp-get-customer index 76bcc05..a80b993 100755 --- a/bin/ngcp-get-customer +++ b/bin/ngcp-get-customer @@ -48,14 +48,10 @@ sub main { $res->is_success ? print $res->decoded_content."\n" : print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-sound-set b/bin/ngcp-sound-set index 39c1551..f8eacd1 100755 --- a/bin/ngcp-sound-set +++ b/bin/ngcp-sound-set @@ -48,14 +48,10 @@ sub main { $res->is_success ? print $res->content."\n" : print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-terminate-customer b/bin/ngcp-terminate-customer index 614bb54..f1a0958 100755 --- a/bin/ngcp-terminate-customer +++ b/bin/ngcp-terminate-customer @@ -49,14 +49,10 @@ sub main { my $res = $client->request("PATCH", $uri, $data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__ diff --git a/bin/ngcp-terminate-subscriber b/bin/ngcp-terminate-subscriber index a924ecd..577c209 100755 --- a/bin/ngcp-terminate-subscriber +++ b/bin/ngcp-terminate-subscriber @@ -65,14 +65,10 @@ sub main { my $res = $client->request("PATCH", $uri, $data); print $res->result."\n"; - exit !$res->is_success; - - return; + return !$res->is_success; } -main(); - -exit 0; +exit main(); __END__