Hi folks!
I've encounter a strange problem using LWP with Apache 1.3.27 with
mod_perl 1.27_01 installed on win2000pro box using Perl 5.6.1.
I'm requesting content from some urls from localhost via looping an array.
Everything fine with command line -c checking. Ever non-Apache server
Xitami executes my script fine. But under Apache it strictly waits 180
sec after each request. I've try it under Linux (our production box) (ASP Linux 7.0)
Apache 1.3.27, Perl 5.6.1 without mod_perl and all works fine. May be mod_perl
interprets LWP in particular way?
Please, help!
Here it is sample of my script:
#!/usr/bin/perl -wT
use strict;
use warnings;
use LWP;
my @location = (
'http://localhost/foo.bar',
'http://localhost/bar.foo',
);
my $agent = new LWP::UserAgent;
# $agent->timeout(30);
my @data_stash;
while (my $url = pop @location)
{
my $req = new HTTP::Request(GET => $url );
my $result = $agent->request( $req );
#after this Perl wait 180 sec as a timeout and after this process next
#request. Here I try to set a lower timeout value but it warns with
#error 500.
my $content = $result->content;
push @data_stash, [($url,$content)];
}
--
Best regards,
Serg Velikanov mailto:[EMAIL PROTECTED]
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
