Munin contributed plugins

				$name =~ s/\ /_/g;

				# add the ID to be 100% unique

				$name .= '_'.$id;

				if ($mode eq 'config')

				{

					# only needed here in config

					}

					# calc warning from threshold, 5% less

					my $warning = sprintf("%.0f", $threshold * 95 / 100);

					print $name.".label ".$location."\n";

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

					print $name.".critical ".$threshold."\n";