Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Merge pull request #345 from anarcat/http_request_time_timeout

Browse Source 
Http request time timeout
This commit is contained in:
Steve Schnepp 2013-07-10 08:39:09 -07:00
commit 0c47fcafc0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/http/http_request_time
View File

@ -56,6 +56,10 @@ if (! eval "require LWP::UserAgent;")
my %URLS;
# timeout in seconds for requests
# slightly lower than the default global timeout (5 seconds)
my $timeout = $ENV{'timeout'} || 3;
for (my $i = 1; $ENV{"url$i"}; $i++)
{
my $url = $ENV{"url$i"};
@ -79,7 +83,7 @@ if ( defined $ARGV[0] and $ARGV[0] eq "autoconf" )
exit 0;
}
my $ua = LWP::UserAgent->new(timeout => 30);
my $ua = LWP::UserAgent->new(timeout => $timeout);
foreach my $url (keys %URLS) {
my $response = $ua->request(HTTP::Request->new('GET',$url));
@ -132,7 +136,7 @@ if ( defined $ARGV[0] and $ARGV[0] eq "config" )
exit 0;
}
my $ua = LWP::UserAgent->new(timeout => 15);
my $ua = LWP::UserAgent->new(timeout => $timeout);
foreach my $name (keys %URLS) {
my $url = $URLS{$name};