sipwise
/
ngcp-panel
mirror of https://github.com/sipwise/ngcp-panel.git
1
0
Fork 0
Code Issues Releases Wiki Activity

MT#16465 partly remove namespace::sweep and others

Browse Source 
Remove namespace::sweep
Remove MooseX stuff
Remove perl5i
Remove Moose where possible

Change-Id: I4f873afb466f4e58a04c3304ff74df2185470b03
changes/95/3395/10
Andreas Granig 10 years ago
parent a3154de4f4
commit 04a64e1493
426 changed files with 1989 additions and 1076 deletions

3
lib/NGCP/Panel/AuthenticationStore/RoleFromRealm.pm
Unescape View File

@ -1,6 +1,6 @@
package NGCP::Panel::AuthenticationStore::RoleFromRealm;
use Sipwise::Base;
extends 'Catalyst::Authentication::Store::DBIx::Class::User';
use base 'Catalyst::Authentication::Store::DBIx::Class::User';
sub roles {
my ($self) = @_;
@ -21,4 +21,5 @@ sub roles {
}
return "invalid";
}
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ApplyRewrites.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ApplyRewrites;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -61,7 +63,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -136,4 +138,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/AutoAttendants.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::AutoAttendants;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -119,7 +121,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -134,4 +136,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/AutoAttendantsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::AutoAttendantsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -225,4 +227,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BalanceIntervals.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BalanceIntervals;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -172,7 +174,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -187,4 +189,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

11
lib/NGCP/Panel/Controller/API/BalanceIntervalsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BalanceIntervalsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
@ -162,7 +164,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -211,7 +213,7 @@ sub item_options {
my ($self, $c, $id) = @_;
my $allowed_methods = [ 'GET', 'HEAD', 'OPTIONS' ];
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -231,3 +233,6 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;

9
lib/NGCP/Panel/Controller/API/BillingFees.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingFees;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -131,7 +133,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -248,4 +250,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingFeesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingFeesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -75,7 +77,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -195,4 +197,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingNetworks.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingNetworks;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -148,7 +150,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -224,4 +226,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingNetworksItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingNetworksItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -249,4 +251,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingProfiles.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingProfiles;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -139,7 +141,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -209,4 +211,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingProfilesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingProfilesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -82,7 +84,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -222,4 +224,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingZones.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingZones;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -138,7 +140,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -214,4 +216,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/BillingZonesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::BillingZonesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -82,7 +84,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -249,4 +251,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CCMapEntries.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CCMapEntries;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -119,7 +121,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -134,4 +136,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CCMapEntriesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CCMapEntriesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -254,4 +256,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFDestinationSets.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFDestinationSets;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -141,7 +143,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -248,4 +250,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFDestinationSetsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFDestinationSetsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -251,4 +253,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFMappings.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFMappings;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -131,7 +133,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -146,4 +148,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFMappingsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFMappingsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -224,4 +226,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFTimeSets.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFTimeSets;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -141,7 +143,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -231,4 +233,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CFTimeSetsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CFTimeSetsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -251,4 +253,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CallControls.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallControls;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -64,7 +66,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -135,4 +137,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CallForwards.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallForwards;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -135,7 +137,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -150,4 +152,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CallForwardsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallForwardsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -261,4 +263,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

7
lib/NGCP/Panel/Controller/API/CallLists.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallLists;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -296,7 +298,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -310,5 +312,6 @@ sub end : Private {
$self->log_response($c);
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CallListsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallListsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -82,7 +84,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -96,4 +98,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Calls.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Calls;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
#use namespace::sweep;
use Moose;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -149,7 +151,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -163,4 +165,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CallsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CallsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -88,4 +90,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Contracts.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Contracts;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -164,7 +166,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -273,4 +275,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ContractsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ContractsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -89,7 +91,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -277,4 +279,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerBalances.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerBalances;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -174,7 +176,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -189,4 +191,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerBalancesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerBalancesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -85,7 +87,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -228,4 +230,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerContacts.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerContacts;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -139,7 +141,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -217,4 +219,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerContactsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerContactsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -82,7 +84,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -252,4 +254,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerPreferenceDefs.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerPreferenceDefs;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -113,7 +115,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -127,4 +129,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerPreferences.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerPreferences;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -108,7 +110,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -122,4 +124,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerPreferencesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerPreferencesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -226,4 +228,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerZoneCosts.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerZoneCosts;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -145,7 +147,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -160,4 +162,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomerZoneCostsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomerZoneCostsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -78,7 +80,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -93,4 +95,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Customers.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Customers;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -202,7 +204,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -332,4 +334,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/CustomersItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::CustomersItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -89,7 +91,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -275,4 +277,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/DomainPreferenceDefs.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::DomainPreferenceDefs;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -113,7 +115,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -127,4 +129,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/DomainPreferences.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::DomainPreferences;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -108,7 +110,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -122,4 +124,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/DomainPreferencesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::DomainPreferencesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -77,7 +79,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -177,4 +179,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Domains.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Domains;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -143,7 +145,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -245,4 +247,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/DomainsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::DomainsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -183,4 +185,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/EmailTemplates.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::EmailTemplates;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -127,7 +129,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -191,4 +193,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/EmailTemplatesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::EmailTemplatesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -196,4 +198,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/FaxRecordings.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::FaxRecordings;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -55,7 +57,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -70,4 +72,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/FaxRecordingsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::FaxRecordingsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -71,7 +73,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -85,4 +87,7 @@ sub end : Private {
#$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Faxes.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Faxes;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
#use namespace::sweep;
use Moose;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -136,7 +138,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -205,4 +207,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/FaxesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::FaxesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -75,7 +77,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -109,4 +111,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/FaxserverSettings.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::FaxserverSettings;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -151,7 +153,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -166,4 +168,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/FaxserverSettingsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::FaxserverSettingsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -85,7 +87,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -226,4 +228,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Interceptions.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Interceptions;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -145,7 +147,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -229,4 +231,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/InterceptionsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::InterceptionsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -203,4 +205,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/InvoiceTemplates.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::InvoiceTemplates;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -127,7 +129,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -141,4 +143,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/InvoiceTemplatesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::InvoiceTemplatesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -88,4 +90,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Invoices.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Invoices;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -173,7 +175,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -187,4 +189,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/InvoicesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::InvoicesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -88,4 +90,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/MaliciousCalls.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::MaliciousCalls;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -131,7 +133,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -145,4 +147,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/MaliciousCallsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::MaliciousCallsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -105,4 +107,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/NcosLevels.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::NcosLevels;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -127,7 +129,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -191,4 +193,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/NcosLevelsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::NcosLevelsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -200,4 +202,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/NcosPatterns.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::NcosPatterns;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -127,7 +129,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -203,4 +205,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/NcosPatternsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::NcosPatternsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -189,4 +191,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceConfigFiles.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceConfigFiles;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -62,7 +64,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -77,4 +79,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceConfigFilesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceConfigFilesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -68,7 +70,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -82,4 +84,7 @@ sub end : Private {
#$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceConfigs.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceConfigs;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -149,7 +151,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -220,4 +222,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceConfigsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceConfigsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -149,4 +151,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceFirmwareBinaries.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceFirmwareBinaries;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -62,7 +64,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -77,4 +79,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceFirmwareBinariesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceFirmwareBinariesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -68,7 +70,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -82,4 +84,7 @@ sub end : Private {
#$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceFirmwares.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceFirmwares;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -149,7 +151,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -220,4 +222,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceFirmwaresItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceFirmwaresItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -149,4 +151,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceModelImages.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceModelImages;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -72,7 +74,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -87,4 +89,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceModelImagesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceModelImagesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -83,7 +85,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -97,4 +99,7 @@ sub end : Private {
#$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceModels.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceModels;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -186,7 +188,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -326,4 +328,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceModelsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceModelsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -78,7 +80,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -210,4 +212,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceProfiles.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceProfiles;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -138,7 +140,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -217,4 +219,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDeviceProfilesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDeviceProfilesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -77,7 +79,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -202,4 +204,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDevices.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDevices;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -150,7 +152,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -283,4 +285,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/PbxDevicesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::PbxDevicesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -77,7 +79,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -198,4 +200,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ProfilePackages.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ProfilePackages;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -161,7 +163,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -244,4 +246,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ProfilePackagesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ProfilePackagesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -81,7 +83,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -251,4 +253,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ProfilePreferenceDefs.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ProfilePreferenceDefs;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -113,7 +115,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -127,4 +129,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ProfilePreferences.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ProfilePreferences;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -108,7 +110,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -122,4 +124,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ProfilePreferencesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ProfilePreferencesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -84,7 +86,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -226,4 +228,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Reminders.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Reminders;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -131,7 +133,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -219,4 +221,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/RemindersItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::RemindersItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -81,7 +83,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -243,4 +245,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/Resellers.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Resellers;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -128,7 +130,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -209,4 +211,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/ResellersItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::ResellersItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -82,7 +84,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -222,4 +224,7 @@ sub end : Private {
$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/RewriteRuleSets.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::RewriteRuleSets;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -149,7 +151,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -254,4 +256,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/RewriteRuleSetsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::RewriteRuleSetsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -77,7 +79,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -198,4 +200,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/RewriteRules.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::RewriteRules;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -138,7 +140,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -212,4 +214,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/RewriteRulesItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::RewriteRulesItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -77,7 +79,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -197,4 +199,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

8
lib/NGCP/Panel/Controller/API/Root.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::Root;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
#use namespace::sweep;
use Moose;
use Encode qw(encode);
use Clone qw/clone/;
use HTTP::Headers qw();
@ -190,7 +192,7 @@ sub OPTIONS : Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
$self->collections_link_headers,
));
$c->response->content_type('application/json');
@ -379,4 +381,6 @@ sub end : Private {
return 1;
}
no Moose;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/SoundFileRecordings.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::SoundFileRecordings;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -62,7 +64,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -77,4 +79,7 @@ sub end : Private {
return;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/SoundFileRecordingsItem.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::SoundFileRecordingsItem;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use HTTP::Headers qw();
use HTTP::Status qw(:constants);
use MooseX::ClassAttribute qw(class_has);
@ -74,7 +76,7 @@ sub OPTIONS :Allow {
my ($self, $c, $id) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Patch => 'application/json-patch+json',
));
$c->response->content_type('application/json');
@ -88,4 +90,7 @@ sub end : Private {
#$self->log_response($c);
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

9
lib/NGCP/Panel/Controller/API/SoundFiles.pm
Unescape View File

@ -1,6 +1,8 @@
package NGCP::Panel::Controller::API::SoundFiles;
use NGCP::Panel::Utils::Generic qw(:all);
use Sipwise::Base;
use namespace::sweep;
use Moose;
#use namespace::sweep;
use boolean qw(true);
use Data::HAL qw();
use Data::HAL::Link qw();
@ -129,7 +131,7 @@ sub OPTIONS :Allow {
my ($self, $c) = @_;
my $allowed_methods = $self->allowed_methods_filtered($c);
$c->response->headers(HTTP::Headers->new(
Allow => $allowed_methods->join(', '),
Allow => join(', ', @{ $allowed_methods }),
Accept_Post => 'application/hal+json; profile=http://purl.org/sipwise/ngcp-api/#rel-'.$self->resource_name,
));
$c->response->content_type('application/json');
@ -177,4 +179,7 @@ sub end : Private {
return 1;
}
no Moose;
1;
# vim: set tabstop=4 expandtab:

Some files were not shown because too many files have changed in this diff Show More

Write Preview
Loading…
Cancel
Save