CPAN::Groonga

se Getopt::Long qw(:config posix_default no_ignore_case);
use Pod::Usage;

use Mojo::JSON qw(decode_json encode_json);
use Mojo::URL;
use Mojo::UserAgent;
use Mojo::UserAgent::CookieJar;

use Data::Du

     $param->{$k} = $v;
    }
    return $param;
}

#### Zimbra Manager Communication ###

sub getJSONZimbraManager {
    my $function = shift;
    my $params   = shift;
    my $catcherr = shift;
    

n);
    $url->query($params);
    my $req = $ua->get($url);
    return processJSONAnswer($req, $catcherr);

}

sub postJSONZimbraManager {
    my $function = shift;
    my $params   = shift;
    my $c

ZimbraManager;

use Mojo::Base 'Mojolicious';


use Mojo::Util qw(dumper);
use Mojo::JSON qw(decode_json encode_json);

use ZimbraManager::SOAP;
use ZimbraManager::SOAP::Friendly;

use HTTP::CookieJar

    $ctrl->render(text => "<pre>$text</pre>") if ($plain);
    }
    else {
        $ctrl->render(json => $text);
    }
};


my $buildAuthRequest = sub {
     my $user = shift;
     my $password = shi

g
    $r->post('/auth' => sub {
        my $ctrl        = shift;
        my $perl_args   = decode_json($ctrl->req->body);
        my $user        = $perl_args->{'user'};
        my $password    = $per