Use proper interface config for scripts.

bin/create_subscribers.pl

@@ -1,14 +1,19 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Data::Dumper;
+
 use Getopt::Std;
 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";
+}
 
-our %CONFIG = (
-               admin    => 'administrator',
-               password => 'administrator',
-             );
 our %BILLING = (
 #                product         => 'handle',
                 billing_profile => 'default',
@@ -85,7 +90,7 @@ sub call_prov {
         $result = $bprov->handle_request( $function,
                                           {
                                             authentication => {
-                                                                type     => 'admin',
+                                                                type     => 'system',
                                                                 username => $CONFIG{admin},
                                                                 password => $CONFIG{password},
                                                               },

bin/set_subscribers_callforward.pl

@@ -1,16 +1,20 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Data::Dumper;
+
 use Getopt::Std;
-use Sipwise::Provisioning::Voip;
 use Cwd 'abs_path';
 use YAML;
+use Sipwise::Provisioning::Voip;
+use Sipwise::Provisioning::Config;
 
-my %CONFIG = (
-               admin    => 'administrator',
-               password => 'administrator',
-             );
+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 main;
 sub usage;
@@ -82,7 +86,7 @@ sub call_prov {
         $result = $bprov->handle_request( $function,
                                           {
                                             authentication => {
-                                                                type     => 'admin',
+                                                                type     => 'system',
                                                                 username => $CONFIG{admin},
                                                                 password => $CONFIG{password},
                                                               },

bin/set_subscribers_preferences.pl

@@ -1,16 +1,20 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use strict;
+use warning;
 
-use Data::Dumper;
 use Getopt::Std;
-use Sipwise::Provisioning::Billing;
 use Cwd 'abs_path';
 use YAML;
+use Sipwise::Provisioning::Billing;
+use Sipwise::Provisioning::Config;
+
+our %CONFIG = ( admin    => 'cmd' );
 
-my %CONFIG = (
-               admin    => 'administrator',
-               password => 'administrator',
-             );
+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 main;
 sub usage;
@@ -45,7 +49,7 @@ sub call_prov {
         $result = $bprov->handle_request( $function,
                                           {
                                             authentication => {
-                                                                type     => 'admin',
+                                                                type     => 'system',
                                                                 username => $CONFIG{admin},
                                                                 password => $CONFIG{password},
                                                               },

bin/set_subscribers_speeddial.pl

@@ -1,17 +1,21 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Data::Dumper;
+
 use Getopt::Std;
-use Sipwise::Provisioning::Voip;
 use Cwd 'abs_path';
 use YAML;
 use DateTime;
+use Sipwise::Provisioning::Voip;
+use Sipwise::Provisioning::Config;
 
-my %CONFIG = (
-               admin    => 'administrator',
-               password => 'administrator',
-             );
+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 main;
 sub usage;
@@ -49,7 +53,7 @@ sub call_prov {
         $result = $bprov->handle_request( $function,
                                           {
                                             authentication => {
-                                                                type     => 'admin',
+                                                                type     => 'system',
                                                                 username => $CONFIG{admin},
                                                                 password => $CONFIG{password},
                                                               },
@@ -69,5 +73,5 @@ sub call_prov {
 }
 
 sub usage {
-    die "Usage:\n$0 reminder.yml\n";
+    die "Usage:\n$0 speeddial.yml\n";
 }