#!/usr/bin/env perl

# This program is free software: you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation, either version 3 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program.  If not, see <http://www.gnu.org/licenses/>.

use Mojolicious::Lite;

use UUID;

use lib 'lib';

app->attr(storage => sub {

    my $self = shift;

    my $loader = Mojo::Loader->new;

    my $storage_class = $self->app->config->{Storage}->{Type};

    if (my $e = $loader->load($storage_class)) {

        die ref $e ? "Exception: $e" : 'Not found!';

    }

    return $storage_class->new(config => $self->app->config->{Storage});

});

app->attr(decode_queue => sub {

    my $self = shift;

    my $loader = Mojo::Loader->new;

    my $decode_class = $self->app->config->{DecodeQueue}->{Type};

    if (my $e = $loader->load($decode_class)) {

        die ref $e ? "Exception: $e" : 'Not found!';

    }

    return $decode_class->new(

        config => $self->app->config->{DecodeQueue},

        dumper_config => $self->app->config->{Dumper},

        storage => $self->app->storage

    );

});

get '/' => sub {

    my $self = shift;

    my $page = 1;

    $self->validation->required('page')->like(qr/^[0-9]+$/);

    $page = scalar $self->validation->param("page") if $self->validation->is_valid('page');

    my $result = $self->app->storage->index($page, 20);

    $self->stash(files => $result->{crashs});

    $self->stash(pager => $result->{pager});

    $self->render('index');

} => 'index';

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

    my $self = shift;

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

} => 'report';

post '/submit' => sub {

    my $self = shift;

    # save the dump in a file

    my $file = $self->req->upload('upload_file_minidump');

    my %paramshash = map { $_ => $self->req->param($_) } $self->req->param;

    my ($uuid, $uuidstr);

    UUID::generate($uuid);

    UUID::unparse($uuid, $uuidstr);

    $self->render_later();

    $self->app->decode_queue->decode($file, \%paramshash, $uuidstr, sub {

            my $pjson = shift;

            # reply

            $self->render(text => $pjson->{status});

        }

    );

app->secrets([

    'My secret passphrase here'

]);

push @{app->commands->namespaces}, 'CrashTest::Commands';

app->start;