CPAN::Groonga

 return template 'main';
    };

# fetch graph code

get '/graph_data' => sub {
        return to_json $api->graph_data;
    };

post '/login' => sub {
        my $user = params->{username};
        m

gged_in_user' || request->address eq '127.0.0.1'){
            return to_json { status => 1 };
        }
        return to_json {status => 0};
    };

get '/time' => sub {
        my ($y, $m, $d, $h, 

' => sub {
        my $log = $log->child('/light');
        $log->_6("/light");
        return to_json $api->_config_light;
    };

get '/get_config/:want' => sub {
        my $want = params->{want};

-dist.json>. This file gets copied into C<config/envui.json> for
normal usage during the C<perl Makefile.PL> stage. Edit this file to modify the
web application before runtime.

This is a C<JSON> file

i::EnvUI::Event;
use Carp qw(confess);
use Crypt::SaltedHash;
use Data::Dumper;
use DateTime;
use JSON::XS;
use Logging::Simple;
use Mock::Sub no_warnings => 1;
use RPi::Const qw(:all);

our $VERSION 

  $_[0]->{config_file} = $_[1] if defined $_[1];
    return $_[0]->{config_file} || 'config/envui.json';
}
sub db {
    my ($self, $db) = @_;
    $self->{db} = $db if defined $db;
    return $self->{d

lf->testing(1);
    $self->db(App::RPi::EnvUI::DB->new(testing => 1));
    $self->config('t/envui.json');
    $self->_parse_config;


    if ($self->test_mock) {
        my $mock = Mock::Sub->new;