#!/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;