Index: trunk/arclog/arclog_readdb.pl
===================================================================
--- trunk/arclog/arclog_readdb.pl	(revision 17273)
+++ trunk/arclog/arclog_readdb.pl	(revision 17274)
@@ -19,4 +19,6 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
+my $filter_records = 1;
+
 my $rcfile = "$ENV{HOME}/.arclogrc";
 $rcfile = File::Spec->canonpath($rcfile);
@@ -37,5 +39,5 @@
 my @myfilters;
 foreach my $filter (@{$c->get_event_filters}) {
-#    push @myfilters, qr/$filter/;
+    push @myfilters, qr/$filter/;
 }
 
@@ -62,6 +64,8 @@
 
     # do not print filtered records
-    foreach my $filter (@myfilters) {
-        next RECORDS if $event =~ /$filter/;
+    if (defined $filter_records) {
+        foreach my $filter (@myfilters) {
+            next RECORDS if $event =~ /$filter/;
+        }
     }