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.
ngcp-panel/lib/NGCP/Panel/Controller/MaliciousCall.pm

124 lines
4.5 KiB

package NGCP::Panel::Controller::MaliciousCall;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use parent 'Catalyst::Controller';
use NGCP::Panel::Utils::Message;
sub auto :Does(ACL) :ACLDetachTo('/denied_page') :AllowedRole(admin) :AllowedRole(reseller) {
my ($self, $c) = @_;
$c->log->debug(__PACKAGE__ . '::auto');
NGCP::Panel::Utils::Navigation::check_redirect_chain(c => $c);
return 1;
}
sub mcid_list :Chained('/') :PathPart('maliciouscall') :CaptureArgs(0) {
my ( $self, $c ) = @_;
if($c->user->roles eq "admin") {
my $mcid_rs = $c->model('DB')->resultset('malicious_calls');
$c->stash->{mcid_dt_columns} = NGCP::Panel::Utils::Datatables::set_columns($c, [
{ name => 'id', search => 1, title => $c->loc('#') },
{ name => 'subscriber.contract.contact.reseller.name', search => 1, title => $c->loc('Reseller') },
{ name => 'call_id', search => 1, title => $c->loc('Call-Id') },
{ name => 'caller', search => 1, title => $c->loc('Caller') },
{ name => 'callee', search => 1, title => $c->loc('Callee') },
{ name => 'start_time', search => 1, title => $c->loc('Called at') },
{ name => 'duration', search => 1, title => $c->loc('Duration') },
{ name => 'source', search => 1, title => $c->loc('Source') },
{ name => 'reported_at', search => 1, title => $c->loc('Reported at') },
]);
$c->stash->{mcid_rs} = $mcid_rs;
} elsif($c->user->roles eq "reseller") {
my $mcid_rs = $c->model('DB')->resultset('malicious_calls')
->search({
'reseller.id' => $c->user->reseller_id,
},{
join => { 'subscriber' => { 'contract' => { 'contact' => 'reseller' } } },
});
#my $mcid_rs = $mcid_rs->search({
# reseller_id => $c->user->reseller_id,
#});
$c->stash->{mcid_dt_columns} = NGCP::Panel::Utils::Datatables::set_columns($c, [
{ name => 'id', search => 1, title => $c->loc('#') },
{ name => 'call_id', search => 1, title => $c->loc('Call-Id') },
{ name => 'caller', search => 1, title => $c->loc('Caller') },
{ name => 'callee', search => 1, title => $c->loc('Callee') },
{ name => 'start_time', search => 1, title => $c->loc('Called at') },
{ name => 'duration', search => 1, title => $c->loc('Duration') },
{ name => 'source', search => 1, title => $c->loc('Source') },
{ name => 'reported_at', search => 1, title => $c->loc('Reported at') },
]);
$c->stash->{mcid_rs} = $mcid_rs;
}
$c->stash(template => 'maliciouscall/list.tt');
}
sub root :Chained('mcid_list') :PathPart('') :Args(0) {
my ($self, $c) = @_;
}
sub ajax :Chained('mcid_list') :PathPart('ajax') :Args(0) {
my ($self, $c) = @_;
my $rs = $c->stash->{mcid_rs};
NGCP::Panel::Utils::Datatables::process($c, $rs, $c->stash->{mcid_dt_columns});
$c->detach( $c->view("JSON") );
}
sub base :Chained('mcid_list') :PathPart('') :CaptureArgs(1) {
my ($self, $c, $mcid_id) = @_;
unless($mcid_id && is_int($mcid_id)) {
NGCP::Panel::Utils::Message::error(
c => $c,
log => 'Invalid malicious call id detected',
desc => $c->loc('Invalid malicious call id detected'),
);
$c->response->redirect($c->uri_for());
$c->detach;
return;
}
my $res = $c->stash->{mcid_rs}->find($mcid_id);
unless(defined($res)) {
NGCP::Panel::Utils::Message::error(
c => $c,
log => 'Malicious call does not exist',
desc => $c->loc('Malicious call does not exist'),
);
$c->response->redirect($c->uri_for());
$c->detach;
return;
}
$c->stash->{mcid_res} = $res;
}
sub delete_mcall :Chained('base') :PathPart('delete') {
my ($self, $c) = @_;
$c->detach('/denied_page')
if(($c->user->roles eq "admin" || $c->user->roles eq "reseller") && $c->user->read_only);
try {
$c->stash->{mcid_res}->delete;
NGCP::Panel::Utils::Message::info(
c => $c,
desc => $c->loc('Malicious call successfully deleted'),
);
} catch($e) {
NGCP::Panel::Utils::Message::error(
c => $c,
data => { id => $c->stash->{mcid_res}->id },
desc => $c->loc('Failed to delete Malicious call'),
);
}
$c->response->redirect($c->uri_for());
}
1;
# vim: set tabstop=4 expandtab: