72 lines
1.5 KiB
Perl
72 lines
1.5 KiB
Perl
package App::Netdisco::Util::API;
|
|
|
|
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;
|
|
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;
|
|
}
|
|
|
|
header('Content-Type' => 'application/json');
|
|
return to_json $results;
|
|
};
|
|
|
|
sub format_error {
|
|
my $status = shift;
|
|
my $message = shift;
|
|
|
|
status $status;
|
|
header('Content-Type' => 'application/json');
|
|
return to_json { error => $message };
|
|
}
|
|
|
|
true;
|