Munin contributed plugins

#

# Change log

# v1.0.0    2008-07-21        Chris Hastie

#

# v1.1.0    2010-12-07	      Uffe Norberg

# - Changed default statedir to /var/lib/munin/plugin-state (Debian default)

while (<SERVICE>) {

    if (/^[-+*#](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\s+\S+){7}\s+(\S+)/) {

      my $name  = &lookupname($1);

    }

}

close(SERVICE);

# save list of peer IPs and hostnames

if(-l $statefile) {

	die("$statefile is a symbolic link, refusing to touch it.");

open (OUT, ">$statefile") or exit 4;

foreach my $i (keys %peers) {

  print OUT "$i:" . $peers{$i}{'name'} .  "\n";

# create a valid munin field name from the hostname

sub sanitize_field () {

  my $field = shift;

  # replace illegal characters with an underscore

  $field =~ s/[^A-Za-z0-9_]/_/g;

  # prepend an underscore if name starts with a number

  $field =~ s/^([^A-Za-z_])/_$1/;

  # truncate to 19 characters

  if (length($field) > 19) {

    $field = substr($field, 0, 19);

  my $ip = shift;

  # have we already got it?

  if ($peers{$ip}{'name'}) {

  }

  # else look it up

  # add to cache

  $peers{$ip}{'name'} = $name;

  return $name;