<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii"> <META NAME="Generator" CONTENT="MS Exchange Server version 6.0.6249.1"> <TITLE>Nagios plugin work in command, but not in Nagios</TITLE> </HEAD> <BODY>  Hi I've written a little perl script to report if anything is wrong with the Metadevices on a Solaris Server. Problem is that the script works perfectly in command mode, debugging show that it print some text and exit with exit $ERRORS{'CRITICAL'}; when metastat report error. However in Nagios all i get is OK and no output. Here is the script, please note that i learned perl while creating this, so the problem might be the script. I think its made after the criterias in Nagios plug-in development guidelines. #!/usr/bin/perl -w use strict; use Getopt::Long; use vars qw($opt_V $opt_h $opt_H $PROGNAME); use lib "/opt/sfw/nagios/libexec" ; use utils qw(%ERRORS &print_revision &support &usage); my $remote_user = "root"; my $path_to_rsh = "/usr/bin/rsh -n"; my $METADB="/usr/sbin/metadb"; my $METAHS="/usr/sbin/metahs"; my $METASTAT="/usr/sbin/metastat"; my @state; my @avail; my $Row; my $newFld; my @Fld; my $dbtrouble; my @mdtrouble; my @hstrouble; $PROGNAME = "check_sds"; $ENV{'PATH'}=''; $ENV{'BASH_ENV'}=''; $ENV{'ENV'}=''; Getopt::Long::Configure('bundling'); GetOptions ("V" => \$opt_V, "version" => \$opt_V, "h" => \$opt_h, "help" => \$opt_h, "H=s" => \$opt_H, "hostname=s" => \$opt_H,); if ($opt_V) { print_revision($PROGNAME,'$Revision: 0.1 $'); exit $ERRORS{'OK'}; } if ($opt_h) { print_help(); exit $ERRORS{'OK'}; } ($opt_H) || usage("Host name/address not specified\n"); my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/); ($host) || usage("Invalid host: $opt_H\n"); # # Check replicas for problems, capital letters in the flags indicate an error. # $dbtrouble=`$path_to_rsh -l $remote_user $opt_H $METADB`; chomp $dbtrouble; if ($dbtrouble =~ /[A-Z]/) { print "One or more Database replicas are not active\n"; exit $ERRORS{'CRITICAL'}; } # # Check the metadevice state, if the state is not Okay, something is up. # @mdtrouble=`$path_to_rsh -l $remote_user $host $METASTAT`; @state = grep /State:/ ,@mdtrouble; foreach $Row (@state) { chomp $Row; @Fld=split(":",$Row); foreach $newFld ($Fld[1]) { if ($newFld !~ /Okay*/) { print ("One or more Metadevices are not Okay\n"); exit $ERRORS{'CRITICAL'}; } } } # # Check the hotspares to see if any have been used. # Not used yet. #@hstrouble=`$path_to_rsh -l $remote_user $host $METAHS -i`; #@avail = grep /blocks/ ,@hstrouble; # #foreach (@avail) { # if (!/Available/) { # print "Hot spares in usage\n"; # $eval=1; # exit $ERRORS{'WARNING'}; # } #} sub print_help { print "\n\n"; print "This plugin checks Disksuite status on a remote Solaris system \n\n"; print "Usage:\t-H, --hostname=<HOST>\n\n\n"; support(); } Thanks Tommy Fallsen </BODY> </HTML>