12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970 |
- package Trog::Routes::JSON;
- use strict;
- use warnings;
- no warnings 'experimental';
- use feature qw{signatures state};
- use Clone qw{clone};
- use JSON::MaybeXS();
- use Trog::Config();
- my $conf = Trog::Config::get();
- use constant routes => {
- '/api/catalog' => {
- method => 'GET',
- callback => \&catalog,
- parameters => [],
- },
- '/api/webmanifest' => {
- method => 'GET',
- callback => \&webmanifest,
- parameters => [],
- },
- '/api/version' => {
- method => 'GET',
- callback => \&version,
- parameters => [],
- },
- };
- # Clone / redact for catalog
- my $cloned = clone(\%routes);
- foreach my $r (keys(%$cloned)) {
- delete $cloned->{$r}{callback}
- }
- my $enc = JSON::MaybeXS->new( utf8 => 1 );
- # Note to authors, don't forget to update this
- sub _version () {
- return '1.0';
- }
- sub version ($query) {
- state $ret = [200, ['Content-type' => "application/json", ETag => 'version-'._version()],[_version()]];
- return $ret;
- }
- sub catalog ($query) {
- state $ret = [200, ['Content-type' => "application/json", ETag => 'catalog-'._version()], [$enc->encode($cloned)]];
- return $ret;
- }
- sub webmanifest ($query) {
- my $theme_dir = Trog::Config::theme_dir();
- state $headers = ['Content-type' => "application/json", ETag => 'manifest-'._version()];
- state %manifest = (
- "icons" => [
- { "src" => "$theme_dir/img/icon/favicon-192.png", "type" => "image/png", "sizes" => "192x192" },
- { "src" => "$theme_dir/img/icon/favicon-512.png", "type" => "image/png", "sizes" => "512x512" },
- ],
- );
- state $content = $enc->encode(\%manifest);
- return [ 200, $headers, [$content] ];
- }
- 1;
|