Changeset 17274

Timestamp:

Apr 2, 2008, 10:56:20 AM (18 years ago)

Author:

jhoblitt

Message:

re-enable record filtering

File:

• trunk/arclog/arclog_readdb.pl (modified) (3 diffs)

trunk/arclog/arclog_readdb.pl

@@ -19 +19 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
+my $filter_records = 1;
+
 my $rcfile = "$ENV{HOME}/.arclogrc";
 $rcfile = File::Spec->canonpath($rcfile);
@@ -37 +39 @@
 my @myfilters;
 foreach my $filter (@{$c->get_event_filters}) {
-#    push @myfilters, qr/$filter/;
+    push @myfilters, qr/$filter/;
 }
 
@@ -62 +64 @@
 
     # 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/;
+        }
     }