[Nagiosplug-devel] process plugin
Subhendu Ghosh
sghosh at sghosh.org
Fri Nov 15 08:15:04 CET 2002
Merci -
How does this compare to the existing check_procs plugins?
(Other than output language)
-sg
On Fri, 15 Nov 2002, Gilles THOMAS wrote:
> hi,
>
> First, excuse me for my english...
>
> I made a plugin in perl, because I need to know if a particular process is
> present if you are interresting with that I give you the code, I'm not a
> perl expert so excuse me for the quality of the code, and the return is in
> french, so sorry but you may translate :
>
>
> #!/usr/bin/perl
>
> # You need CPAN module "Proc-ProcessTable-0.37" from Dan Urist.
> # You can found this module at http://www.cpan.org.
> #
> # This script allow you to see if a process is present.
> # You may/can use this script with nrpe
>
> use Proc::ProcessTable;
> use Getopt::Long;
> &Getopt::Long::config('auto_abbrev');
>
> # Evaluation des paramètres passés à la commande
> my $status = GetOptions(
> "process=s",\$process,
> );
>
> usage() if ($status == 0 || ! ($process));
>
>
> $i = 0;
>
> $ref = new Proc::ProcessTable;
>
> foreach $proc (@{$ref->table}) {
> if(@ARGV) {
> next unless grep {$_ == $proc->{pid}} @ARGV;
> }
>
> if ($proc->{fname} =~ m/$process/i){
>
> $i++;
> printf "$proc->{cmndline} \n";
> };
>
> }
>
> if ($i > 0) {
> printf "Il y a $i process '$process' \n";
> exit(0);
> };
>
> printf ("Il n'y a pas de process '$process' en cours ! \n");
> exit(2);
>
> sub usage()
> {
>
> printf "\n check_process.pl Plugin for Nagios \n";
> printf " Nagios : www.nagios.org \n";
> printf "\n Missing argument ! \n";
> printf "\n Ex : ./test_ps.pl -p nagios \n";
> printf "'nagios' is the name of the process \n\n";
> printf "it may be 'ping', 'smbd' or 'httpd', etc... \n\n";
> printf "-p : the name of the process you want to monitor \n\n";
> printf "\nCopyright (C) 2002 Gilles THOMAS 'tom\@persofrance.dyndns.org'
> \n";
> printf "check_process.pl comes with ABSOLUTELY NO WARRANTY \n";
> printf "This programm is licensed under the terms of the ";
> printf "GNU General Public License\n(check source code for details) \n";
> printf "\n\n";
>
> exit(3);
>
> }
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: To learn the basics of securing
> your web site with SSL, click here to get a FREE TRIAL of a Thawte
> Server Certificate: http://www.gothawte.com/rd524.html
> _______________________________________________
> Nagiosplug-devel mailing list
> Nagiosplug-devel at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/nagiosplug-devel
>
--
More information about the Devel
mailing list