Una consulta, al terminar de habilitar el envio de correos, recibo muchas notificaciones. (44 notificaciones de monitor critico en menos de 15 minutos)

¿Existe algun parametro que gatille el correo la primera vez que detecta el problema y no constantemente?

Agradecido de antemano.

define service{
use servidores_web
host_name equipo
service_description Servidor Web
check_command check_http_address!8080!/prueba/
}

Me preguntaba si tienes conocimiento de establecer nuevos servicios en base a puertos. Por ejemplo tengo un servidor que envía HTTP por el puerto 90 y no encuentro la manera de crear un servicio que vigile dicho puerto.

Así mismo uso otros puertos no definidos en los servicios de Nagios.

Gracias por la atención.

Enrique.

#!/usr/bin/perl
use Net::SMTP;
$destinatario=$ARGV[0];
$tipo=$ARGV[1];
$host=$ARGV[2];
$estado=$ARGV[3];
$ip=$ARGV[4];
$smtp= Net::SMTP-> new (“smtp.ejemplo.es”);
$smtp->mail(“nagios\@ejemplo.es”);
$smtp->to(“$destinatario”);
$smtp->data();
$smtp->datasend(“To: $destinatario\n”);
$smtp->datasend(“Subject: NAGIOS – $tipo: $host con estado $estado\n”);
$smtp->datasend(“Notificacion de tipo: $tipo\n”);
$smtp->datasend(“Equipo: $host ($ip)\n”);
$smtp->datasend(“Estado actual: $estado\n”);
$smtp->datasend();
$smtp->quit;

Pero envía los mensajes con el cuerpo del mensaje en el asunto. Me podrían ayudar?

Muchas gracias

[root@nagiossys01 libexec]# ./correo.pl “cuenta_de_mail@dominio.com” 1 EQUIPO ESTADO_OK 10.10.10.10 (es un ejemplo)
Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>> Net::Cmd(2.29)
Net::SMTP>>> Exporter(5.64_03)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.32)
Net::SMTP>>> IO::Handle(1.31)
Net::SMTP=GLOB(0x9cc13f0)<<>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x9cc13f0)<<< 250-041-DB3MMR1-005.041d.mgd.msft.net Hello [10.153.9.198]
Net::SMTP=GLOB(0x9cc13f0)<<< 250-SIZE
Net::SMTP=GLOB(0x9cc13f0)<<< 250-PIPELINING
Net::SMTP=GLOB(0x9cc13f0)<<< 250-DSN
Net::SMTP=GLOB(0x9cc13f0)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x9cc13f0)<<< 250-STARTTLS
Net::SMTP=GLOB(0x9cc13f0)<<< 250-X-ANONYMOUSTLS
Net::SMTP=GLOB(0x9cc13f0)<<< 250-AUTH NTLM
Net::SMTP=GLOB(0x9cc13f0)<<< 250-X-EXPS GSSAPI NTLM
Net::SMTP=GLOB(0x9cc13f0)<<< 250-8BITMIME
Net::SMTP=GLOB(0x9cc13f0)<<< 250-BINARYMIME
Net::SMTP=GLOB(0x9cc13f0)<<< 250-CHUNKING
Net::SMTP=GLOB(0x9cc13f0)<<< 250-XEXCH50
Net::SMTP=GLOB(0x9cc13f0)<<< 250-XRDST
Net::SMTP=GLOB(0x9cc13f0)<<>> MAIL FROM:
Net::SMTP=GLOB(0x9cc13f0)<<>> RCPT TO:
Net::SMTP: Unexpected EOF on command channel at ./correo.pl line 11