MT#18411 add exit codes, minor fixes

* parse domain as non-first argument for create_domain
    * fix create_subscriber primary number construction

Change-Id: I994f46ef38098607e3d054ee868f80207020d6c4

bin/ngcp-create_customer

@@ -53,6 +53,8 @@ sub main {
     my $res = $client->request("POST", $uri, \%data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-create_domain

@@ -10,7 +10,6 @@ use Readonly;
 Readonly my @required => qw(domain);
 
 my $opts = {
-    domain => $ARGV[0],
     reseller_id => 1,
     skip_xmpp => 0,
     skip_sip => 0,
@@ -28,6 +27,12 @@ GetOptions( $opts,
 
 sub check_params {
     my @missing;
+    foreach my $arg (@ARGV) {
+        if ($arg =~ /^[^-]/) {
+            $opts->{domain} = $arg;
+            last;
+        }
+    }
     foreach my $param (@required) {
         push @missing, $param unless $opts->{$param};
     }
@@ -55,6 +60,8 @@ sub main {
     my $res = $client->request("POST", $uri, \%data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-create_subscriber

@@ -56,7 +56,7 @@ sub main {
     my $uri = '/api/subscribers/';
     my %data = map { $_ => $opts->{$_} }
                     qw(customer_id username password webpassword);
-    $data{primary_number} = join '', @{$opts}{qw(cc ac sn)};
+    $data{primary_number} = { map { $_ => $opts->{$_} } @{$opts}{qw(cc ac sn)} };
     $data{administrative} = $opts->{admin};
     my $client = new NGCP::API::Client;
     $client->set_verbose($opts->{verbose});
@@ -70,6 +70,8 @@ sub main {
     my $res = $client->request("POST", $uri, \%data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-delete_domain

@@ -65,6 +65,8 @@ sub main {
     my $res = $client->request("DELETE", $uri, \%data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-get_customer

@@ -48,6 +48,8 @@ sub main {
     $res->is_success ? print $res->decoded_content."\n"
                      : print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-sound_set

@@ -48,6 +48,8 @@ sub main {
     $res->is_success ? print $res->content."\n"
                      : print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-terminate_customer

@@ -49,6 +49,8 @@ sub main {
     my $res = $client->request("PATCH", $uri, $data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }
 

bin/ngcp-terminate_subscriber

@@ -64,6 +64,8 @@ sub main {
     my $res = $client->request("PATCH", $uri, $data);
     print $res->result."\n";
 
+    exit !$res->is_success;
+
     return;
 }