MT#63479 Remove prosody support

Change-Id: I68b6e120159e8689343b7af140c9c2159d3262a3
master
Guillem Jover 1 week ago
parent a456eb20c5
commit 7251849c5a

@ -13,11 +13,16 @@ Readonly my @required => qw(domain);
my $opts = { my $opts = {
reseller_id => 1, reseller_id => 1,
skip_xmpp => 0,
skip_sip => 0, skip_sip => 0,
verbose => 0, verbose => 0,
}; };
sub obsolete_option {
my ($name, $value) = @_;
warn "$0: option --$name is obsolete\n";
}
sub parse_option { sub parse_option {
my ($name, $value) = @_; my ($name, $value) = @_;
$name =~ tr/-/_/; $name =~ tr/-/_/;
@ -28,7 +33,7 @@ GetOptions($opts,
'help|h' => sub { usage() }, 'help|h' => sub { usage() },
'domain=s', 'domain=s',
'reseller-id=i' => \&parse_option, 'reseller-id=i' => \&parse_option,
'skip-xmpp' => \&parse_option, 'skip-xmpp' => \&obsolete_option,
'skip-sip' => \&parse_option, 'skip-sip' => \&parse_option,
'verbose', 'verbose',
) or usage(); ) or usage();
@ -70,7 +75,7 @@ sub main {
my $uri = '/api/domains/'; my $uri = '/api/domains/';
my %data = map { $_ => $opts->{$_} } qw(reseller_id domain); my %data = map { $_ => $opts->{$_} } qw(reseller_id domain);
foreach my $elem (qw(skip_xmpp skip_sip)) { foreach my $elem (qw(skip_sip)) {
$data{'_' . $elem . '_reload'} = $opts->{$elem}; $data{'_' . $elem . '_reload'} = $opts->{$elem};
} }
my $res = $client->request('POST', $uri, \%data); my $res = $client->request('POST', $uri, \%data);
@ -118,11 +123,6 @@ Reseller id. Default 1.
Skip reloading SIP services. If true, changes will not be effective immedeately Skip reloading SIP services. If true, changes will not be effective immedeately
until the respective service is restarted or properly notified. Default false. until the respective service is restarted or properly notified. Default false.
=item B<--skip-xmpp>
Skip reloading XMPP services. If true, changes will not be effective immedeately
until the respective service is restarted or properly notified. Default false.
=item B<--verbose> =item B<--verbose>
Show additional debug information. Default false. Show additional debug information. Default false.

@ -13,11 +13,16 @@ Readonly my @required => qw(domain);
my $opts = { my $opts = {
domain => $ARGV[0], domain => $ARGV[0],
skip_xmpp => 0,
skip_sip => 0, skip_sip => 0,
verbose => 0, verbose => 0,
}; };
sub obsolete_option {
my ($name, $value) = @_;
warn "$0: option --$name is obsolete\n";
}
sub parse_option { sub parse_option {
my ($name, $value) = @_; my ($name, $value) = @_;
$name =~ tr/-/_/; $name =~ tr/-/_/;
@ -27,7 +32,7 @@ sub parse_option {
GetOptions($opts, GetOptions($opts,
'help|h' => sub { usage() }, 'help|h' => sub { usage() },
'domain=s', 'domain=s',
'skip-xmpp' => \&parse_option, 'skip-xmpp' => \&obsolete_option,
'skip-sip' => \&parse_option, 'skip-sip' => \&parse_option,
'verbose', 'verbose',
) or usage(); ) or usage();
@ -70,7 +75,7 @@ sub main {
my $uri = '/api/domains/'; my $uri = '/api/domains/';
my %data = map { my %data = map {
'_' . $_ . '_reload' => $opts->{$_} '_' . $_ . '_reload' => $opts->{$_}
} qw(skip_xmpp skip_sip); } qw(skip_sip);
my $dom_id; my $dom_id;
my $tmp = $dom->as_hash->{_embedded}->{'ngcp:domains'}; my $tmp = $dom->as_hash->{_embedded}->{'ngcp:domains'};
if (ref $tmp eq 'ARRAY') { if (ref $tmp eq 'ARRAY') {
@ -121,11 +126,6 @@ The domain name to delete.
Skip reloading SIP services. If true, changes will not be effective immedeately Skip reloading SIP services. If true, changes will not be effective immedeately
until the respective service is restarted or properly notified. Default false. until the respective service is restarted or properly notified. Default false.
=item B<--skip-xmpp>
Skip reloading XMPP services. If true, changes will not be effective immedeately
until the respective service is restarted or properly notified. Default false.
=item B<--verbose> =item B<--verbose>
Show additional debug information. Default false. Show additional debug information. Default false.

Loading…
Cancel
Save