|
|
|
@ -19,9 +19,9 @@ require Catalyst::ActionRole::RequireSSL;
|
|
|
|
|
with 'NGCP::Panel::Role::API';
|
|
|
|
|
with 'NGCP::Panel::Role::API::RewriteRuleSets';
|
|
|
|
|
|
|
|
|
|
class_has('resource_name', is => 'ro', default => 'rewrite');
|
|
|
|
|
class_has('dispatch_path', is => 'ro', default => '/api/rewrite/');
|
|
|
|
|
class_has('relation', is => 'ro', default => 'http://purl.org/sipwise/ngcp-api/#rel-rewrite');
|
|
|
|
|
class_has('resource_name', is => 'ro', default => 'rewriterulesets');
|
|
|
|
|
class_has('dispatch_path', is => 'ro', default => '/api/rewriterulesets/');
|
|
|
|
|
class_has('relation', is => 'ro', default => 'http://purl.org/sipwise/ngcp-api/#rel-rewriterulesets');
|
|
|
|
|
|
|
|
|
|
__PACKAGE__->config(
|
|
|
|
|
action => {
|
|
|
|
@ -52,7 +52,7 @@ sub GET :Allow {
|
|
|
|
|
my $ruleset = $self->item_by_id($c, $id, "rulesets");
|
|
|
|
|
last unless $self->resource_exists($c, ruleset => $ruleset);
|
|
|
|
|
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rewrite");
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rewriterulesets");
|
|
|
|
|
|
|
|
|
|
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
|
|
|
|
|
(map { # XXX Data::HAL must be able to generate links with multiple relations
|
|
|
|
@ -118,7 +118,7 @@ sub PATCH :Allow {
|
|
|
|
|
$c->response->header(Preference_Applied => 'return=minimal');
|
|
|
|
|
$c->response->body(q());
|
|
|
|
|
} else {
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rulesets");
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rewriterulesets");
|
|
|
|
|
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
|
|
|
|
|
$hal->http_headers,
|
|
|
|
|
), $hal->as_json);
|
|
|
|
@ -158,7 +158,7 @@ sub PUT :Allow {
|
|
|
|
|
$c->response->header(Preference_Applied => 'return=minimal');
|
|
|
|
|
$c->response->body(q());
|
|
|
|
|
} else {
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rulesets");
|
|
|
|
|
my $hal = $self->hal_from_item($c, $ruleset, "rewriterulesets");
|
|
|
|
|
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
|
|
|
|
|
$hal->http_headers,
|
|
|
|
|
), $hal->as_json);
|
|
|
|
|