},
'port' => { label => 'Port number if not 80 or 443', },
'prototype_tenant' => { label => 'Prototype tenant name', },
},
'port' => { label => 'Port number if not 80 or 443', },
'prototype_tenant' => { label => 'Prototype tenant name', },
'debug' => { label => 'Checkbox label', type => 'checkbox' },
# 'select_option' => { label => 'Select option description',
# type => 'select', options=>[qw(chocolate vanilla)],
'debug' => { label => 'Checkbox label', type => 'checkbox' },
# 'select_option' => { label => 'Select option description',
# type => 'select', options=>[qw(chocolate vanilla)],
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_create',
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_create',
$result = $self->_thirdlane_command(
'asterisk::rpc_did_assign',
$result = $self->_thirdlane_command(
'asterisk::rpc_did_assign',
if ( $old->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_unassign',
if ( $old->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_unassign',
if ( $new->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_assign',
if ( $new->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_assign',
if ( $svc_x->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_unassign',
if ( $svc_x->pbxsvc ) {
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_unassign',
);
$result eq '0' or return 'Thirdlane API failure (rpc_did_unassign)';
}
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_delete',
);
$result eq '0' or return 'Thirdlane API failure (rpc_did_unassign)';
}
my $result = $self->_thirdlane_command(
'asterisk::rpc_did_delete',
#my( $self, $svc_something ) = (shift, shift);
#$err_or_queue = $self->thirdlane_queue( $svc_something->svcnum,
# 'delete', $svc_something->username );
#my( $self, $svc_something ) = (shift, shift);
#$err_or_queue = $self->thirdlane_queue( $svc_something->svcnum,
# 'delete', $svc_something->username );