|
|
|
|
@ -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.
|
|
|
|
|
|