From 9e68c62631a45ffaa21a023ced9103df07ffae84 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 1 Dec 2011 20:34:09 +0100 Subject: [PATCH 1/1] use floating point 10.5 unix timestamp as key --- mmonit/collector.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/mmonit/collector.pl b/mmonit/collector.pl index ecbc2ed..eed0649 100755 --- a/mmonit/collector.pl +++ b/mmonit/collector.pl @@ -8,6 +8,7 @@ use Mojo::JSON; use Mojo::UserAgent; use Data::Dump qw(dump); use XML::Simple; +use Time::HiRes; my $json = Mojo::JSON->new; my $client = Mojo::UserAgent->new; @@ -17,7 +18,9 @@ post '/collector' => sub { 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; + # post will create new dockument, put will insert known key + my $key = sprintf "%10.5f", Time::HiRes::time; + my $res = $client->put( "http://localhost:5984/mmonit/$key" => { 'Content-Type' => 'application/json' } => $json->encode( $data ) )->res->json; warn "# res = ",dump($res); -- 2.20.1