Munin contributed plugins

  }

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

  my @badports;

  foreach my $port (@PORTS) {

    my $url = sprintf $URL, $port;

    my $response = $ua->request (HTTP::Request->new('GET', $url));

    push @badports, $port unless $response->is_success;

  }

  if (@badports) {

    print "no (no mod_watch exists on ports @badports)\n";

    exit 1;

    my ($server, undef, $ifInOctets, $ifOutOctets, $ifRequests,

        $ifDocuments) = split (/\s/, $string, 6);

    push @servers, $server unless $server eq "SERVER";

      unless $server eq "SERVER";

  }

}