40 lines
830 B
Perl
40 lines
830 B
Perl
package PoorBooru::API::V0;
|
|
use v5.36;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Mojo::Base "Mojolicious";
|
|
|
|
use PoorBooru::Schema;
|
|
|
|
sub startup ($self)
|
|
{
|
|
$self->moniker("poorbooru-api-v0");
|
|
|
|
my $config = $self->plugin("Config");
|
|
$self->secrets($config->{secrets});
|
|
|
|
$self->helper(schema => sub {
|
|
state $schema = PoorBooru::Schema->connect($config->{dsn})
|
|
});
|
|
$self->helper(pager => sub ($, $dbp) {
|
|
map +( $_ => $dbp->$_ ), qw(first_page previous_page
|
|
current_page next_page last_page)
|
|
});
|
|
|
|
my $r = $self->routes;
|
|
|
|
$r->get("/meta")->to("meta#index");
|
|
|
|
$r->get("/tags")->to("tags#list");
|
|
$r->get("/tag/:tag_id_or_name")->to("tags#show");
|
|
|
|
$r->get("/media")->to("media#list");
|
|
$r->get("/media/:media_id")->to("media#show");
|
|
|
|
$r->get("/random/media")->to("random#media");
|
|
$r->get("/random/tag")->to("random#tag");
|
|
}
|
|
|
|
1;
|