package NGCP::Panel::Role::API::RewriteRules; use Moose::Role; use Sipwise::Base; with 'NGCP::Panel::Role::API' => { -alias =>{ item_rs => '_item_rs', }, -excludes => [ 'item_rs' ], }; use boolean qw(true); use TryCatch; use Data::HAL qw(); use Data::HAL::Link qw(); use HTTP::Status qw(:constants); use JSON::Types; use NGCP::Panel::Form::RewriteRule::AdminSet; use NGCP::Panel::Form::RewriteRule::ResellerSet; use NGCP::Panel::Form::RewriteRule::Rule; sub get_form { my ($self, $c) = @_; return NGCP::Panel::Form::RewriteRule::Rule->new; } sub hal_from_item { my ($self, $c, $item, $type) = @_; my $form; my %resource = $item->get_inflated_columns; my $hal = Data::HAL->new( links => [ Data::HAL::Link->new( relation => 'curies', href => 'http://purl.org/sipwise/ngcp-api/#rel-{rel}', name => 'ngcp', templated => true, ), Data::HAL::Link->new(relation => 'collection', href => sprintf("%s", $self->dispatch_path)), Data::HAL::Link->new(relation => 'profile', href => 'http://purl.org/sipwise/ngcp-api/'), Data::HAL::Link->new(relation => 'self', href => sprintf("%s%d", $self->dispatch_path, $item->id)), Data::HAL::Link->new(relation => "ngcp:$type", href => sprintf("/api/%s/%d", $type, $item->id)), Data::HAL::Link->new(relation => "ngcp:rewriterulesets", href => sprintf("/api/rewriterulesets/%d", $item->set_id)), ], relation => 'ngcp:'.$self->resource_name, ); $form //= $self->get_form($c); return unless $self->validate_form( c => $c, form => $form, resource => \%resource, run => 0, ); $hal->resource(\%resource); return $hal; } sub item_rs { my ($self, $c, $type) = @_; my $item_rs; if($type eq "rules") { if($c->user->roles eq "admin") { $item_rs = $c->model('DB')->resultset('voip_rewrite_rules'); } elsif ($c->user->roles eq "reseller") { $item_rs = $c->model('DB')->resultset('voip_rewrite_rules')->search_rs({ 'ruleset.reseller_id' => $c->user->reseller_id, },{ join => 'ruleset' }); } } else { die "You should not reach this"; } return $item_rs; } sub item_by_id { my ($self, $c, $id, $type) = @_; my $item_rs = $self->item_rs($c, $type); return $item_rs->find($id); } sub update_item { my ($self, $c, $item, $old_resource, $resource, $form) = @_; delete $resource->{id}; return unless $self->validate_form( c => $c, form => $form, resource => $resource, ); $item->update($resource); return $item; } 1; # vim: set tabstop=4 expandtab: