empty Response with Parallel UserAgent

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: Bruno Semrau: "empty response with Parallel UserAgent"
• Previous message: Gisle Aas: "Re: URI module for 5.005_58"

Hello,
i have written a small script to check URLs.




use LWP::Parallel::UserAgent;
use HTTP::Request; 
# use LWP::Debug qw(+);
my $pua = new LWP::Parallel::UserAgent;

$pua->redirect(0);
$pua->timeout   (20);
$pua->max_req  ( 2); 
$pua->max_hosts(5);  
$pua->remember_failures(1);
$pua->in_order (1);  

open(FILE, "urls")|| die "$!\n";;
foreach (<FILE>) {
  chomp;
  $req = HTTP::Request->new('HEAD', $_);

  print "Registering '".$req->url."'\n";
  $pua->register ($req , \&handle_answer);
  }
close(FILE);

my $entries = $pua->wait();



 foreach (keys %$entries) {
   $res = $entries->{$_}->response;

   print "Answer for '",$res->request->url, "' was \t", $res->code,": ",
         $res->message,"\n";

}

• Next message: Bruno Semrau: "empty response with Parallel UserAgent"
• Previous message: Gisle Aas: "Re: URI module for 5.005_58"