>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: <[email protected]>
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
:
