Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: HTTP::Request::Common Retry Option

by Khen1950fx (Canon)
on Sep 18, 2010 at 00:42 UTC ( [id://860581]=note: print w/replies, xml ) Need Help??


in reply to HTTP::Request::Common Retry Option

You can control the number of retries by using LWP::UserAgent::Determined. I set the timing string at 5 seconds, 10, and 20. I also added the codes that I wanted it to retry.
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent::Determined; my $url = 'http://www.google.com'; my $browser = LWP::UserAgent::Determined->new( cookie_jar => '' ); my $timing_string = $browser->timing("5,10,20"); my $http_codes_hr = $browser->codes_to_determinate(); $http_codes_hr->{408} = 1; $http_codes_hr->{500} = 1; $http_codes_hr->{567} = 1; $browser->before_determined_callback( sub { print "Trying ", $_[4][0]->uri, " at ", scalar(localtime), "...\n"; }); $browser->after_determined_callback( sub { print "Just tried ", $_[4][0]->uri, " at ", scalar(localtime), ".\n"; }); my $response = $browser->get( $url ); print "That gave: ",$response->status_line, "\n";

Replies are listed 'Best First'.
Re^2: HTTP::Request::Common Retry Option
by bichonfrise74 (Vicar) on Sep 20, 2010 at 23:54 UTC
    I was just about to ask a question along these lines. Good thing somebody beat me to it.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://860581]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2024-03-29 13:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found