http_request_time

#!/usr/bin/perl

=head1 INSTALLATION

	This plugin does http requests to specified URLs and takes the response time.
	Use it to monitor remote sites.

	LWP::UserAgent and Time::HiRes are required

=head1 CONFIGURATION

  [http_request_time]
  env.url1  http://127.0.0.1/1
  env.url2  http://127.0.0.1/2
  env.url3  http://www.example.com
  env.url3_name  some_munin_internal_name
  env.url3_label Some random page on our website
  env.url3_proxy http://firewall:3128
  env.url3_agent Mozilla/5.0
  env.timeout 3

Timeout is the timeout of any HTTP request. Tune to avoid a complete
timeout of the plugin.

=head1 MAGIC MARKERS

  #%# family=auto
  #%# capabilities=autoconf

=head1 LICENSE

GPLv2

=cut

use strict;
use warnings;
use Munin::Plugin;
use Time::HiRes qw(gettimeofday tv_interval);
my $ret = undef;

need_multigraph();

sub clean {
	my $surl=shift;
	$surl=~s/^https?:\/\///;
	$surl=~s|%[\w\d]|_|g;
	$surl=~s|[^\w\d_]|_|g;
	$surl=~s|_*$||g;
	$surl=~s|^_*||g;
	return $surl;
};

if (! eval "require LWP::UserAgent;")
{
	$ret = "LWP::UserAgent not found";
        if ( ! defined $ARGV[0] ) {
                die $ret;
        }
}

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"};
	my $proxy = $ENV{"url${i}_proxy"};
	my $name  = $ENV{"url${i}_name"}  || clean($url);
	my $label = $ENV{"url${i}_label"} || $url;
	my $agent = $ENV{"url${i}_agent"};

	$URLS{$name}={
		url=>$url,
		proxy=>$proxy,
		label=>$label,
		agent=>$agent,
		time=>'U'
	};
}

if ( defined $ARGV[0] and $ARGV[0] eq "autoconf" )
{
	if ($ret)
	{
		print "no ($ret)\n";
		exit 0;
	}

	my $ua = LWP::UserAgent->new(timeout => $timeout);

	foreach my $url (keys %URLS) {
		my $response = $ua->request(HTTP::Request->new('GET',$URLS{$url}{'url'}));
                if ($response->is_success) {
                	next;
                }
                else {
                        print "no (URL $url: ". $response->message .")\n";
                        exit 0;
                }
	}
	print "yes\n";
	exit 0;
}

if ( defined $ARGV[0] and $ARGV[0] eq "config" )
{
	# master graph
	print "multigraph http_request_time\n";
	print "graph_title HTTP(S) Request response times\n";
	print "graph_args --base 1000\n";
	print "graph_vlabel response time in ms\n";
	print "graph_category webserver\n";

	my @go;
	foreach my $name (keys %URLS) {
		my $url = $URLS{$name};
		print "$name.label $$url{'label'}\n";
		print "$name.info The response time of a single request\n";
		print "$name.min 0\n";
		print "$name.draw LINE1\n";
		push(@go, $name);
	}

	# multigraphs

	foreach my $name (keys %URLS) {
		my $url = $URLS{$name};
		print "\nmultigraph http_request_time.$name\n";
		print "graph_title $$url{'url'}\n";
		print "graph_args --base 1000\n";
		print "graph_vlabel response time in ms\n";
		print "graph_category webserver\n";
		print "$name.label $$url{'label'}\n";
		print "$name.info The response time of a single request\n";
		print "$name.min 0\n";
		print "$name.draw LINE1\n";
	}

	exit 0;
}

my $ua = LWP::UserAgent->new(timeout => $timeout);
my $defaultAgent = $ua->agent;
foreach my $name (keys %URLS) {
	my $url = $URLS{$name};

	if ($url->{agent}) {
		$ua->agent($url->{agent});
	} else {
		$ua->agent($defaultAgent);
	}
	if ($url->{proxy}) {
		$ua->proxy(['http', 'ftp'], $url->{proxy});
	}
	else {
		$ua->proxy(['http', 'ftp'], undef);
	}

	# warm up
	my $response = $ua->request(HTTP::Request->new('GET',$$url{'url'}));

	# timed run
	my $t1=[gettimeofday];
	$response = $ua->request(HTTP::Request->new('GET',$$url{'url'}));
	my $t2=[gettimeofday];

	if ($response->is_success) {
		$$url{'time'}=sprintf("%d",tv_interval($t1,$t2)*1000);
	};
};

print("multigraph http_request_time\n");
foreach my $name (keys %URLS) {
	my $url = $URLS{$name};
	print("$name.value $$url{'time'}\n");
}

foreach my $name (keys %URLS) {
	my $url = $URLS{$name};
	print("\nmultigraph http_request_time.$name\n");
	print("$name.value $$url{'time'}\n");
}

# vim:syntax=perl