From e7a086bd3e06a216f4dd37584571838c97264b1e Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 1 Dec 2011 00:31:16 +0100 Subject: [PATCH] monit collector which post to CouchDB --- mmonit/collector.pl | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100755 mmonit/collector.pl 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 %> + -- 2.20.1