flpe007
(usa Debian)
Enviado em 28/07/2008 - 15:20h
Olá de novo,
estou tetando fazer um script para monitorar algumas impressoras e estou com um pouco de dificuldade será que alguém pode me dar uma ajuda
tenho esse script, que le um arquivo com o n ] de ip do host e verifica qtas paginas foram impressas, se o nº for maior do que está no arquivo ele aponta um "CRITICAL" se não ele grava o nº e manda um "OK".
porém com esse script ainda não consegui fazer funfar...
me retorna o seguinte erro: (Return code of 127 is out of bounds - plugin may be missing)
será q o problema está no momento q ele tenta abrir o host?
se alguém tb tiver alguma sugestão de mudança no código, eu agradeço!!!
segue o código:
#!/usr/bin/perl
use warnings;
use strict;
#use Nagios::Plugin::Functions;
my $host = $ARGV[0];
my $arquivo = "/usr/local/nagios/libexec/printer/$host";
open ( LIBERADOS,"<$arquivo" ) or die ( "Nao pode abrir o arquivo:", system "touch /usr/local/nagios/libexec/printer/$host" );
my @linhas = <LIBERADOS>;
close (LIBERADOS);
my $site = `snmpget -v 2c -c public $host 1.3.6.1.2.1.43.10.2.1.4.1.1`;
open ( LIBERADOS,"<$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" );
my $linhas = "@linhas";
if ( my($cont) = $site =~ m|^.*Counter32: (.+)|) {
if ($cont < $linhas) {
nagios_exit(CRITICAL, "Contador alterado" );
}else {
system "echo '$cont' > /usr/local/nagios/libexec/printer/$host";
nagios_exit(OK, "Contador OK");
}
close ( LIBERADOS ) or die ( "Nao pode fechar o arquivo: $!" );
}
valeu!!!