show 10 last changes

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index 0588c19..3b94253 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -10,10 +10,13 @@ use Storable;
 sub index {
        my $self = shift;
 
+       my $max = $self->param('max') || 10;
+
        my $changes;
-       foreach my $path ( glob '/tmp/changes/*' ) {
+       foreach my $path ( sort { $b cmp $a } glob '/tmp/changes/*' ) {
                if ( $path =~ m{/((\d+\.\d+)\.data\.(.+))$} ) {
                        push @$changes, { uid => $1, t => $2, action => $3 };
+                       last if $#$changes > $max;
                } else {
                        warn "ignore: $path\n";
                }