--- lib/PXElator/store.pm 2010/07/21 15:34:34 505 +++ lib/PXElator/store.pm 2010/08/26 19:29:18 522 @@ -70,13 +70,9 @@ sub query { - my ( $from_t, $callback ) = @_; - my $q; - $q->{'package.time'} = { '$lt' => $from_t * 1 } if $from_t; -# $q->{'package.name'} = { '$ne' => 'syslogd' }; - $q->{'tag'} = { '$ne' => 'CRON' }; + my ( $q, $callback ) = @_; warn "# query ", dump($q); - $audit->ensure_index({ 'package.name' => 1 }); + $audit->ensure_index({ $_ => 1 }) foreach keys %$q; my $cursor = $audit->query($q)->sort({ 'package.time' => -1 })->limit( 100 ); while( my $o = $cursor->next ) { $callback->( $o );