CrashTest.pl
changeset 29 006e82a1bcd0
parent 24 b69b7aa98a1d
child 32 3e776f1b21d4
--- a/CrashTest.pl	Sun Aug 03 17:35:01 2014 +0200
+++ b/CrashTest.pl	Sun Aug 03 17:40:13 2014 +0200
@@ -23,6 +23,8 @@
 my @valid_params = qw/Add-ons Distributor ProductName ReleaseChannel StartupTime UserID Version BuildID CrashTime Comments/;
 my $config = plugin 'Config';
 
+plugin 'TagHelpers::BootstrapPagination';
+
 app->attr(storage => sub {
     my $self = shift;
     eval "require $config->{Storage}->{Type}" or die "Loading module failed $@";
@@ -78,7 +80,14 @@
 
 get '/' => sub {
     my $self = shift;
-    $self->stash(files => $self->app->storage->index());
+    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';