CPAN::Groonga

ext::files( $dir ) : undef;

  $self->on( json => sub {
    my ($ws, $data) = @_;
    my $list = _get_list( $iter, $dir, $data->{limit} );
    $ws->send({ json => $list });
  });
}

sub _get_list {
  

se 'Mojolicious::Command';

use Mojolicious::Command::daemon;

use Mojolicious::Routes;
use Mojo::JSON 'j';

has description => "Configure your Galileo CMS via a web interface\n";

sub run {
  my ($se

tore_config' => sub {
    my $self = shift;
    my $names = $self->req->params->names;

    # map JSON keys to Perl data
    my %params = map { $_ => scalar $self->param($_) } @$names;
    foreach my 

 { shift->render }
sub user  { shift->render }

sub store_user {
  my $self = shift;
  $self->on( json => sub {
    my ($self, $data) = @_;

    my $pass1 = delete $data->{pass1};
    my $pass2 = dele

>{pass2};
    if ( $pass1 or $pass2 ) {
      unless ( $pass1 eq $pass2 ) {
        $self->send({ json => {
          message => 'Not saved! Passwords do not match',
          success => \0,
        }

;
    unless ( $rs->single({ name => $data->{name} }) or $data->{password}) {
      $self->send({ json => {
        message => 'Cannot create user without a password',
        success => \0,
      } }

  my $self = shift;
  $self->on( json => sub {
    my ($self, $data) = @_;

    my $schema = $self->schema;

    unless ( $data->{title} ) {
      $self->send({ json => {
        message => 'Not save

te_or_create(
      $data, {key => 'pages_name'},
    );
    $self->memorize->expire('main');
    $self->send({ json => {
      message => 'Changes saved',
      success => \1,
    } });
  });
}

1;

 'DBIx::Class::DeploymentHandler' }

# A wrapper class for DBICDH for use with Galileo

use Mojo::JSON 'j';

use File::ShareDir qw/dist_dir/;
use File::Spec;
use File::Temp ();
use File::Copy::Recursi

package Galileo::Menu;
use Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON 'j';
use Mojo::ByteStream 'b';

sub edit {
  my $self = shift;
  my $name = 'main';
  my $schema = $self->schema;

  my

Mojo::ByteStream->new( join '', @inactive ),
  );
}

sub store {
  my $self = shift;
  $self->on( json => sub {
    my ($self, $data) = @_;
    my $name = $data->{name};
    my $list = $data->{list};

f->memorize->expire($name);
    my $content = $self->include('nav_menu') || '';
    $self->send({ json => {
      message => 'Changes saved',
      success => \1,
      content => b($content)->trim,