135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Break out utility functions into separate file, to allow other api portions to use

Browse Source
This commit is contained in:
Ryan Gasik
2018-10-24 20:53:29 -07:00
parent d79411a34d
commit acaa3b8c5c
2 changed files with 60 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
lib/App/Netdisco/Web/Plugin/API/Device.pm
View File

@@ -10,55 +10,7 @@ use Dancer::Exception qw(:all);
use App::Netdisco::Web::Plugin; use App::Netdisco::Web::Plugin;
sub parse_search_params { use App::Netdisco::Web::Plugin::API::Util;
my $params = shift;
my $search = {};
my $partial = $params->{partial} || 0;
foreach my $param (keys %{$params}) {
if ($param ne 'return_url' and $param ne 'partial') {
if ($partial == 1) {
$search->{"text(".$param.")"} = { like => '%'.$params->{$param}.'%'};
}
else {
$search->{$param} = $params->{$param};
}
}
}
return $search;
}
sub format_data {
my $items = shift;
header( 'Content-Type' => 'application/json');
my $results = {};
if (ref($items) =~ m/ResultSet/) {
my @hashes;
foreach my $item ($items->all) {
my $c = {};
my $columns = $item->{_column_data};
foreach my $col (keys %{$columns}) {
$c->{$col} = $columns->{$col};
}
push @hashes, $c;
}
$results->{data} = \@hashes;
}
elsif (ref($items) =~ m/Result/) {
$results->{data} = $items->{_column_data};
}
else {
$results->{data} = $items;
}
return to_json $results;
};
sub format_error {
my $status = shift;
my $message = shift;
header( 'Content-Type' => 'application/json');
status $status;
return to_json { error => $message };
}
get '/api/device/all' => sub { get '/api/device/all' => sub {
my $devices=schema('netdisco')->resultset('Device')->all; my $devices=schema('netdisco')->resultset('Device')->all;

59
lib/App/Netdisco/Web/Plugin/API/Util.pm Normal file
View File

@@ -0,0 +1,59 @@
package App::Netdisco::Web::Plugin::API::Util;
#Collection of API utilities
use Dancer ':syntax';
use base 'Exporter';
our @EXPORT = qw/parse_search_params format_data format_error/;
sub parse_search_params {
my $params = shift;
my $search = {};
my $partial = $params->{partial} || 0;
foreach my $param (keys %{$params}) {
if ($param ne 'return_url' and $param ne 'partial') {
if ($partial == 1) {
$search->{"text(".$param.")"} = { like => '%'.$params->{$param}.'%'};
}
else {
$search->{$param} = $params->{$param};
}
}
}
return $search;
}
sub format_data {
my $items = shift;
header( 'Content-Type' => 'application/json');
my $results = {};
if (ref($items) =~ m/ResultSet/) {
my @hashes;
foreach my $item ($items->all) {
my $c = {};
my $columns = $item->{_column_data};
foreach my $col (keys %{$columns}) {
$c->{$col} = $columns->{$col};
}
push @hashes, $c;
}
$results->{data} = \@hashes;
}
elsif (ref($items) =~ m/Result/) {
$results->{data} = $items->{_column_data};
}
else {
$results->{data} = $items;
}
return to_json $results;
};
sub format_error {
my $status = shift;
my $message = shift;
header( 'Content-Type' => 'application/json');
status $status;
return to_json { error => $message };
}
true;