sipwise
/
kamailio-config-tests
mirror of https://github.com/sipwise/kamailio-config-tests.git
1
0
Fork 0
Code Issues Releases Wiki Activity

remove scripts added to ngcp-ossbss-clients-perl package.

Browse Source
vseva/3.0
Victor Seva 13 years ago
parent 303d0c9fbc
commit 0d1cab6290
4 changed files with 3 additions and 161 deletions
Show Stats Download Patch File Download Diff File

4
bin/check.sh
Unescape View File

@ -40,7 +40,7 @@ function check_test
# $1 domain
function create_voip
{
${BIN_DIR}/create_domain.pl $1
/usr/bin/ngcp-create_domain $1
if [[ $? -ne 0 ]]; then
echo "$(date) - Cannot create domain"
exit 1
@ -76,7 +76,7 @@ function create_voip_prefs
# $1 domain
function delete_voip
{
${BIN_DIR}/delete_domain.pl $1
/usr/bin/ngcp-delete_domain $1
}
function delete_locations

62
bin/create_domain.pl
Unescape View File

@ -1,62 +0,0 @@
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Getopt::Std;
use Sipwise::Provisioning::Billing;
our %CONFIG = (
admin => 'administrator',
password => 'administrator',
);
die usage() unless ($#ARGV == 0);
sub main {
my ($bprov) = @_;
call_prov( $bprov, 'create_domain',
{
domain => $ARGV[0]
}
);
exit;
}
sub call_prov {
# scalar, scalar, hash-ref
my ($bprov, $function, $parameter) = @_;
my $result;
eval {
$result = $bprov->handle_request( $function,
{
authentication => {
type => 'admin',
username => $CONFIG{admin},
password => $CONFIG{password},
},
parameters => $parameter,
});
};
if($@) {
if(ref $@ eq 'SOAP::Fault') {
die "Billing\::$function failed: ". $@->faultstring;
} else {
die "Billing\::$function failed: $@";
}
}
return $result;
}
sub usage {
die "Usage:\n$0 <domain>\n".
"\ne.g.: $0 sip.sipwise.com\n";
}
my $bprov = Sipwise::Provisioning::Billing->new();
main($bprov);

97
bin/delete_domain.pl
Unescape View File

@ -1,97 +0,0 @@
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Getopt::Std;
use Sipwise::Provisioning::Billing;
our %CONFIG = (
admin => 'administrator',
password => 'administrator',
);
die usage() unless ($#ARGV == 0);
sub main {
my ($bprov) = @_;
call_prov_exists( $bprov, 'get_domain',
{
domain => $ARGV[0]
}
);
call_prov( $bprov, 'delete_domain',
{
domain => $ARGV[0]
}
);
exit;
}
sub call_prov_exists {
# scalar, scalar, hash-ref
my ($bprov, $function, $parameter) = @_;
my $result;
eval {
$result = $bprov->handle_request( $function,
{
authentication => {
type => 'admin',
username => $CONFIG{admin},
password => $CONFIG{password},
},
parameters => $parameter,
});
};
if($@) {
if(ref $@ eq 'SOAP::Fault') {
exit 0 if($@->faultstring =~ 'unknown domain');
die "Billing\::$function failed: ". $@->faultstring;
} else {
die "Billing\::$function failed: $@";
}
}
return $result;
}
sub call_prov {
# scalar, scalar, hash-ref
my ($bprov, $function, $parameter) = @_;
my $result;
eval {
$result = $bprov->handle_request( $function,
{
authentication => {
type => 'admin',
username => $CONFIG{admin},
password => $CONFIG{password},
},
parameters => $parameter,
});
};
if($@) {
if(ref $@ eq 'SOAP::Fault') {
die "Billing\::$function failed: ". $@->faultstring;
} else {
die "Billing\::$function failed: $@";
}
}
return $result;
}
sub usage {
die "Usage:\n$0 <domain>\n".
"\ne.g.: $0 sip.sipwise.com\n";
}
my $bprov = Sipwise::Provisioning::Billing->new();
main($bprov);

1
debian/control vendored
Unescape View File

@ -9,6 +9,7 @@ Homepage: http://www.sipwise.com/
Package: kamailio-config-tests
Architecture: all
Depends: ${misc:Depends},
ngcp-ossbss-clients-perl,
python-yaml,
libgraphviz-perl,
libtemplate-perl,

Write Preview
Loading…
Cancel
Save