<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: Times New Roman; font-size: 12pt; color: #000000'>That's easy, just use the Getopt ----- use Getopt::Long; use vars qw($opt_h $opt_C $opt_H); # Get the options Getopt::Long::Configure('bundling'); GetOptions ("h" => \$opt_h, "help" => \$opt_h, # Help Flag "H=s" => \$opt_H, "hostname=s" => \$opt_H); # Hostname # Validate the options if ($opt_h) { &print_help(); exit $ERRORS{OK}; } $opt_H = shift unless ($opt_H); $host = $1 if ($opt_H && $opt_H =~ m/^([a-zA-Z][-a-zA-Z0-9]+(\.[a-zA-Z][-a-zA-Z0-9]+)*)$/); unless ($host) { print "No target host specified\n"; &print_usage(); exit $ERRORS{UNKNOWN}; } ----- <div style="text-align: center;">Eng. Alexandro Conde Martínez ---------> Alcon CTO, Fonet Global Inc. Phone: +1.972.749.9970 Voip: 523663800 <a style="font-weight: bold;" href="http://mailto:acm@fonetglobal.com">acm@fonetglobal.com</a> <a style="font-weight: bold;" href="http://www.fonetglobal.com">http://www.fonetglobal.com</a> Stop Spam: <a style="font-weight: bold;" href="http://www.cauce.org">http://www.cauce.org</a> </div> ----- Original Message ----- From: "Nibin VM" <nibin.vm@piserve.com> To: "Nagios Users List" <nagios-users@lists.sourceforge.net> Sent: Monday, January 24, 2011 9:16:51 AM Subject: Re: [Nagios-users] Trying to develop a new perl plugin Thanks for your reply folks.. :) Finally I have concluded that the portion which reads the argument has issues. $host=$ARGV[0]; It isn't taken correctly when its executed from nagios. Please somebody tell me what code should I put if I need to specify the host name like ./<a href="http://test.pl" target="_blank">test.pl</a> -H "hostname"? <div class="gmail_quote">On Sun, Jan 23, 2011 at 10:44 PM, Boyer, Timothy A. <<a href="mailto:Timothy.Boyer@opm.gov" target="_blank">Timothy.Boyer@opm.gov</a>> wrote: <blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"> Permissions problem? You're running the command line as root; try running the command line as your Nagios username. ________________________________________ From: Nibin VM [<a href="mailto:nibin.vm@piserve.com" target="_blank">nibin.vm@piserve.com</a>] Sent: Sunday, January 23, 2011 10:46 AM To: <a href="mailto:nagios-users@lists.sourceforge.net" target="_blank">nagios-users@lists.sourceforge.net</a> Subject: [Nagios-users] Trying to develop a new perl plugin <div><div></div><div class="h5"> Hello guys, I am trying to write some nagios perl plugin to monitor some services I'm responsible for. Initially I tried to write custom plugin to monitor mail queue using the following script. =========== #!/usr/bin/perl -w use strict; use Net::SNMP; use Getopt::Long; use lib "/usr/lib64/nagios/libexec"; my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3); my $host = undef; my $result = undef; my @array = undef; $host=$ARGV[0]; $result=`/usr/lib64/nagios/plugins/check_snmp -H $host -C "community" -o extOutput.1`; @array = split(/\ /, $result); chomp($array[3]); if ( $array[3] le "19999" ) { print "OK: current emails queue is $array[3]\n"; exit $ERRORS{"OK"}; } elsif ( $array[3] ge "20000" && $array[3] le "29999" ) { print "Warning: current emails queue is $array[3]\n"; exit $ERRORS{"WARNING"}; } elsif ( $array[3] ge "30000" ) { print "Critical: current emails queue is $array[3]\n"; exit $ERRORS{"CRITICAL"}; } else { print "Unknown"; exit $ERRORS{"UNKNOWN"}; } ================ As you can see, I use snmp to pull mail queue from the remote server. When I try the command from command line it work fine. </div></div>]# ./<a href="http://test.pl" target="_blank">test.pl</a><<a href="http://test.pl" target="_blank">http://test.pl</a>> "server name" <div class="im">OK: current emails queue is 264 But from the nagios from end it shows as critical and it shows "Critical: current emails queue is Unknown" error :( Please somebody help me to sort this out. Obviously its the first perl script that I ever wrote and I really interested to write more plugins in perl(I am in love with perl now :) ). Thanks in advance! -- Regards, Nibin. </div><div><div></div><div class="h5">------------------------------------------------------------------------------ Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)! Finally, a world-class log management solution at an even better price-free! Download using promo code Free_Logger_4_Dev2Dev. Offer expires February 28th, so secure your free ArcSight Logger TODAY! <a href="http://p.sf.net/sfu/arcsight-sfd2d" target="_blank">http://p.sf.net/sfu/arcsight-sfd2d</a> _______________________________________________ Nagios-users mailing list <a href="mailto:Nagios-users@lists.sourceforge.net" target="_blank">Nagios-users@lists.sourceforge.net</a> <a href="https://lists.sourceforge.net/lists/listinfo/nagios-users" target="_blank">https://lists.sourceforge.net/lists/listinfo/nagios-users</a> ::: Please include Nagios version, plugin version (-v) and OS when reporting any issue. ::: Messages without supporting info will risk being sent to /dev/null </div></div></blockquote></div> -- Regards, Nibin. <div style="display: inline;"></div> ------------------------------------------------------------------------------ Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)! Finally, a world-class log management solution at an even better price-free! Download using promo code Free_Logger_4_Dev2Dev. Offer expires February 28th, so secure your free ArcSight Logger TODAY! http://p.sf.net/sfu/arcsight-sfd2d _______________________________________________ Nagios-users mailing list Nagios-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/nagios-users ::: Please include Nagios version, plugin version (-v) and OS when reporting any issue. ::: Messages without supporting info will risk being sent to /dev/null</div></body></html>