Lucas/PoorBooru
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

api: page /tags results

Browse Source 
While at it, move /media search opts to a variable too.
This commit is contained in:
Lucas 2023-02-19 10:42:15 +00:00
parent 401202037f
commit 7e3fdadfc6
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/PoorBooru/API/V0.pm
View File

@ -18,12 +18,21 @@ use constant {
], ],
DEFAULT_CONTENT_TYPE => "application/json", DEFAULT_CONTENT_TYPE => "application/json",
ROWS_PER_PAGE => 20,
}; };
my $TAG_NAME_RE = qr/^[0-9]*[A-Z_a-z][0-9A-Z_a-z]*$/; my $TAG_NAME_RE = qr/^[0-9]*[A-Z_a-z][0-9A-Z_a-z]*$/;
my $NUMERIC_ID_RE = qr/^[1-9][0-9]*$/; my $NUMERIC_ID_RE = qr/^[1-9][0-9]*$/;
my $MEDIA_SEARCH_OPTS = {
order_by => { -desc => "upload_date" },
rows => 20,
};
my $TAGS_COUNT_VIEW_SEARCH_OPTS = {
order_by => { -desc => "count" },
rows => 100,
};
sub mkpager ($) sub mkpager ($)
{ {
my $pager = $_[0]->pager; my $pager = $_[0]->pager;
@ -41,13 +50,21 @@ get "/meta" => sub {
}; };
get "/tags" => sub { get "/tags" => sub {
my $page = query_parameters->get("page") // 1;
send_error("Invalid page number", 400) if $page !~ $NUMERIC_ID_RE;
my $paged_tags = schema("default")->resultset("TagsCountView")
->search({}, $TAGS_COUNT_VIEW_SEARCH_OPTS)->page($page);
my @tags = map +( { my @tags = map +( {
id => $_->tag_id, id => $_->tag_id,
name => $_->name, name => $_->name,
count => $_->count, count => $_->count,
} ), schema("default")->resultset("TagsCountView")->all; } ), $paged_tags->all;
return \@tags; return {
pager => mkpager($paged_tags),
tags => \@tags,
}
}; };
post "/tags" => sub { post "/tags" => sub {
@ -94,8 +111,7 @@ get "/media" => sub {
send_error("Invalid page number", 400) if $page !~ $NUMERIC_ID_RE; send_error("Invalid page number", 400) if $page !~ $NUMERIC_ID_RE;
my $paged_media = schema("default")->resultset("Media") my $paged_media = schema("default")->resultset("Media")
->search({}, { order_by => "upload_date", rows => ROWS_PER_PAGE }) ->search({}, $MEDIA_SEARCH_OPTS)->page($page);
->page($page);
my @media = map { $_->media_id } $paged_media->all; my @media = map { $_->media_id } $paged_media->all;