#!/usr/bin/env perl

use strict;
use warnings;
use Mojo::UserAgent;
use Mojo::Util qw/slurp dumper/;
use File::Basename;
use v5.10;

my $ua = Mojo::UserAgent->new;

my $url = shift @ARGV;

foreach my $extra(@ARGV) {

    my ($filename, $dirs, $suffix) = fileparse($extra, ".extra");

    my $hash = { upload_file_minidump => { file => "$dirs$filename.dmp" } };

    open(my $fh, "<", $extra);
    foreach my $l(<$fh>) {
        my ($k, $v) = split('=', $l, 2);
        chomp $k;
        chomp $v;
        $hash->{$k} = $v;
    }
    close $fh;

    my $tx = $ua->post($url => form => $hash);
    if(my $res = $tx->success) {
        say $res->body;
    } else {
        my $err = $tx->error;
        if($err->{code}) {
            warn "$err->{code} response for $extra: $err->{message}\n" . dumper $hash;
        } else {
            warn "Connection error: $err->{message}";
        }
    }
}