#!/usr/bin/env perl use Mojolicious::Lite; # Documentation browser under "/perldoc" #plugin 'PODRenderer'; use Mojo::JSON; use Mojo::UserAgent; use Data::Dump qw(dump); use XML::Simple; my $json = Mojo::JSON->new; my $client = Mojo::UserAgent->new; post '/collector' => sub { my $self = shift; my $data = XMLin( $self->req->body ); warn dump( $data ); my $res = $client->post( 'http://localhost:5984/mmonit/' => { 'Content-Type' => 'application/json' } => $json->encode( $data ) )->res->json; warn "# res = ",dump($res); $self->render('index'); }; app->start; __DATA__ @@ index.html.ep % layout 'default'; % title 'Welcome'; Welcome to Mojolicious! @@ layouts/default.html.ep