From: Dobrica Pavlinusic Date: Wed, 30 Nov 2011 23:31:16 +0000 (+0100) Subject: monit collector which post to CouchDB X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=commitdiff_plain;h=e7a086bd3e06a216f4dd37584571838c97264b1e;hp=1572f9626f456ec5400299670e56879fd7a6dc88;ds=sidebyside monit collector which post to CouchDB --- diff --git a/mmonit/collector.pl b/mmonit/collector.pl new file mode 100755 index 0000000..ecbc2ed --- /dev/null +++ b/mmonit/collector.pl @@ -0,0 +1,39 @@ +#!/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 + + <%= title %> + <%= content %> +