<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40"> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII"> <meta name=ProgId content=Word.Document> <meta name=Generator content="Microsoft Word 10"> <meta name=Originator content="Microsoft Word 10"> <link rel=File-List href="cid:filelist.xml@01C326C3.14E1B3C0"> <o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="PersonName"/>  <style>  </style>  </head> <body lang=EN-US link=blue vlink=purple style='tab-interval:36.0pt'> <div class=Section1> Try adding this to the top of the script.<o:p></o:p> <o:p> </o:p> #! /usr/bin/perl<o:p></o:p> use Getopt::Long;<o:p></o:p> use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);<o:p></o:p> use lib "/usr/local/nagios/libexec" ;<o:p></o:p> use utils qw(%ERRORS &print_revision &support &usage);<o:p></o:p> <o:p> </o:p> $PROGNAME = "check_queue";<o:p></o:p> <o:p> </o:p> sub print_help ();<o:p></o:p> sub print_usage ();<o:p></o:p> <o:p> </o:p> $ENV{'PATH'}='';<o:p></o:p> $ENV{'BASH_ENV'}='';<o:p></o:p> $ENV{'ENV'}='';<o:p></o:p> <o:p> </o:p> <o:p> </o:p> and use something like this for your exit code<o:p></o:p> <o:p> </o:p> if ($ok){<o:p></o:p> print "Ok. $line\n";<o:p></o:p> exit $ERRORS{'OK'};<o:p></o:p> }<o:p></o:p> <o:p> </o:p> if ($not_ok) {<o:p></o:p> print "WARNING. Cannot read the bloody line\n";<o:p></o:p> exit $ERRORS{"WARNING"};<o:p></o:p> }<o:p></o:p> <o:p> </o:p> <o:p> </o:p> I'm no perl expert but I hacked around until mine worked and this is what I did.<o:p></o:p> <o:p> </o:p> Later,<o:p></o:p> Dean<o:p></o:p> <o:p> </o:p> <o:p> </o:p> -----Original Message----- From: Jan van den Berg [mailto:jan@e-commercepark.com] Sent: May 30, 2003 2:06 PM To: '<st1:PersonName>Nagios-Users</st1:PersonName> (E-mail)' Subject: [Nagios-users] Perl subroutine plug-in<o:p></o:p> <o:p> </o:p> <o:p></o:p> Hi there,<o:p></o:p> <o:p></o:p> I don't if this is the right place here, but I have a question about a plug-in I'm developing.<o:p></o:p> <o:p></o:p> See the following Perl sub-routine<o:p></o:p> <o:p></o:p> sub get_alert<o:p></o:p> {<o:p></o:p> local @ARGV = '/var/log/alert';<o:p></o:p> my @last8;<o:p></o:p> <o:p></o:p> while (<>) {<o:p></o:p> push @last8, $_;<o:p></o:p> shift @last8 while @last8 > 8;<o:p></o:p> }<o:p></o:p> my $line = $last8[-6];<o:p></o:p> my $line =~ y/[,'"()<>]:;0123456789*//d; <o:p></o:p> print $line; <o:p></o:p> #print "test";<o:p></o:p> }<o:p></o:p> <o:p></o:p> So what this does is, get the 8 before last line from a log file, strips this line from meta-characters and print out a clean line of text. When I run this command-line: no problem. However Nagios says there is no output! But when I uncomment the print "test"; it prints this out nicely in Nagios..... so the subroutine is okay, and the print statement is okay.<o:p></o:p> (I also tried using quotes around "$line" but that didn't work).<o:p></o:p> <o:p></o:p> So what am I doing wrong here?<o:p></o:p> <o:p></o:p> Please help.<o:p></o:p> <o:p></o:p> Jan van den Berg<o:p></o:p> </div> </body> </html>