package NGCP::Panel::Form::Peering::Server;
use Sipwise::Base;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
use NGCP::Panel::Field::PosInteger;

use HTML::FormHandler::Widget::Block::Bootstrap;

has '+widget_wrapper' => ( default => 'Bootstrap' );
has_field 'submitid' => ( type => 'Hidden' );
sub build_render_list {[qw/submitid fields actions/]}
sub build_form_element_class {[qw(form-horizontal)]}

has_field 'name' => ( 
    type => 'Text',
    required => 1,
);

has_field 'ip' => (
    type => '+NGCP::Panel::Field::IPAddress',
    required => 1,
    label => 'IP Address',
);

has_field 'host' => (
    type => 'Text',
    label => 'Hostname',
);

has_field 'port' => (
    type => '+NGCP::Panel::Field::PosInteger',
    max_range => 65535,
    default => '5060',
    required => 1,
);

has_field 'transport' => (
    type => 'Select',
    label => 'Protocol',
    options => [
        { value => '1', label => 'UDP' },
        { value => '2', label => 'TCP' },
        { value => '3', label => 'TLS' },
    ],
);

has_field 'weight' => (
    type => 'Integer',
    required => 1,
    range_start => 1,
    range_end => 127,
    default => 1,
);

has_field 'via_route' => (
    type => '+NGCP::Panel::Field::Select',
    label => 'Via Route',
    options_method => \&build_via_routes,
    apply => [
        { transform => \&transform_via_route },
    ],
    translate => 0,
);

sub build_via_routes {
    my ($self) = @_;

    return unless $self->form->ctx;
    my @options = ();
    push @options, { label => 'None', value => '' };
    my $sbcref = $self->form->ctx->config->{sip}->{external_sbc};
    if(defined $sbcref) {
        if(ref $sbcref eq "ARRAY") {
            foreach my $via(@{ $sbcref }) {
                my $uri = '<' . $via . ';lr>';
                push @options, { label => $uri, value => $uri };
            }
        } else {
            my $uri = '<' . $sbcref . ';lr>';
            push @options, { label => $uri, value => $uri };
        }
    }
    return \@options;
}

has_field 'probe' => (
    type => 'Boolean',
    label => 'Enable Probing',
    default => 0,
    required => 0,
    element_attr => {
        rel => ['tooltip'],
        title => ['Perform probing via SIP pings to check reachability. If disabled, calls are always sent to this peer since the status is not known.'],
    },
);

has_field 'enabled' => (
    type => 'Boolean',
    label => 'Enabled',
    default => 1,
    element_attr => {
        rel => ['tooltip'],
        title => ['Server enabled state.'],
    },
);

has_field 'save' => (
    type => 'Submit',
    value => 'Save',
    element_class => [qw/btn btn-primary/],
    label => '',
);

has_block 'fields' => (
    tag => 'div',
    class => [qw/modal-body/],
    render_list => [qw/ name ip host port transport weight via_route probe enabled /],
);

has_block 'actions' => (
    tag => 'div',
    class => [qw/modal-footer/],
    render_list => [qw/save/],
);

sub validate_name {
    my ($self, $field) = @_;
    unless($field->value =~ /^[a-zA-Z0-9_\- ]+$/) {
        $field->add_error("Invalid characters in name");
    }
}

sub transform_via_route {
    my ($self, $field) = @_;

    my $uri = $field->value;

    $uri =~ s/^\s*([^\s]+)\s*$/$1/g;

    $uri || return undef;

    unless ($uri =~ /^</) {
        $uri = '<' . $uri . ';lr>';
    }

    unless ($uri =~ /;lr>$/) {
        $uri =~ s/>$//;
        $uri = $uri . ';lr>';
    }

    return $uri;
}

sub validate_via_route {
    my ($self, $field) = @_;

    my $uri = $field->value || return;

    unless ($field->value =~ /^<?sip\:[^\s]+:\d+;lr>?$/) {
        $field->add_error("Invalid SIP URI, must be a valid SIP URI in the form of sip:ip:port");
    }
}

1;

__END__

=head1 NAME

NGCP::Panel::Form::Peering::Server

=head1 DESCRIPTION

-

=head1 METHODS

=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:
