use Mojo::UserAgent;

helper scm_file_link => sub {

    my ($self, $file, $line) = @_;

    return "" unless(defined($file));

    if($file =~ qr{([a-z]+):([a-z/.]+):(.+):(\d+)})

    {

        my ($scm, $repo, $scmpath, $rev) = ($1, $2, $3, $4);

        my $filename = File::Spec->splitpath($scmpath);

        my $scmrepo = "$scm:$repo";

        if(exists($config->{ScmLinks}->{$scmrepo})) {

            return Mojo::ByteStream->new($self->link_to("$filename:$line" =>

                    $self->render(inline => $config->{ScmLinks}->{$scmrepo}, repo => $repo, scmpath => $scmpath, rev => $rev, line => $line, partial => 1)

                ));

        }

        #return $file;

    }

    my $filebase = (File::Spec->splitpath($file))[-1];

    if(defined($line) && $line ne "") {

        return "$filebase:$line";

    }

    return $filebase;

};

helper shorten_signature => sub {

    my ($self, $signature) = @_;

    return "" if(!defined($signature) || $signature eq "");

    my $short_signature = $signature;

    if($signature =~ qr{([^<]+)<.+>::([^()]+)\(.*\)(.*)}) {

        # c++ with template

        $short_signature = "$1<>::$2()$3";

    } elsif($signature =~ qr{([^()]+)\(.*\)(.*)}) {

        # c/c++

        $short_signature = "$1()$2";

    }

    return Mojo::ByteStream->new($self->t(span => (title => $signature, class => "shortened-signature") => $short_signature));

};

        if($_ =~ /(.*)\.json$/) {

                signature => $1,

                product => "",

    open JSON, '<', File::Spec->catfile($data_path, $self->param('uuid') . '.json') or die $!;

    close JSON;

    my $dmp_file = File::Spec->catfile($data_path, "$uuidstr.dmp");

    $file->move_to($dmp_file);

    my $out = qx($config->{MinidumpStackwalkJSON} "$dmp_file" $config->{SymbolsPath} 2>/dev/null) or die $!;

    my $pjson = $json->decode($out);

    $pjson->{client_info} = \%paramshash;

    my $j = $json->encode($pjson);

    open JSON, '>', File::Spec->catfile($data_path, "$uuidstr.json") or die $!;

    $self->render_text($pjson->{status});

app->secret('My secret passphrase here');