Hi, I've also tried without that "-" before "timeout", but it doesn't work. I have also tried with $ua->timeout(5), but it doesn't work either.
Here is the test script and its result: use strict; use LWP::UserAgent; my $begin = time(); my $ua = LWP::UserAgent->new(); $ua->timeout(5); print $ua->get("http://www.presaromana.ro/")->content; print time() - $begin; And the result is: 500 Can't connect to www.presaromana.ro:80 (connect: Unknown error) 23 So it takes 23 seconds instead of timing out after 5. Is it a bug in LWP, or a limitation of Windows, or I am doing something wrong? Thank you. Teddy ----- Original Message ----- From: "Ted Behling" <[EMAIL PROTECTED]> To: "Octavian Rasnita" <[EMAIL PROTECTED]>; <libwww@perl.org> Sent: Wednesday, November 08, 2006 8:22 PM Subject: RE: timeout True. Or, Octavian, just leave out the hyphen from your timeout parameter, as in: my $ua = LWP::UserAgent->new(timeout => 5); Ted Behling ISP Systems Analyst, Hargray Communications [EMAIL PROTECTED] -----Original Message----- From: Eamon Daly [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 08, 2006 10:36 AM To: libwww@perl.org Cc: Octavian Rasnita Subject: Re: timeout >From the LWP::UserAgent perldoc at http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP/UserAgent.pm $ua->timeout( $secs ) Get/set the timeout value in seconds. The default timeout() value is 180 seconds, i.e. 3 minutes. So in your first example, it should be: use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->timeout(5); print $ua->get("http://www.presaromana.ro/")->content; ____________________________________________________________ Eamon Daly ----- Original Message ----- From: "Octavian Rasnita" <[EMAIL PROTECTED]> To: <libwww@perl.org> Sent: Wednesday, November 08, 2006 8:37 AM Subject: timeout : Hi, : : I am trying to create a very simple www client that times out after 5 : seconds. I have tried the 2 examples below, but none of them are working. : They don't time out even though the target site cannot be found. : I think they time out after some more time. : : I have ran them under Windows 2000 with ActivePerl 5.8.8. : Is it possible to do what I want? : : Thanks. : : use strict; : use LWP::UserAgent; : : my $ua = LWP::UserAgent->new(-timeout => 5); : : print $ua->get("http://www.presaromana.ro/")->content; : : __END__ : : my $req = HTTP::Request->new("GET", "http://www.presaromana.ro/"); : my $res = $ua->request($req); : : print $res->content(); : : : Teddy :