Nagios Plugin Vorlage in Perl
Nachdem ich hier schon eine Vorlage für ein Nagios Plugin in Bash veröffentlicht hatte nun eine Vorlage in Perl.
# PERL MODULE
use Getopt::Long;
# NAGIOS Check, don´t do any thing if there are not enough parameter
GetOptions (
"c=i" => \$critlimit,
"w=i" => \$warnlimit,
"help" => \$help
);
if (( $help ) || ( !$critlimit ) || ( !$warnlimit )) { usage(); }
$perf_legend = some use full legend
$DATA = here comes the magic
if ( $DATA > $warnlimit ) {
print 'OK - some use full text including .'$DATA.' | .'$perf_legend.'='.$DATA."\n";
exit(0);
}
if (( $DATA <= $warnlimit ) && ( $DATA > $critlimit )) {
print 'WARNING - some use full text '.$DATA.' lower/higher then '.$warinlimit.' |'.$per_legend.'='.$DATA."\n";
exit(1);
}
if ( $DATA < $critlimit ) {
print 'CRITICAL - some use full text '.$DATA.' lower/higher then '.$critlimit.' |'.$per_legend.'='.$DATA."\n";
exit(2);
}
# NAGIOS Part
sub usage {
print "UNKNONW - Usage check_your_name -w <warning limit> -c <critical limit>\n";
exit(3);
}Angepasst werden muss hier vor allem das was die Variable $DATA befüllt.
Das Template geht davon aus, dass die Wertebereiche wie folgt sind:
Größer als $WARN_LIMIT == Ok
Kleiner als $WARN_LIMIT und größer als $CRIT_LIMIT == Warning
Kleiner als $CRIT_LIMIT == Critical
Also anders als bei der Bashvorlage hier ein Template, dass zeigt wie es ist wenn ein Großer Wert besser ist.