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.
126 lines
2.8 KiB
126 lines
2.8 KiB
package NGCP::BulkProcessor::RestRequests::Trunk::BillingZones;
|
|
use strict;
|
|
|
|
## no critic
|
|
|
|
use NGCP::BulkProcessor::ConnectorPool qw(
|
|
get_ngcp_restapi
|
|
|
|
);
|
|
|
|
use NGCP::BulkProcessor::RestProcessor qw(
|
|
copy_row
|
|
|
|
get_query_string
|
|
);
|
|
|
|
use NGCP::BulkProcessor::RestConnectors::NGCPRestApi qw();
|
|
use NGCP::BulkProcessor::RestItem qw();
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter NGCP::BulkProcessor::RestItem);
|
|
our @EXPORT_OK = qw(
|
|
get_item
|
|
create_item
|
|
get_item_path
|
|
findby_billingprofileid
|
|
);
|
|
|
|
my $get_restapi = \&get_ngcp_restapi;
|
|
my $resource = 'billingzones';
|
|
my $item_relation = 'ngcp:' . $resource;
|
|
my $get_item_path_query = sub {
|
|
my ($id) = @_;
|
|
return 'api/' . $resource . '/' . $id;
|
|
};
|
|
my $collection_path_query = 'api/' . $resource . '/';
|
|
|
|
my $findby_billingprofileid_path_query = sub {
|
|
my ($billing_profile_id) = @_;
|
|
my $filters = {};
|
|
$filters->{billing_profile_id} = $billing_profile_id if defined $billing_profile_id;
|
|
return 'api/' . $resource . '/' . get_query_string($filters);
|
|
};
|
|
|
|
my $fieldnames = [
|
|
'billing_profile_id',
|
|
'detail',
|
|
'zone',
|
|
|
|
'id',
|
|
];
|
|
|
|
sub new {
|
|
|
|
my $class = shift;
|
|
my $self = NGCP::BulkProcessor::RestItem->new($class,$fieldnames);
|
|
|
|
copy_row($self,shift,$fieldnames);
|
|
|
|
return $self;
|
|
|
|
}
|
|
|
|
sub get_item {
|
|
|
|
my ($id,$load_recursive,$headers) = @_;
|
|
my $restapi = &$get_restapi();
|
|
return builditems_fromrows($restapi->get(&$get_item_path_query($id),$headers),$load_recursive);
|
|
|
|
}
|
|
|
|
sub findby_billingprofileid {
|
|
|
|
my ($billing_profile_id,$load_recursive,$headers) = @_;
|
|
my $restapi = &$get_restapi();
|
|
return builditems_fromrows($restapi->extract_collection_items($restapi->get(&$findby_billingprofileid_path_query($billing_profile_id),$headers),undef,undef,
|
|
{ $NGCP::BulkProcessor::RestConnectors::NGCPRestApi::ITEM_REL_PARAM => $item_relation }),$load_recursive);
|
|
|
|
}
|
|
|
|
sub create_item {
|
|
|
|
my ($data,$load,$load_recursive,$post_headers,$get_headers) = @_;
|
|
my $restapi = &$get_restapi();
|
|
if ($load) {
|
|
return builditems_fromrows($restapi->post_get($collection_path_query,$data,$post_headers,$get_headers),$load_recursive);
|
|
} else {
|
|
my ($id) = $restapi->post($collection_path_query,$data,$post_headers);
|
|
return $id;
|
|
}
|
|
|
|
}
|
|
|
|
sub builditems_fromrows {
|
|
|
|
my ($rows,$load_recursive) = @_;
|
|
|
|
my $item;
|
|
|
|
if (defined $rows and ref $rows eq 'ARRAY') {
|
|
my @items = ();
|
|
foreach my $row (@$rows) {
|
|
$item = __PACKAGE__->new($row);
|
|
|
|
# transformations go here ...
|
|
|
|
push @items,$item;
|
|
}
|
|
return \@items;
|
|
} elsif (defined $rows and ref $rows eq 'HASH') {
|
|
$item = __PACKAGE__->new($rows);
|
|
return $item;
|
|
}
|
|
return undef;
|
|
|
|
}
|
|
|
|
sub get_item_path {
|
|
|
|
my ($id) = @_;
|
|
return &$get_item_path_query($id);
|
|
|
|
}
|
|
|
|
1;
|