Changeset 19139

Timestamp:

Aug 20, 2008, 1:30:54 PM (18 years ago)

Author:

jhoblitt

Message:

enable filtering

Location:

trunk/arclog

Files:

• arclog.pl (modified) (2 diffs)
• arclog_readdb.pl (modified) (1 diff)

trunk/arclog/arclog.pl

@@ -19 +19 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
-my $filter_records = 0;
+my $filter_records = 1;
 
 my $rcfile = "$ENV{HOME}/.arclogrc";
@@ -47 +47 @@
     my $hostport = "$host:$http_port";
     my $ua = LWP::UserAgent->new;
+    $ua->timeout(10);
     $ua->conn_cache(LWP::ConnCache->new());
     $ua->credentials( "$hostport", $realm, $user => $myhosts->{$host});

trunk/arclog/arclog_readdb.pl

@@ -19 +19 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
-my $filter_records = 0;
+my $filter_records = 1;
 
 my $rcfile = "$ENV{HOME}/.arclogrc";