#!/usr/bin/env perl

use strict;
use warnings;

use Storable;
use Mojo::Client;
use Data::Dump qw(dump);

my $url = 'http://localhost:3000/data/edit';
my $max = 1;

my @changes = @ARGV;

my $t = Mojo::Client->new;
$t->max_redirects( 1 );

foreach my $c ( @changes ) {

	print "# $c\n";

	my $params = retrieve $c;
	my $hash = $params->to_hash;
	$hash->{time} = $1 if $c =~ m{/(\d+\.\d+)\.data\.edit};

	warn "# hash ",dump($hash);

	my $tx = $t->post_form( $url => $hash );
	if ( my $res = $tx->success) { print $res->body }
	else {
		my ($code, $message) = $tx->error;
		die "Error: $message";
	}

#	last if $max-- == 0;
}