lib/CrashTest.pm
author Vincent Tondellier <tonton+hg@team1664.org>
Sun, 18 Dec 2016 20:14:31 +0100
changeset 121 5a99941ed0ca
parent 120 1a0fa98037fa
child 122 8692800ec9ba
permissions -rw-r--r--
Display an error message instead of a 500 page when the search string is invalid
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     1
package CrashTest;
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     2
use Mojo::Base 'Mojolicious';
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     3
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     4
use CrashTest::Model::Storage;
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     5
use CrashTest::Model::StackFilter;
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     6
use CrashTest::Model::CrashReport;
88
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
     7
use CrashTest::Model::CrashGroup;
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
     8
use CrashTest::Model::CrashProcessor;
120
1a0fa98037fa Add Bug status table in the detailed report.
Vincent Tondellier <tonton+hg@team1664.org>
parents: 116
diff changeset
     9
use CrashTest::Model::BugLink;
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    10
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    11
# This method will run once at server start
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    12
sub startup {
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    13
    my $self = shift;
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    14
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    15
    $self->secrets([
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    16
        'My secret passphrase here'
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    17
    ]);
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    18
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    19
    # External plugins
108
e4e5cfaf5814 Move files around to package the app properly
Vincent Tondellier <tonton+hg@team1664.org>
parents: 88
diff changeset
    20
    $self->plugin('InstallablePaths');
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    21
    $self->plugin('Config');
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    22
    $self->plugin('bootstrap_pagination');
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    23
    # Documentation browser under "/perldoc"
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    24
    #$self->plugin('PODRenderer');
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    25
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    26
    # Commands
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    27
    push @{$self->commands->namespaces}, 'CrashTest::Command';
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    28
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    29
    # Helpers
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    30
    $self->plugin("CrashTest::Helper::DateTime");
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    31
    $self->plugin("CrashTest::Helper::Backtrace");
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    32
    $self->plugin("CrashTest::Helper::XmlEscape");
88
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    33
    $self->plugin("CrashTest::Helper::Stats");
116
39449f7dab99 Adding bug links (column and search), enabled by default
Vincent Tondellier <tonton+hg@team1664.org>
parents: 108
diff changeset
    34
    $self->plugin("CrashTest::Helper::BugLinks", $self->config->{WebInterface}->{BugTrackerLinks});
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    35
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    36
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    37
    $self->helper(crash_reports     => sub { state $crash_reports   = CrashTest::Model::CrashReport->new    (app => $self); });
88
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    38
    $self->helper(crash_groups      => sub { state $crash_groups    = CrashTest::Model::CrashGroup->new     (app => $self); });
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    39
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    40
    $self->helper(crash_processor   => sub { state $crash_processor = CrashTest::Model::CrashProcessor->new (app => $self, config => $self->config); });
120
1a0fa98037fa Add Bug status table in the detailed report.
Vincent Tondellier <tonton+hg@team1664.org>
parents: 116
diff changeset
    41
    $self->helper(stackfilter       => sub { state $stackfilter     = CrashTest::Model::StackFilter->new    (app => $self, config => $self->config); });
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    42
    $self->helper(storage           => sub { state $storage         = CrashTest::Model::Storage->new        (app => $self, config => $self->config); });
120
1a0fa98037fa Add Bug status table in the detailed report.
Vincent Tondellier <tonton+hg@team1664.org>
parents: 116
diff changeset
    43
    $self->helper(bug_link          => sub { state $bug_link        = CrashTest::Model::BugLink->new        (app => $self, config => $self->config->{WebInterface}->{BugTrackerLinks}); });
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    44
79
4ae8bb6f8a96 Small config reorganization
Vincent Tondellier <tonton+hg@team1664.org>
parents: 78
diff changeset
    45
    $self->plugin('Minion', $self->config->{Processor}->{JobQueue}->{Backend}->{Minion});
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    46
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    47
    $self->storage->load_plugins();
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    48
    $self->crash_processor->load_plugins();
120
1a0fa98037fa Add Bug status table in the detailed report.
Vincent Tondellier <tonton+hg@team1664.org>
parents: 116
diff changeset
    49
    $self->bug_link->load_plugins();
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    50
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    51
    # Router
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    52
    my $r = $self->routes;
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    53
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    54
    # Normal route to controller
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    55
    $r->get('/')->to('crash_reports#index')->name('index');
88
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    56
    $r->get('/reports')->to('crash_reports#index')->name('reports');
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    57
    $r->get('/groups')->to('crash_groups#index')->name('groups');
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    58
    $r->get('/groups/:uuid' => [ uuid => qr/[0-9a-fA-F-]+/ ])->to('crash_groups#show')->name('group');
c82f5589db11 Add first cut of the crash grouping feature
Vincent Tondellier <tonton+hg@team1664.org>
parents: 79
diff changeset
    59
    $r->get('/report/:uuid' => [ uuid => qr/[0-9a-fA-F-]+/ ])->to('crash_reports#show')->name('report');
78
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    60
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    61
    $r->post('/submit')->to('crash_inserter#insert');
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    62
}
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    63
0ebef32c34af Refactor everything
Vincent Tondellier <tonton+hg@team1664.org>
parents:
diff changeset
    64
1;