282 lines
9.0 KiB
282 lines
9.0 KiB
package NGCP::Panel::Form::Preferences;
|
|
|
|
use Sipwise::Base;
|
|
use HTML::FormHandler::Moose;
|
|
extends 'HTML::FormHandler';
|
|
|
|
use HTML::FormHandler::Widget::Block::Bootstrap;
|
|
|
|
has '+widget_wrapper' => ( default => 'Bootstrap' );
|
|
has_field 'submitid' => ( type => 'Hidden' );
|
|
has '+enctype' => ( default => 'multipart/form-data');
|
|
sub build_render_list {[qw/submitid fields actions/]}
|
|
sub build_form_element_class {[qw(form-horizontal)]}
|
|
|
|
has 'readonly' => (is => 'rw',
|
|
isa => 'Int',
|
|
default => 0,);
|
|
|
|
has 'fields_data' => (is => 'rw');
|
|
|
|
has_block 'fields' => (
|
|
tag => 'div',
|
|
class => [qw/modal-body ngcp-modal-preferences/],
|
|
);
|
|
|
|
sub field_list {
|
|
my $self = shift;
|
|
|
|
return [] unless $self->ctx;
|
|
my $is_subscriber = ($self->ctx->user->roles eq 'subscriber' ||
|
|
$self->ctx->user->roles eq 'subscriberadmin');
|
|
|
|
my @field_list;
|
|
my $fields_data = $self->fields_data;
|
|
|
|
foreach my $row (@$fields_data) {
|
|
my $meta = $row->{meta};
|
|
my $enums = $row->{enums};
|
|
my $rwrs_rs = $row->{rwrs_rs};
|
|
my $hdrs_rs = $row->{hdrs_rs};
|
|
my $ncos_rs = $row->{ncos_rs};
|
|
my $ncos_sets_rs = $row->{ncos_sets_rs};
|
|
my $emergency_mapping_containers_rs = $row->{emergency_mapping_containers_rs};
|
|
my $sound_rs = $row->{sound_rs};
|
|
my $contract_sound_rs = $row->{contract_sound_rs};
|
|
my $field;
|
|
if($meta->attribute eq "rewrite_rule_set") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $rwrs_rs ? $rwrs_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => '+NGCP::Panel::Field::Select',
|
|
options => \@options,
|
|
translate => 0,
|
|
};
|
|
} elsif($meta->attribute eq "cdr_export_sclidui_rwrs") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $rwrs_rs ? $rwrs_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif ($meta->attribute eq "header_rule_set") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $hdrs_rs ? $hdrs_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => '+NGCP::Panel::Field::Select',
|
|
options => \@options,
|
|
translate => 0,
|
|
};
|
|
} elsif ($meta->attribute eq "ncos" ||
|
|
$meta->attribute eq "adm_ncos" ||
|
|
$meta->attribute eq "adm_cf_ncos") {
|
|
my @options = map {{label => $_->level, value => $_->id}}
|
|
defined $ncos_rs ? $ncos_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif ($meta->attribute eq "ncos_set" ||
|
|
$meta->attribute eq "adm_ncos_set" ||
|
|
$meta->attribute eq "adm_cf_ncos_set") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $ncos_sets_rs ? $ncos_sets_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif ($meta->attribute eq "emergency_mapping_container") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $emergency_mapping_containers_rs ? $emergency_mapping_containers_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif ($meta->attribute eq "sound_set") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $sound_rs ? $sound_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => '+NGCP::Panel::Field::Select',
|
|
options => \@options,
|
|
};
|
|
} elsif ($meta->attribute eq "contract_sound_set") {
|
|
my @options = map {{label => $_->name, value => $_->id}}
|
|
defined $contract_sound_rs ? $contract_sound_rs->all : ();
|
|
unshift @options, {label => '', value => ''};
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif($meta->data_type eq "enum") {
|
|
my @options = map {{label => $_->label, value => $_->value}} @{ $enums };
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Select',
|
|
options => \@options,
|
|
};
|
|
} elsif($meta->data_type eq "boolean") {
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Boolean',
|
|
};
|
|
} elsif($meta->data_type eq "int") {
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Integer',
|
|
};
|
|
} elsif($meta->data_type eq "blob") {
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => '+NGCP::Panel::Field::BlobUpload',
|
|
};
|
|
} else { # string
|
|
if($meta->max_occur == 1) {
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Text',
|
|
maxlength => 128,
|
|
};
|
|
} else {
|
|
# is only used to add a new field
|
|
$field = {
|
|
name => $meta->attribute,
|
|
type => 'Text',
|
|
do_label => 0,
|
|
do_wrapper => 1,
|
|
maxlength => 128,
|
|
element_attr => {
|
|
class => ['ngcp_pref_input'],
|
|
}
|
|
};
|
|
}
|
|
}
|
|
$field->{label} = $is_subscriber ? $meta->label : $meta->attribute;
|
|
push @field_list, $field;
|
|
}
|
|
|
|
return \@field_list;
|
|
}
|
|
|
|
sub validate {
|
|
my ($self) = @_;
|
|
my $c = $self->ctx;
|
|
return unless $c;
|
|
|
|
my $res = 1;
|
|
|
|
my $attribute = 'codecs_list';
|
|
if(my $field = $self->field( $attribute )){
|
|
if( my $value = $field->value ){
|
|
#todo: 1.Should we allow only some particular separator?
|
|
#todo: 2.Lengths of the provisioning.voip_usr_preferences.value and kamailio.usr_preferences.value =128,all available values length is 141. We can't insert all codecs.
|
|
my $enum = { map { lc( $_ ) => 1 } qw/AMR AMR-WB CelB CLEARMODE CN DVI4 G722 G723 G728 G729 GSM H261 H263 H263-1998 h264
|
|
JPEG L16 MP2T MPA MPV nv opus PCMA PCMU QCELP speex telephone-event vp8 vp9/ };
|
|
my @codecs = split(/,/, $value);
|
|
my %codecs_dup;
|
|
foreach my $codec( @codecs){
|
|
$codec = lc($codec);
|
|
if( !exists $enum->{$codec} ){
|
|
my $err_msg = 'Value should be a comma separated list of the valid codecs.';
|
|
$field->add_error($err_msg);
|
|
$res = 0;
|
|
last;
|
|
}
|
|
if($codecs_dup{$codec}){
|
|
my $err_msg = 'Value should not contain duplicates.';
|
|
$field->add_error($err_msg);
|
|
$res = 0;
|
|
last;
|
|
}
|
|
$codecs_dup{$codec} = 1;
|
|
}
|
|
}
|
|
}
|
|
return $res;
|
|
}
|
|
|
|
has_field 'save' => (
|
|
type => 'Submit',
|
|
value => 'Save',
|
|
element_class => [qw/btn btn-primary/],
|
|
label => '',
|
|
);
|
|
|
|
has_field 'add' => (
|
|
type => 'Submit',
|
|
value => 'Add',
|
|
element_class => [qw/btn btn-primary/],
|
|
do_label => 0,
|
|
do_wrapper => 0,
|
|
);
|
|
|
|
has_block 'actions' => (
|
|
tag => 'div',
|
|
class => [qw/modal-footer/],
|
|
render_list => [qw/save/],
|
|
);
|
|
|
|
sub create_structure {
|
|
my $self = shift;
|
|
my $field_list = shift;
|
|
|
|
$self->block('fields')->render_list($field_list);
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
NGCP::Panel::Form::Preferences
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Preferences Form.
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 build_render_list
|
|
|
|
Specifies the order, form elements are rendered.
|
|
|
|
=head2 build_form_element_class
|
|
|
|
for styling
|
|
|
|
=head2 field_list
|
|
|
|
This is automatically called by the constructor, it allows you to create a number of fields that should be created.
|
|
|
|
=head2 create_structure
|
|
|
|
The field list given to this method will be rendered.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Gerhard Jungwirth
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software. You can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|
|
|
|
=cut
|
|
|
|
# vim: set tabstop=4 expandtab:
|