Monitoring/nagios-plugins
1
0
Fork 0
mirror of https://github.com/opinkerfi/nagios-plugins.git synced 2024-12-22 17:13:52 +01:00
Code Issues Releases Wiki Activity

Perfdata added to check_squid.pl

Browse Source
This commit is contained in:
Tómas Edwardsson 2010-03-18 12:00:58 +00:00
parent 773cfede2b
commit d0fccf6649
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
check_squid/trunk/check_squid.pl
View File

@ -22,6 +22,7 @@ use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use HTTP::Headers;
use Time::HiRes;
my ($url, $urluser, $urlpass, $proxy, $proxyport,
$proxyuser, $proxypass, $expectstatus, $res, $req);
@ -88,13 +89,17 @@ if ($urluser)
$h->authorization_basic($urluser, $urlpass);
}
$t0 = [gettimeofday];
$req = HTTP::Request->new('GET', $url, $h);
$res = $ua->request($req);
$elapsed = tv_interval ( $t0 );
if ($res->status_line =~ /^$expectstatus/)
{
print "OK - Status: ".$res->status_line."\n";
print "OK - Status: ".$res->status_line. " | 'response'=$elapsed\n";
exit $ERRORS{"OK"};
}
else