MT#63479 Remove prosody support

Change-Id: I68b6e120159e8689343b7af140c9c2159d3262a3
master
Guillem Jover 5 days ago
parent a456eb20c5
commit 7251849c5a

@ -13,11 +13,16 @@ Readonly my @required => qw(domain);
my $opts = {
reseller_id => 1,
skip_xmpp => 0,
skip_sip => 0,
verbose => 0,
};
sub obsolete_option {
my ($name, $value) = @_;
warn "$0: option --$name is obsolete\n";
}
sub parse_option {
my ($name, $value) = @_;
$name =~ tr/-/_/;
@ -28,7 +33,7 @@ GetOptions($opts,
'help|h' => sub { usage() },
'domain=s',
'reseller-id=i' => \&parse_option,
'skip-xmpp' => \&parse_option,
'skip-xmpp' => \&obsolete_option,
'skip-sip' => \&parse_option,
'verbose',
) or usage();
@ -70,7 +75,7 @@ sub main {
my $uri = '/api/domains/';
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};
}
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
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>
Show additional debug information. Default false.

@ -13,11 +13,16 @@ Readonly my @required => qw(domain);
my $opts = {
domain => $ARGV[0],
skip_xmpp => 0,
skip_sip => 0,
verbose => 0,
};
sub obsolete_option {
my ($name, $value) = @_;
warn "$0: option --$name is obsolete\n";
}
sub parse_option {
my ($name, $value) = @_;
$name =~ tr/-/_/;
@ -27,7 +32,7 @@ sub parse_option {
GetOptions($opts,
'help|h' => sub { usage() },
'domain=s',
'skip-xmpp' => \&parse_option,
'skip-xmpp' => \&obsolete_option,
'skip-sip' => \&parse_option,
'verbose',
) or usage();
@ -70,7 +75,7 @@ sub main {
my $uri = '/api/domains/';
my %data = map {
'_' . $_ . '_reload' => $opts->{$_}
} qw(skip_xmpp skip_sip);
} qw(skip_sip);
my $dom_id;
my $tmp = $dom->as_hash->{_embedded}->{'ngcp:domains'};
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
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>
Show additional debug information. Default false.

Loading…
Cancel
Save