the /api/provisionintemplates rail provides the operations to create, edit and delete "provisioning templates" know from the "batch provisioning" feature of admin panel. these templates can also be defined in config.yml, while it is however only possible to edit templates stored in the database. executing a template and/or uploading a .csv for bulk execution will be available in a separate part. Change-Id: If8627327270edfce5bca1be3b1f777c1bd44e90fmr10.1
Rene Krenn
4 years ago
parent
51f548514a
commit
b6e696621b
@ -0,0 +1,71 @@
|
||||
package NGCP::Panel::Controller::API::ProvisioningTemplates;
|
||||
use NGCP::Panel::Utils::Generic qw(:all);
|
||||
|
||||
use Sipwise::Base;
|
||||
|
||||
use boolean qw(true);
|
||||
use Data::HAL qw();
|
||||
use Data::HAL::Link qw();
|
||||
use HTTP::Headers qw();
|
||||
use HTTP::Status qw(:constants);
|
||||
|
||||
use NGCP::Panel::Utils::ProvisioningTemplates qw();
|
||||
use NGCP::Panel::Utils::DateTime qw();
|
||||
|
||||
sub allowed_methods{
|
||||
return [qw/GET POST OPTIONS HEAD/];
|
||||
}
|
||||
|
||||
sub api_description {
|
||||
return 'Manage "provisioning templates" for creating subscribers with batch provisioning.';
|
||||
};
|
||||
|
||||
sub query_params {
|
||||
return [
|
||||
{
|
||||
param => 'editable',
|
||||
description => 'Filter for editable provisioning templates',
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
use parent qw/NGCP::Panel::Role::Entities 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';
|
||||
}
|
||||
|
||||
__PACKAGE__->set_config({
|
||||
allowed_roles => [qw/admin reseller ccareadmin ccare/],
|
||||
});
|
||||
|
||||
sub create_item {
|
||||
|
||||
my ($self, $c, $resource, $form, $process_extras) = @_;
|
||||
|
||||
$resource->{yaml} = NGCP::Panel::Utils::ProvisioningTemplates::dump_template($c,
|
||||
$resource->{id},
|
||||
$resource->{name},
|
||||
delete $resource->{template},
|
||||
);
|
||||
|
||||
$resource->{id} = undef;
|
||||
$resource->{create_timestamp} = $resource->{modify_timestamp} = NGCP::Panel::Utils::DateTime::current_local;
|
||||
|
||||
my $item = $c->model('DB')->resultset('provisioning_templates')->create(
|
||||
$resource
|
||||
);
|
||||
|
||||
return $item;
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
@ -0,0 +1,289 @@
|
||||
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/;
|
||||
|
||||
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({
|
||||
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_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)]
|
||||
},
|
||||
}
|
||||
});
|
||||
|
||||
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 update_item_model {
|
||||
|
||||
my($self, $c, $item, $old_resource, $resource, $form, $process_extras) = @_;
|
||||
|
||||
$resource->{yaml} = NGCP::Panel::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;
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
@ -0,0 +1,15 @@
|
||||
package NGCP::Panel::Form::ProvisioningTemplate::AdminAPI;
|
||||
|
||||
use HTML::FormHandler::Moose;
|
||||
extends 'NGCP::Panel::Form::ProvisioningTemplate::ResellerAPI';
|
||||
|
||||
has_field 'reseller' => (
|
||||
type => '+NGCP::Panel::Field::Reseller',
|
||||
required => 1,
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['The reseller id this template belongs to.']
|
||||
},
|
||||
);
|
||||
|
||||
1;
|
||||
@ -0,0 +1,75 @@
|
||||
package NGCP::Panel::Form::ProvisioningTemplate::ResellerAPI;
|
||||
use HTML::FormHandler::Moose;
|
||||
extends 'HTML::FormHandler';
|
||||
|
||||
use Storable qw();
|
||||
|
||||
has_field 'id' => (
|
||||
type => 'Hidden'
|
||||
);
|
||||
|
||||
has_field 'name' => (
|
||||
type => 'Text',
|
||||
required => 1,
|
||||
maxlength => 255,
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['A unique template name.']
|
||||
},
|
||||
);
|
||||
|
||||
has_field 'description' => (
|
||||
type => 'Text',
|
||||
label => 'Description',
|
||||
required => 1,
|
||||
maxlength => 255,
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['Arbitrary text.'],
|
||||
},
|
||||
);
|
||||
|
||||
has_field 'lang' => (
|
||||
type => 'Select',
|
||||
label => 'Calculated fields',
|
||||
options => [
|
||||
{ value => 'js', label => 'JavaScript' },
|
||||
{ value => 'perl', label => 'Perl' },
|
||||
],
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['Which scripting language used in the template.']
|
||||
},
|
||||
);
|
||||
|
||||
has_field 'template' => (
|
||||
type => 'Compound',
|
||||
required => 1,
|
||||
label => 'Template',
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['The template definition.'],
|
||||
},
|
||||
);
|
||||
|
||||
has_field 'create_timestamp' => (
|
||||
type => '+NGCP::Panel::Field::DateTime',
|
||||
required => 0,
|
||||
readonly => 1,
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['The datetime (YYYY-MM-DD HH:mm:ss) of the creation.']
|
||||
},
|
||||
);
|
||||
|
||||
has_field 'modify_timestamp' => (
|
||||
type => '+NGCP::Panel::Field::DateTime',
|
||||
required => 0,
|
||||
readonly => 1,
|
||||
element_attr => {
|
||||
rel => ['tooltip'],
|
||||
title => ['The datetime (YYYY-MM-DD HH:mm:ss) of the modification.']
|
||||
},
|
||||
);
|
||||
|
||||
1;
|
||||
@ -0,0 +1,253 @@
|
||||
package NGCP::Panel::Role::API::ProvisioningTemplates;
|
||||
use NGCP::Panel::Utils::Generic qw(:all);
|
||||
|
||||
use Sipwise::Base;
|
||||
|
||||
use parent 'NGCP::Panel::Role::API';
|
||||
|
||||
use boolean qw(true);
|
||||
use Data::HAL qw();
|
||||
use Data::HAL::Link qw();
|
||||
use HTTP::Status qw(:constants);
|
||||
use Scalar::Util qw/blessed/;
|
||||
use JSON qw();
|
||||
|
||||
use NGCP::Panel::Utils::ProvisioningTemplates qw();
|
||||
use NGCP::Panel::Utils::API qw();
|
||||
use NGCP::Panel::Utils::Generic qw(trim);
|
||||
|
||||
sub _item_rs {
|
||||
|
||||
my ($self, $c) = @_;
|
||||
|
||||
unless ($c->stash->{provisioning_templates}) {
|
||||
NGCP::Panel::Utils::ProvisioningTemplates::load_template_map($c);
|
||||
}
|
||||
|
||||
my $editable;
|
||||
if (length($c->req->param('editable'))) {
|
||||
if ('1' eq $c->req->param('editable')
|
||||
or 'true' eq lc($c->req->param('editable'))) {
|
||||
$editable = 1;
|
||||
} elsif ('0' eq $c->req->param('editable')
|
||||
or 'false' eq lc($c->req->param('editable'))) {
|
||||
$editable = 0;
|
||||
}
|
||||
}
|
||||
|
||||
my @result = ();
|
||||
|
||||
foreach my $id (keys %{$c->stash->{provisioning_templates}}) {
|
||||
my $template = $c->stash->{provisioning_templates}->{$id};
|
||||
my $include = 1;
|
||||
if (defined $editable) {
|
||||
if ($editable) {
|
||||
$include &= ($template->{static} ? 0 : 1);
|
||||
} else {
|
||||
$include &= ($template->{static} ? 1 : 0);
|
||||
}
|
||||
}
|
||||
push(@result,$self->item_by_id($c,$id)) if $include;
|
||||
}
|
||||
|
||||
return \@result;
|
||||
|
||||
}
|
||||
|
||||
sub get_id {
|
||||
|
||||
my ($self,$reseller_name,$name) = @_;
|
||||
my $id = '';
|
||||
$id .= ($reseller_name . '/') if length($reseller_name);
|
||||
$id .= $name;
|
||||
return $id;
|
||||
|
||||
}
|
||||
|
||||
sub get_item_id {
|
||||
|
||||
my($self, $c, $item, $resource, $form, $params) = @_;
|
||||
return unless defined $item;
|
||||
if (blessed($item)) {
|
||||
return $self->get_id(($item->reseller ? $item->reseller->name : undef), $item->name);
|
||||
} else {
|
||||
return unless scalar keys %$item;
|
||||
my $reseller_name;
|
||||
if (exists $item->{reseller}) {
|
||||
$reseller_name = $item->{reseller};
|
||||
} else {
|
||||
my $reseller;
|
||||
$reseller = $c->model('DB')->resultset('resellers')->find(
|
||||
$item->{reseller_id}) if $item->{reseller_id};
|
||||
$reseller_name = $reseller->name if $reseller;
|
||||
}
|
||||
return $self->get_id($reseller_name, $item->{name});
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
sub valid_id {
|
||||
|
||||
my ($self, $c, $id) = @_;
|
||||
return 1 if length($id);
|
||||
$self->error($c, HTTP_BAD_REQUEST, "Invalid id in request URI");
|
||||
return;
|
||||
|
||||
}
|
||||
|
||||
sub get_form {
|
||||
|
||||
my ($self, $c) = @_;
|
||||
if ($c->user->is_superuser) {
|
||||
return NGCP::Panel::Form::get("NGCP::Panel::Form::ProvisioningTemplate::AdminAPI", $c);
|
||||
} else {
|
||||
return NGCP::Panel::Form::get("NGCP::Panel::Form::ProvisioningTemplate::ResellerAPI", $c);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
sub resource_from_item {
|
||||
|
||||
my ($self, $c, $item) = @_;
|
||||
|
||||
my %resource;
|
||||
if (blessed($item)) {
|
||||
%resource = $item->get_inflated_columns;
|
||||
if ($c->req->param('format')) {
|
||||
if (grep { $_ eq lc($c->req->param('format')); } qw(yml yaml)) {
|
||||
$resource{template} = delete $resource{yaml};
|
||||
} elsif ('json' eq lc($c->req->param('format'))) {
|
||||
eval {
|
||||
$resource{template} = _template_as_json(NGCP::Panel::Utils::ProvisioningTemplates::parse_template($c, $resource{id}, $resource{name}, delete $resource{yaml}));
|
||||
};
|
||||
}
|
||||
} else {
|
||||
eval {
|
||||
$resource{template} = NGCP::Panel::Utils::ProvisioningTemplates::parse_template($c, $resource{id}, $resource{name}, delete $resource{yaml});
|
||||
};
|
||||
}
|
||||
} else {
|
||||
%resource = ();
|
||||
$resource{name} = $item->{name};
|
||||
$resource{description} = $item->{description};
|
||||
$resource{lang} = $item->{lang};
|
||||
$resource{id} = $self->get_item_id($c,$item);
|
||||
$resource{reseller_id} = undef;
|
||||
#delete $resource{reseller};
|
||||
$resource{template} = $item;
|
||||
delete @{$item}{qw(id reseller static)};
|
||||
if ($c->req->param('format')) {
|
||||
if (grep { $_ eq lc($c->req->param('format')); } qw(yml yaml)) {
|
||||
eval {
|
||||
$resource{template} = NGCP::Panel::Utils::ProvisioningTemplates::dump_template($c, $resource{id}, $resource{name}, $resource{template});
|
||||
};
|
||||
} elsif ('json' eq lc($c->req->param('format'))) {
|
||||
$resource{template} = _template_as_json($resource{template});
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return \%resource;
|
||||
|
||||
}
|
||||
|
||||
sub _template_as_json {
|
||||
|
||||
my $template = shift;
|
||||
return JSON::to_json($template, {
|
||||
allow_nonref => 1, allow_blessed => 1,
|
||||
canonical => 1, utf8 => 1,
|
||||
convert_blessed => 1, pretty => 1 });
|
||||
|
||||
}
|
||||
|
||||
sub _template_from_json {
|
||||
|
||||
my $template = shift;
|
||||
return JSON::from_json($template, { utf8 => 1 });
|
||||
|
||||
}
|
||||
|
||||
sub item_by_id {
|
||||
|
||||
my ($self, $c, $id) = @_;
|
||||
|
||||
return unless length($id);
|
||||
|
||||
unless ($c->stash->{provisioning_templates}) {
|
||||
NGCP::Panel::Utils::ProvisioningTemplates::load_template_map($c);
|
||||
}
|
||||
|
||||
my $item = $c->stash->{provisioning_templates}->{$id};
|
||||
|
||||
if ($item and $item->{id}) {
|
||||
$item = $c->model('DB')->resultset('provisioning_templates')->find($item->{id});
|
||||
}
|
||||
return $item;
|
||||
|
||||
}
|
||||
|
||||
sub check_resource {
|
||||
|
||||
my($self, $c, $item, $old_resource, $resource, $form) = @_;
|
||||
|
||||
if ($item
|
||||
and not blessed($item)) {
|
||||
$self->error($c, HTTP_UNPROCESSABLE_ENTITY, "Provisioning template cannot be updated");
|
||||
return;
|
||||
}
|
||||
|
||||
NGCP::Panel::Utils::API::apply_resource_reseller_id($c,$resource);
|
||||
return unless NGCP::Panel::Utils::API::check_resource_reseller_id($self,$c,$resource,$old_resource);
|
||||
|
||||
eval {
|
||||
my $reseller;
|
||||
$reseller = $c->model('DB')->resultset('resellers')->find(
|
||||
$resource->{reseller_id}) if $resource->{reseller_id};
|
||||
NGCP::Panel::Utils::ProvisioningTemplates::validate_template_name($c,
|
||||
$resource->{name},($old_resource ? $old_resource->{name} : undef),
|
||||
$reseller);
|
||||
};
|
||||
if ($@) {
|
||||
$self->error($c, HTTP_UNPROCESSABLE_ENTITY,trim($@));
|
||||
return;
|
||||
}
|
||||
|
||||
eval {
|
||||
if ($c->req->param('format')) {
|
||||
if (grep { $_ eq lc($c->req->param('format')); } qw(yml yaml)) {
|
||||
$resource->{template} = NGCP::Panel::Utils::ProvisioningTemplates::parse_template($c, $resource->{id}, $resource->{name}, $resource->{template});
|
||||
} elsif ('json' eq lc($c->req->param('format'))) {
|
||||
$resource->{template} = _template_from_json($resource->{template});
|
||||
}
|
||||
}
|
||||
NGCP::Panel::Utils::ProvisioningTemplates::validate_template($resource->{template});
|
||||
};
|
||||
if ($@) {
|
||||
$self->error($c, HTTP_UNPROCESSABLE_ENTITY,trim($@));
|
||||
return;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub process_form_resource {
|
||||
|
||||
my($self, $c, $item, $old_resource, $resource, $form) = @_;
|
||||
|
||||
NGCP::Panel::Utils::API::apply_resource_reseller_id($c,$resource);
|
||||
|
||||
return $resource;
|
||||
|
||||
}
|
||||
|
||||
sub get_journal_item_hal {
|
||||
|
||||
my ($self, $c, $item, $params) = @_;
|
||||
my ($hal,$id) = $self->SUPER::get_journal_item_hal($c, $item, $params);
|
||||
$hal->{id} = $item->id if $hal;
|
||||
return ($hal,($hal ? $hal->{id} : undef));
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
Loading…
Reference in new issue