bin/create_ncos.pl: Added helper script to add ncos levels on ncos.yml

bin/check.sh: Call create_ncos.pl when needed.

bin/check.sh

@@ -72,6 +72,11 @@ function create_voip_prefs
    ${BIN_DIR}/set_subscribers_speeddial.pl ${SCEN_CHECK_DIR}/speeddial.yml
   fi
 
+  if [ -f ${SCEN_CHECK_DIR}/ncos.yml ]; then
+    echo "$(date) - Creating ncos levels"
+    ${BIN_DIR}/create_ncos.pl ${SCEN_CHECK_DIR}/ncos.yml
+  fi
+
   if [ -f ${SCEN_CHECK_DIR}/peer.yml ]; then
     echo "$(date) - Creating peers"
     ${BIN_DIR}/create_peers.pl ${SCEN_CHECK_DIR}/peer.yml
@@ -93,6 +98,11 @@ function delete_voip
     ${BIN_DIR}/create_peers.pl -d ${SCEN_CHECK_DIR}/peer.yml
   fi
 
+  if [ -f ${SCEN_CHECK_DIR}/ncos.yml ]; then
+    echo "$(date) - Deleting ncos levels"
+    ${BIN_DIR}/create_ncos.pl -d ${SCEN_CHECK_DIR}/ncos.yml
+  fi
+
   if [ -f ${SCEN_CHECK_DIR}/rewrite.yml ]; then
     echo "$(date) - Deleting rewrite rules"
     ${BIN_DIR}/create_rewrite_rules.pl -d ${SCEN_CHECK_DIR}/rewrite.yml

bin/create_ncos.pl

@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Getopt::Std;
+use Cwd 'abs_path';
+use YAML;
+use Getopt::Long;
+use Sipwise::Provisioning::Billing;
+use Sipwise::Provisioning::Config;
+
+our %CONFIG = ( admin    => 'cmd' );
+
+my $config = Sipwise::Provisioning::Config->new()->get_config();
+
+unless ($CONFIG{password} = $config->{acl}->{$CONFIG{admin}}->{password}) {
+  die "Error: No provisioning password found for user $CONFIG{admin}\n";
+}
+
+sub usage;
+sub call_prov;
+
+my $help = 0;
+my $del = 0;
+GetOptions ("h|help" => \$help,
+            "d|delete" => \$del)
+  or die("Error in command line arguments\n".usage());
+
+die(usage()) unless (!$help);
+die("Wrong number of arguments\n".usage()) unless ($#ARGV == 0);
+
+our $bprov = Sipwise::Provisioning::Billing->new();
+
+my $filename = abs_path($ARGV[0]);
+my $r = YAML::LoadFile($filename);
+
+if ($del)
+{
+    do_delete($r);
+}
+else
+{
+    do_create($r);
+}
+
+sub do_delete
+{
+    my ($data) = @_;
+    my $result = call_prov( $bprov, 'get_ncos_levels');
+    foreach (@{$result})
+    {
+        if (exists($data->{$_->{level}}))
+        {
+            call_prov($bprov, 'delete_ncos_level', { level => $_->{level}});
+        }
+    }
+    exit;
+}
+
+sub do_create
+{
+    my ($data) = @_;
+    for (keys $data)
+    {
+        my $ncos = $data->{$_};
+        # level
+        my $param = { level => $_, data => $ncos->{data} };
+        call_prov( $bprov, 'create_ncos_level',  $param );
+        # patterns
+        $param = { level => $_, patterns => $ncos->{patterns}, purge_existing => 1};
+        call_prov( $bprov, 'set_ncos_pattern_list', $param );
+    }
+    exit;
+}
+
+sub call_prov {
+    #   scalar,    scalar,    hash-ref
+    my ($prov, $function, $parameter) = @_;
+    my $result;
+
+    eval {
+        $result = $prov->handle_request( $function,
+                                          {
+                                            authentication => {
+                                                                type     => 'system',
+                                                                username => $CONFIG{admin},
+                                                                password => $CONFIG{password},
+                                                              },
+                                            parameters => $parameter,
+                                        });
+    };
+
+    if($@) {
+        if(ref $@ eq 'SOAP::Fault') {
+            die "Voip\::$function failed: ". $@->faultstring;
+        } else {
+            die "Voip\::$function failed: $@";
+        }
+    }
+
+    return $result;
+}
+
+sub usage {
+    return "Usage:\n$0 ncos.yml\n";
+}