X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=blobdiff_plain;f=mmonit%2Fcollector.pl;h=eed0649abaa37ca0812bf13f228b81682f5410e8;hp=ecbc2ed30061c8998bc4bbe101ddb264a2039842;hb=9e68c62631a45ffaa21a023ced9103df07ffae84;hpb=e7a086bd3e06a216f4dd37584571838c97264b1e

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