CPAN::Groonga

    cacheexpiration => 300,
        cachemaxkeys => 1024*1024,
        sourcefile => '/tmp/authdb.json',
    }

=over 8

=item uri, url

    uri => "sqlite:///tmp/auth.db?sqlite_unicode=1",

Default: 

thDBCacheMaxKeys> directive. Default: 1024*1024

=item sourcefile

    sourcefile => '/tmp/authdb.json',

Default: See config C<AuthDBSourceFile> directive

=back

=head2 config_opts

    config_opts 

myapp/authdb.json

Authorization database source file path.
This is simple JSON file that contains three blocks: users, groups and realms.

Default: /var/lib/E<lt>MONIKERE<gt>/authdb.json

=item Token

;

use Mojo::Base 'Mojolicious::Controller';

use File::Find qw/find/;
use File::stat;

use Mojo::JSON qw / true false /;
use Mojo::File qw/path/;
use Mojo::Util qw/decode/;
use Mojo::Date;

use WWW::

st
    my $unfl = _unflatten(\@manifest);
    my $fl = _flatten($unfl);

    return $self->render(json => {
        status          => true,
        documentroot    => $src,
        manifest        =>

ull file name
    my $fullfilename = $path->to_string;

    # Check file
    return $self->reply->json_error(404 => "E1112: File not found: \"$filepath\"")
        unless (-e $fullfilename and -f $ful

ERSION = '1.01';

use Mojo::Base 'Mojolicious::Controller';

use POSIX qw/ strftime /;

use Mojo::JSON qw/ true false /;
use Mojo::Date;

use WWW::Suffit::API;
use WWW::Suffit::Const qw/ :dicts DIGEST

uthdb->cached_user($username);
    return $self->reply->json_error($self->authdb->error) if $self->authdb->error;

    return $self->render(json => {
            status          => $status ? true : fa

 my $self = shift;
    my $status = 1;
    my $now = time;

    # Render
    return $self->render(json => {
        status          => $status ? true : false,
        code            => "E0000",
     

>public_key // '';
    return $self->reply->json_error(404 => "E1200" => "No RSA public key found") unless length $public_key;
    return $self->reply->json_ok({public_key => $public_key});
}
sub auth

f = shift;
    my $username = $self->req->json('/username') // '';
    my $password = $self->req->json('/password') // '';
    my $encrypted = $self->req->json('/encrypted') || 0;
    my $authdb = $se

password)) {
        return $self->reply->json_error(400 => "E1200" => "No RSA public key found") unless length $public_key;
        return $self->reply->json_error(400 => "E1201" => "No RSA private k

e Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON qw / true false /;
use Mojo::Util qw/ md5_sum /;
use Mojo::Date;
use Mojo::URL;
use Mojo::JSON qw / true false /;

use WWW::Suffit::Const qw/ TO

on database not inialized
    unless ($self->authdb->meta("meta.inited")) {
        $self->reply->json_error($self->authdb->error || "E1005: The authorization database is not initialized. Please run \

   $self->log->error(sprintf("E1001: Access denied. %s", $jwt->error));
            $self->render(json => {
                status  => false,
                code    => "E1001",
                messag