mirror of https://github.com/sipwise/www_admin.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
438 lines
12 KiB
438 lines
12 KiB
package admin::Controller::rewrite;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base 'Catalyst::Controller';
|
|
use Data::Dumper;
|
|
use admin::Utils;
|
|
|
|
=head1 NAME
|
|
|
|
admin::Controller::rewrite - Catalyst Controller
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Catalyst Controller.
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 index
|
|
|
|
Configure SIP rewrites
|
|
|
|
=cut
|
|
|
|
sub index : Private {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite.tt';
|
|
|
|
my $rule_sets;
|
|
return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'get_rewrite_rule_sets',
|
|
undef,
|
|
\$rule_sets
|
|
);
|
|
$c->stash->{rule_sets} = $rule_sets if eval { @$rule_sets };
|
|
$c->stash->{editid} = $c->request->params->{editid};
|
|
|
|
if(exists $c->session->{garefill}) {
|
|
$c->stash->{garefill} = $c->session->{garefill};
|
|
delete $c->session->{garefill};
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
=head2 do_delete_set
|
|
|
|
Delete a rewrite set
|
|
|
|
=cut
|
|
|
|
sub delete_set : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite.tt';
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $setid = $c->request->params->{setid};
|
|
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'delete_rewrite_rule_set',
|
|
{ id => $setid
|
|
},
|
|
undef
|
|
))
|
|
{
|
|
$messages{epeermsg} = 'Web.Rewrite.RuleSetDeleted';
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite");
|
|
return;
|
|
}
|
|
$c->response->redirect("/rewrite");
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
=head2 create_set
|
|
|
|
Create a rewrite set
|
|
|
|
=cut
|
|
|
|
sub create_set : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite.tt';
|
|
|
|
my %messages = ();
|
|
my %settings = ();
|
|
|
|
$settings{name} = $c->request->params->{setname};
|
|
$messages{cpeererr} = 'Client.Syntax.MalformedRewriteRuleSetName'
|
|
unless $settings{name} =~ /^[a-zA-Z0-9_\-]+/;
|
|
$settings{description} = $c->request->params->{setdesc};
|
|
|
|
unless(keys %messages) {
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'create_rewrite_rule_set',
|
|
{ %settings },
|
|
undef
|
|
))
|
|
{
|
|
$messages{cpeermsg} = 'Server.Voip.SavedSettings';
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite");
|
|
return;
|
|
}
|
|
} else {
|
|
$messages{cpeererr} = 'Client.Voip.InputErrorFound';
|
|
}
|
|
|
|
$c->session->{garefill} = \%settings;
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite#create_set");
|
|
return;
|
|
}
|
|
|
|
=head2 edit_set
|
|
|
|
Edit a rewrite set
|
|
|
|
=cut
|
|
|
|
sub edit_set : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite.tt';
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $setid = $c->request->params->{setid};
|
|
$settings{description} = $c->request->params->{setdesc};
|
|
|
|
#$c->log->debug('*** edit set');
|
|
|
|
unless(keys %messages) {
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'update_rewrite_rule_set',
|
|
{ id => $setid,
|
|
data => \%settings,
|
|
},
|
|
undef
|
|
))
|
|
{
|
|
$messages{epeermsg} = 'Server.Voip.SavedSettings';
|
|
}
|
|
}
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite");
|
|
return;
|
|
}
|
|
|
|
=head2 detail
|
|
|
|
Show rewrite rules for a given set
|
|
|
|
=cut
|
|
|
|
sub detail : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite_detail.tt';
|
|
|
|
my $setid = $c->request->params->{set_id};
|
|
|
|
my $set_details;
|
|
return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'get_rewrite_rule_set',
|
|
{ id => $setid },
|
|
\$set_details
|
|
);
|
|
$c->stash->{set} = $set_details;
|
|
$c->stash->{editid} = $c->request->params->{editid};
|
|
|
|
return 1;
|
|
}
|
|
|
|
=head2 create_rewrite
|
|
|
|
Create a rewrite rule for a given peer with defined direction and field
|
|
|
|
=cut
|
|
|
|
sub create_rewrite : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite_detail.tt';
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $setid = $c->request->params->{setid};
|
|
my $match_pattern = $c->request->params->{match_pattern};
|
|
my $replace_pattern = $c->request->params->{replace_pattern};
|
|
my $description = $c->request->params->{description};
|
|
my $direction = $c->request->params->{direction};
|
|
my $field = $c->request->params->{field};
|
|
my $priority = $c->request->params->{priority};
|
|
|
|
my $a = "";
|
|
if($field eq 'caller') { $a = 'caller'.$a; }
|
|
elsif($field eq 'callee') { $a = 'callee'.$a; }
|
|
if($direction eq 'in') { $a = 'i'.$a; }
|
|
elsif($direction eq 'out') { $a = 'o'.$a; }
|
|
my $m = $a.'msg'; my $e = $a.'err'; my $d = $a.'detail';
|
|
|
|
# $messages{crulerr} = 'Client.Syntax.MalformedPeerGroupName'
|
|
# unless $callee_prefix =~ /^[a-zA-Z0-9_\.\-\@\:]+/;
|
|
|
|
unless(keys %messages) {
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'create_rewrite_rule',
|
|
{ set_id => $setid,
|
|
data => {
|
|
match_pattern => $match_pattern,
|
|
replace_pattern => $replace_pattern,
|
|
description => $description,
|
|
direction => $direction,
|
|
field => $field,
|
|
priority => $priority,
|
|
},
|
|
},
|
|
undef
|
|
))
|
|
{
|
|
$messages{$m} = 'Server.Voip.SavedSettings';
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
$messages{$e} = 'Client.Voip.InputErrorFound';
|
|
if($c->session->{prov_error_object}) {
|
|
$c->flash->{$d} = $c->session->{prov_error_object};
|
|
}
|
|
}
|
|
} else {
|
|
# TODO: add proper values here and set them in tt
|
|
my %arefill = ();
|
|
# $arefill{name} = $setname;
|
|
# $arefill{desc} = $setdesc;
|
|
|
|
$c->stash->{arefill} = \%arefill;
|
|
}
|
|
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
|
|
=head2 update_rewrite_priority
|
|
|
|
Updates the priority of rewrite rules upon re-order
|
|
|
|
=cut
|
|
|
|
sub update_rewrite_priority : Local {
|
|
my ( $self, $c ) = @_;
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $prio = 0;
|
|
|
|
my $rules = $c->request->params->{'rule[]'};
|
|
|
|
foreach my $rule_id(@$rules)
|
|
{
|
|
my $rule = undef;
|
|
$c->model('Provisioning')->call_prov( $c, 'voip', 'get_rewrite_rule',
|
|
{ id => $rule_id },
|
|
\$rule
|
|
);
|
|
$c->model('Provisioning')->call_prov( $c, 'voip', 'update_rewrite_rule',
|
|
{ id => $rule_id,
|
|
data => {
|
|
match_pattern => $rule->{match_pattern},
|
|
replace_pattern => $rule->{replace_pattern},
|
|
description => $rule->{description},
|
|
direction => $rule->{direction},
|
|
field => $rule->{field},
|
|
priority => $prio,
|
|
},
|
|
},
|
|
undef
|
|
);
|
|
$prio++;
|
|
}
|
|
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/");
|
|
return;
|
|
}
|
|
|
|
|
|
=head2 delete_rewrite
|
|
|
|
Delete a rewrite rule
|
|
|
|
=cut
|
|
|
|
sub delete_rewrite : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite_detail.tt';
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $setid = $c->request->params->{setid};
|
|
my $rewriteid = $c->request->params->{rewriteid};
|
|
my $direction = $c->request->params->{direction};
|
|
my $field = $c->request->params->{field};
|
|
|
|
my $a = "";
|
|
if($field eq 'caller') { $a = 'caller'.$a; }
|
|
elsif($field eq 'callee') { $a = 'callee'.$a; }
|
|
if($direction eq 'in') { $a = 'i'.$a; }
|
|
elsif($direction eq 'out') { $a = 'o'.$a; }
|
|
my $m = $a.'msg'; my $e = $a.'err';
|
|
|
|
unless(keys %messages) {
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'delete_rewrite_rule',
|
|
{ id => $rewriteid
|
|
},
|
|
undef
|
|
))
|
|
{
|
|
$messages{$m} = 'Server.Voip.SavedSettings';
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
} else {
|
|
}
|
|
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
|
|
=head2 edit_rewrite
|
|
|
|
Updates a rewrite rule
|
|
|
|
=cut
|
|
|
|
sub edit_rewrite : Local {
|
|
my ( $self, $c ) = @_;
|
|
$c->stash->{template} = 'tt/rewrite_detail.tt';
|
|
|
|
my %messages;
|
|
my %settings;
|
|
|
|
my $setid = $c->request->params->{setid};
|
|
my $rewriteid = $c->request->params->{rewriteid};
|
|
my $match_pattern = $c->request->params->{match_pattern};
|
|
my $replace_pattern = $c->request->params->{replace_pattern};
|
|
my $description = $c->request->params->{description};
|
|
my $direction = $c->request->params->{direction};
|
|
my $field = $c->request->params->{field};
|
|
my $priority = $c->request->params->{priority};
|
|
|
|
my $a = "";
|
|
if($field eq 'caller') { $a = 'caller'.$a; }
|
|
elsif($field eq 'callee') { $a = 'callee'.$a; }
|
|
if($direction eq 'in') { $a = 'i'.$a; }
|
|
elsif($direction eq 'out') { $a = 'o'.$a; }
|
|
my $m = $a.'msg'; my $e = $a.'err'; my $d = $a.'detail';
|
|
|
|
# $messages{crulerr} = 'Client.Syntax.MalformedPeerGroupName'
|
|
# unless $callee_prefix =~ /^[a-zA-Z0-9_\.\-\@\:]+/;
|
|
|
|
unless(keys %messages) {
|
|
if($c->model('Provisioning')->call_prov( $c, 'voip', 'update_rewrite_rule',
|
|
{ id => $rewriteid,
|
|
data => {
|
|
match_pattern => $match_pattern,
|
|
replace_pattern => $replace_pattern,
|
|
description => $description,
|
|
direction => $direction,
|
|
field => $field,
|
|
priority => $priority,
|
|
},
|
|
},
|
|
undef
|
|
))
|
|
{
|
|
$messages{$m} = 'Server.Voip.SavedSettings';
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
$messages{$e} = 'Client.Voip.InputErrorFound';
|
|
if($c->session->{prov_error_object}) {
|
|
$c->flash->{$d} = $c->session->{prov_error_object};
|
|
}
|
|
}
|
|
} else {
|
|
# TODO: add proper values here and set them in tt
|
|
my %arefill = ();
|
|
# $arefill{name} = $setname;
|
|
# $arefill{desc} = $setdesc;
|
|
|
|
$c->stash->{arefill} = \%arefill;
|
|
}
|
|
|
|
$c->session->{messages} = \%messages;
|
|
$c->response->redirect("/rewrite/detail?set_id=$setid#$a");
|
|
return;
|
|
}
|
|
|
|
=head1 BUGS AND LIMITATIONS
|
|
|
|
=over
|
|
|
|
=item currently none
|
|
|
|
=back
|
|
|
|
=head1 SEE ALSO
|
|
|
|
Provisioning model, Sipwise::Provisioning::Billing, Catalyst
|
|
|
|
=head1 AUTHORS
|
|
|
|
=over
|
|
|
|
=item Andreas Granig <agranig@sipwise.com>
|
|
|
|
=back
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
The rewrite controller is Copyright (c) 2009-2011 Sipwise GmbH, Austria.
|
|
You should have received a copy of the licences terms together with the
|
|
software.
|
|
|
|
=cut
|
|
|
|
# ende gelaende
|
|
1;
|