CrashTest.pl
changeset 41 f2292404519a
parent 37 013953be0f3b
child 42 604ffca3aec1
--- a/CrashTest.pl	Fri Aug 08 23:02:44 2014 +0200
+++ b/CrashTest.pl	Fri Aug 08 23:05:03 2014 +0200
@@ -52,10 +52,16 @@
 get '/' => sub {
     my $self = shift;
     my $page = 1;
+    my $crashs_per_page = 25;
+
+    if($self->req->url =~ qr{.*\.atom$}) {
+        $crashs_per_page = 100;
+    }
+
     $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);
+    my $result = $self->app->storage->index($page, $crashs_per_page);
 
     $self->stash(files => $result->{crashs});
     $self->stash(pager => $result->{pager});