#!/usr/bin/env perl

use Mojolicious::Lite;
use UUID;
use Mojo::JSON;

my @valid_params = qw/Add-ons Distributor ProductName ReleaseChannel StartupTime UserID Version BuildID CrashTime Comments/;
my $config = plugin 'Config';
my $data_path = $config->{DataDir};

# Upload form in DATA section
get '/' => sub {
    my $self = shift;

    my @files;
    opendir my ($dh), $data_path;
    while(readdir $dh) {
        if($_ =~ /(.*)\.pjson$/) {
            my $filename = File::Spec->catfile($data_path, $_);
            push @files, {
                file => $filename,
                uuid => $1,
                date => (stat $filename)[9],
            };
        }
    }
    closedir $dh;

    my @sorted_files = ( sort { $b->{date} <=> $a->{date} } @files );
    @sorted_files = @sorted_files[0..19] if scalar(@sorted_files) > 20;

    $self->stash(files => \@sorted_files);

    $self->render('index');
} => 'index';

get '/report/:uuid' => [ uuid => qr/[0-9a-fA-F-]+/ ] => sub {
    my $self = shift;

    open JSON, '<', $data_path . '/' . $self->param('uuid') . '.pjson';
    my @json_content_lines = <JSON>;
    my $json_content = join('', @json_content_lines);
    my $json = Mojo::JSON->new;
    my $processed_data = $json->decode($json_content);
    close JSON;

    $self->stash(processed_data => $processed_data);

    $self->render('report/crash');
} => 'report';

# Streaming multipart upload (invoked twice, due to early "request" event)
post '/submit' => sub {
    my $self = shift;
    
    # save the dump in a file
    my $file = $self->req->upload('upload_file_minidump');
    my ($uuid, $uuidstr);
    UUID::generate($uuid);
    UUID::unparse($uuid, $uuidstr);
    $file->move_to($data_path . '/' . $uuidstr . '.dmp');

    # Create json for the params
    #my @par = $self->req->param;
    my %paramshash = map { $_ => $self->req->param($_) } @valid_params;

    my $json = Mojo::JSON->new;
    my $j = $json->encode(\%paramshash);
    open JSON, '>', $data_path . '/' . $uuidstr . '.json' or die $!;
    print JSON $j;
    close JSON;

    system($config->{MinidumpStackwalkJSON} . " " . $data_path . '/' . $uuidstr . '.dmp' . " " . $config->{SymbolsPath} . " > " . $data_path . '/' . $uuidstr . '.pjson' . " 2>/dev/null");

    # reply
    $self->render_text($j);
};

app->start;