From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 1 Dec 2011 19:34:09 +0000 (+0100)
Subject: use floating point 10.5 unix timestamp as key
X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=commitdiff_plain;h=9e68c62631a45ffaa21a023ced9103df07ffae84;ds=sidebyside

use floating point 10.5 unix timestamp as key
---

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);