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.
406 lines
12 KiB
406 lines
12 KiB
package NGCP::Panel::Controller::API::ProvisioningTemplatesItem;
|
|
use NGCP::Panel::Utils::Generic qw(:all);
|
|
|
|
use Sipwise::Base;
|
|
|
|
use HTTP::Headers qw();
|
|
use HTTP::Status qw(:constants);
|
|
|
|
use NGCP::Panel::Utils::ValidateJSON qw();
|
|
require Catalyst::ActionRole::ACL;
|
|
require NGCP::Panel::Role::HTTPMethods;
|
|
require Catalyst::ActionRole::RequireSSL;
|
|
use Scalar::Util qw/blessed/;
|
|
use NGCP::Panel::Utils::Generic qw(run_module_method get_module_var);
|
|
use NGCP::Panel::Role::API::Subscribers qw();
|
|
|
|
sub allowed_methods{
|
|
return [qw/GET OPTIONS HEAD PATCH PUT DELETE/];
|
|
}
|
|
|
|
use parent qw/NGCP::Panel::Role::EntitiesItem NGCP::Panel::Role::API::ProvisioningTemplates/;
|
|
|
|
sub resource_name{
|
|
return 'provisioningtemplates';
|
|
}
|
|
|
|
sub dispatch_path{
|
|
return '/api/provisioningtemplates/';
|
|
}
|
|
|
|
sub relation{
|
|
return 'http://purl.org/sipwise/ngcp-api/#rel-provisioningtemplates';
|
|
}
|
|
|
|
sub journal_query_params {
|
|
my($self,$query_params) = @_;
|
|
return $self->get_journal_query_params($query_params);
|
|
}
|
|
|
|
sub get_journal_methods{
|
|
return [qw/handle_item_base_journal handle_journals_get handle_journalsitem_get handle_journals_options handle_journalsitem_options handle_journals_head handle_journalsitem_head/];
|
|
}
|
|
|
|
__PACKAGE__->set_config({
|
|
required_licenses => [qw/batch_provisioning/],
|
|
action_add => {
|
|
item_base => {
|
|
Chained => '/',
|
|
PathPart => 'api/' . __PACKAGE__->resource_name,
|
|
CaptureArgs => 1,
|
|
},
|
|
item_get => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'GET',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_options => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'OPTIONS',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_head => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'HEAD',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_put => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'PUT',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_patch => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'PATCH',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_delete => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'DELETE',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_post => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 0,
|
|
Method => 'POST',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)],
|
|
ContentType => [qw#application/json text/csv#],
|
|
ResourceContentType => ['text/csv'],
|
|
},
|
|
|
|
item_get_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'GET',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_options_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'OPTIONS',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_head_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'HEAD',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_put_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'PUT',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_patch_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'PATCH',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_delete_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'DELETE',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)]
|
|
},
|
|
item_post_reseller => {
|
|
Chained => 'item_base',
|
|
PathPart => '',
|
|
Args => 1,
|
|
Method => 'POST',
|
|
ACLDetachTo => '/api/root/invalid_user',
|
|
AllowedRole => [qw/admin reseller ccareadmin ccare/],
|
|
Does => [qw(ACL RequireSSL)],
|
|
ContentType => [qw#application/json text/csv#],
|
|
ResourceContentType => ['text/csv'],
|
|
},
|
|
}
|
|
});
|
|
|
|
sub item_base {
|
|
my ($self,$c,$reseller) = @_;
|
|
$c->stash->{id} = $reseller;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return;
|
|
}
|
|
|
|
|
|
sub item_get {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->get($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_get_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->get($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub item_options {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->options($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_options_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->options($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub item_head {
|
|
my ($self,$c) = @_;
|
|
$c->forward('item_get');
|
|
$c->response->body(q());
|
|
return;
|
|
}
|
|
|
|
sub item_head_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->forward('item_get_reseller');
|
|
$c->response->body(q());
|
|
return;
|
|
}
|
|
|
|
|
|
sub item_put {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->put($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_put_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->put($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub item_patch {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->patch($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_patch_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->patch($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub item_delete {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->delete($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_delete_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->delete($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub item_post {
|
|
my ($self,$c) = @_;
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->post($c,$c->stash->{id});
|
|
}
|
|
|
|
sub item_post_reseller {
|
|
my ($self,$c,$name) = @_;
|
|
$c->stash->{id} = $self->get_id($c->stash->{id},$name);
|
|
#$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
|
|
return $self->post($c,$c->stash->{id});
|
|
}
|
|
|
|
|
|
sub update_item_model {
|
|
|
|
my($self, $c, $item, $old_resource, $resource, $form, $process_extras) = @_;
|
|
|
|
$resource->{yaml} = run_module_method('Utils::ProvisioningTemplates::dump_template',$c,
|
|
$resource->{id},
|
|
$resource->{name},
|
|
delete $resource->{template},
|
|
);
|
|
|
|
$resource->{id} = $item->id;
|
|
$resource->{modify_timestamp} = NGCP::Panel::Utils::DateTime::current_local;
|
|
|
|
$item->update($resource);
|
|
|
|
return $item;
|
|
|
|
}
|
|
|
|
sub delete_item {
|
|
|
|
my($self, $c, $item) = @_;
|
|
|
|
if ($item
|
|
and not blessed($item)) {
|
|
$self->error($c, HTTP_UNPROCESSABLE_ENTITY, "Provisioning template cannot be deleted");
|
|
return;
|
|
}
|
|
|
|
$item->delete();
|
|
return 1;
|
|
|
|
}
|
|
|
|
sub post {
|
|
my ($self,$c,$id) = @_;
|
|
|
|
my $template = $self->item_by_id_valid($c, $id);
|
|
last unless $template;
|
|
my ($form) = $self->get_form($c, 'form', $id);
|
|
my ($action) = reverse split(/::/,(caller(1))[3],-1);
|
|
my $method_config = $self->get_config('action')->{$action};
|
|
my ($resource, $data, $non_json_data) = $self->get_valid_data(
|
|
c => $c,
|
|
method => 'POST',
|
|
media_type => $method_config->{ContentType} // 'application/json',
|
|
uploads => $method_config->{Uploads} // [] ,
|
|
form => $form,
|
|
resource_media_type => $method_config->{ResourceContentType},
|
|
);
|
|
return unless $resource;
|
|
my $purge = $c->req->params->{purge_existing};
|
|
if (length($purge)
|
|
and ('1' eq $purge
|
|
or 'true' eq lc($purge))) {
|
|
$purge = 1;
|
|
} else {
|
|
$purge = 0;
|
|
}
|
|
|
|
if (!$non_json_data || !$data) {
|
|
my $context;
|
|
try {
|
|
$context = run_module_method('Utils::ProvisioningTemplates::provision_begin',
|
|
c => $c,
|
|
purge => $purge,
|
|
);
|
|
run_module_method('Utils::ProvisioningTemplates::provision_commit_row',
|
|
c => $c,
|
|
context => $context,
|
|
'values' => $resource,
|
|
);
|
|
run_module_method('Utils::ProvisioningTemplates::provision_finish',
|
|
c => $c,
|
|
context => $context,
|
|
);
|
|
$c->log->debug(sprintf("Provisioning template '%s' done: subscriber %s created",
|
|
$id,
|
|
$context->{subscriber}->{username} . '@' . $context->{domain}->{domain}
|
|
));
|
|
$c->response->header(Location => sprintf('%s%d', NGCP::Panel::Role::API::Subscribers::dispatch_path(), $context->{subscriber}->{id}));
|
|
} catch($e) {
|
|
run_module_method('Utils::ProvisioningTemplates::provision_cleanup',$c, $context);
|
|
$self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Provisioning template '$id' failed", $e);
|
|
return;
|
|
}
|
|
} else {
|
|
try {
|
|
my ($linecount,$errors) = run_module_method('Utils::ProvisioningTemplates::process_csv',
|
|
c => $c,
|
|
data => \$data,
|
|
purge => $purge,
|
|
);
|
|
if (scalar @$errors) {
|
|
$self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Internal Server Error",
|
|
sprintf('CSV file (%d lines) processed, %d error(s).', $linecount, scalar @$errors));
|
|
return;
|
|
} else {
|
|
$c->log->debug(sprintf('CSV file (%d lines) processed, %d error(s).', $linecount, 0));
|
|
}
|
|
} catch($e) {
|
|
$self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Internal Server Error",
|
|
"failed to process CSV file", $e);
|
|
return;
|
|
}
|
|
}
|
|
|
|
$self->return_representation_post($c);
|
|
|
|
return;
|
|
}
|
|
|
|
1;
|