mmonit/collector.pl

   1 #!/usr/bin/env perl
   2 use Mojolicious::Lite;
   3
   4 # Documentation browser under "/perldoc"
   5 #plugin 'PODRenderer';
   6
   7 use Mojo::JSON;
   8 use Mojo::UserAgent;
   9 use Data::Dump qw(dump);
  10 use XML::Simple;
  11
  12 my $json = Mojo::JSON->new;
  13 my $client = Mojo::UserAgent->new;
  14
  15 post '/collector' => sub {
  16         my $self = shift;
  17         my $data = XMLin( $self->req->body );
  18         warn dump( $data );
  19
  20         my $res = $client->post( 'http://localhost:5984/mmonit/' => { 'Content-Type' => 'application/json' } => $json->encode( $data ) )->res->json;
  21
  22         warn "# res = ",dump($res);
  23
  24         $self->render('index');
  25 };
  26
  27 app->start;
  28 __DATA__
  29
  30 @@ index.html.ep
  31 % layout 'default';
  32 % title 'Welcome';
  33 Welcome to Mojolicious!
  34
  35 @@ layouts/default.html.ep
  36 <!doctype html><html>
  37   <head><title><%= title %></title></head>
  38   <body><%= content %></body>
  39 </html>