Munin contributed plugins

=head1 REQUIREMENTS

   server(s) you are going to monitor.

   Time::HiRes, LWP::UserAgent, HTML::LinkExtor, LWP::ConnCache

=head1 CONFIGURATION

	my %urls=();

	if(-r $file){

		open(FILE,'<'.$file);

			my $url=$_;

			chomp($url);

			my $id=get_id($url);

	my %cache=();

	if(-r $file){

		open(FILE,'<'.$file);

			m/^(\S*)\s+(.*)$/;

			$cache{ $1 } = $2;

		}

	print "graph_total Total\n";

	print "graph_info This graph is generated by a set of serial GETs to calculate the total time to load $urls{$id}. ";

	print "Note that browsers usually fork() the GET requests, resulting in a shorter total loading time.\n";

	if(keys(%cache)>0){

		for my $key ( sort reverse keys %cache ){

			my $value=$cache{$key};

			my $value=$cache{$key};

			if($key =~ m/^([A-Za-z]+)\_(\S+)$/){

				my $name=$2;

				if ($1 eq $type){

					$name=get_fieldname($name);

					print $name . ".value " . $value . "\n";

	exit(0);

} elsif($ARGV[0] and $ARGV[0] eq "cron") {

	# read from

	my $verbose=0;

	while ( my ($id, $url) = each(%urls) ) {

        	$verbose && print "Fetching $url (id: $id)... \n";

		$t0=0;

		$status=0;

		%output=();

				$tag=$$link[0] . " " . $$link[1];

			}

			$output{"tags_" . $$link[0] . "-" . $$link[1]}+=1;

			if(filter($tag)){

				$verbose && print "  Processing: " . $$link[0] . " " . $$link[1] . " " . $$link[2] . "\n";

				}

                	        my $suburl=$$link[2];

				$t0 = [gettimeofday];

				$response = $browser->get($suburl);

	        		$output{"loadtime_" . $host} += sprintf("%.6f",tv_interval ( $t0, [gettimeofday]));

		while ( my ($id, $value) = each(%input) ) {

			$input{$id}="U";

    		}

		# Adding new values

		while ( my ($id, $value) = each(%output) ) {

			$input{$id}=$value;

        		$verbose && print " Result: " . $id . " -> " . $value . "\n";

    		}

		# Writing the cache

		$verbose && print "Writing cache file: " . $cachefile . "... ";

		open(FILE,">".$cachefile);

	exit(0);

}elsif($ARGV[0] and $ARGV[0] eq "config") {

	my %urls=&read_urls($url_file);

	$debug && print "Reading cache file\n";

	my $cachefile=$cachedir . "/" . &get_cache_file_name($scriptname,$id);

	my %cache=read_cache($cachefile);

	} else {

		cache_values(\%cache, $type);

	}

# vim:syntax=perl