Changeset 19139 for trunk/arclog/arclog.pl

Timestamp:

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

Author:

jhoblitt

Message:

enable filtering

File:

• trunk/arclog/arclog.pl (modified) (2 diffs)

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});