CPAN::Groonga

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

use Mojo::JSON;

# This action will render a template
sub index {
   my $self = shift;
   $self->render_json({ok => Mojo::JSON->true});
}

1;

:JSON;
use Win32::API;

use Rex::Endpoint::HTTP::Interface::System;

sub free {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON-

>render_json({ok => Mojo::JSON->true, max => $memory_info->{total_memory}});
}

sub used {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => 

:Controller';

use Mojo::JSON;

use Rex::Endpoint::HTTP::Interface::Exec;

# This action will render a template
sub index {
   my $self = shift;

   my $ref = $self->req->json;
   my $cmd = $ref->{exe

   };

   if($@) {
      return $self->render_json({ok => Mojo::JSON->false, output => "$@", retval => 1});
   }

   $self->render_json({ok => Mojo::JSON->true, output => $out, retval => $?});
}

1;

package Rex::Endpoint::HTTP::Fs;
use Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON;
use Mojo::Upload;
use Data::Dumper;
use MIME::Base64;

use Rex::Endpoint::HTTP::Interface::Fs;

# This actio

lf->_iface->ls($self->_path);
      $self->render_json({ok => Mojo::JSON->true, ls => \@ret});
   } or do {
      $self->render_json({ok => Mojo::JSON->false});
   };
}

sub is_dir {
   my $self = shi

lf->_iface->is_dir($self->_path)) {
      $self->render_json({ok => Mojo::JSON->true});
   }
   else {
      $self->render_json({ok => Mojo::JSON->false});
   }
}

sub is_file {
   my $self = shift;

package Rex::Endpoint::HTTP::Base;
use Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON;

# This action will render a template
sub index {
   my $self = shift;

   $self->render_text("Rex::Endpoi

:JSON;
use Win32::API;

use Rex::Endpoint::HTTP::Interface::System;

sub free {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON-

_json({ok => Mojo::JSON->true, max => $memory_info->{swap_size}});
}

sub used {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON

jolicious::Controller';

use Mojo::JSON;
use MIME::Base64;

use Rex::Endpoint::HTTP::Interface::File;

sub open {
   my $self = shift;

   my $ref = $self->req->json;

   eval {
      $self->_iface->o

 $self->render_json({ok => Mojo::JSON->true});
   } or do {
      $self->render_json({ok => Mojo::JSON->false});
   };

}

sub read {
   my $self = shift;

   my $ref = $self->req->json;
   
   my $fi

($file, $start, $len);
      $self->render_json({ok => Mojo::JSON->true, buf => encode_base64($buf)});
   } or do {
      $self->render_json({ok => Mojo::JSON->false});
   };

}

# this seems odd, but