#!/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 @actions = @ARGV;

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

my $stats;

foreach my $c ( sort {
	my $at = $1 if $a =~ m/(\d+\.\d+)/;
	my $bt = $1 if $b =~ m/(\d+\.\d+)/;
	$at <=> $bt
} @actions ) {

	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) {
		my $code = $res->code;
		$stats->{$code}++;
		print $code, ' ', $res->body
	} else {
		my ($code, $message) = $tx->error;
		die "Error: $message";
	}

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

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