ping Aviso
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 13.177 ]
Homepage: https://fabio.automatizando.dev
Script que fica enviando pacotes através do comando ping para
uma determinada máquina e avisa o administrador de sistemas
por email quando a máquina deixa de responder. Bom para detectar
quedas de rede.
#!/usr/bin/perl # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # pingAviso.pl # # Script que fica enviando pacotes através do comando ping para # uma determinada máquina e avisa o administrador de sistemas # por email quando a máquina deixa de responder. Bom para detectar # quedas de rede. # # Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br> # Na web em: www.vivaolinux.com.br # # Rio de Janeiro, 25 de Julho de 2002 # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ use strict; use MIME::Entity; # módulo para envio de email # definir variáveis globais -- my $ip = '200.215.128.83'; # endereço IP do host target my $ping = '/bin/ping'; my $time = 60; # executar verificação a cada 60 segundos my $tout = 3600; # aguardar 5 minutos após a queda da máquina, só para # dar tempo de a mesma voltar em caso de reinicialização :) # mude aqui o seus endereços de email my $sysfrom = 'Fábio Berbert de Paula <fabio@vivaolinux.com.br>'; my $systo = 'suporte@vivaolinux.com.br'; my ($out,$corpo); # looping principal while (1) { $out = `$ping -c 3 $ip`; # execute o ping if ( $out !~ /bytes from/i ) { # se não recebemos uma saída positiva (bytes from), vamos avisar # o sysadmin print "$ip fora do ar, avisando por email...\n"; avisar(); } sleep(1); } sub avisar { # capturar a data e hora de agora my ($dia,$mes,$ano,$hora,$min) = (localtime(time))[3,4,5,2,1]; $ano += 1900; $mes++; $mes = sprintf("%02d",$mes); $dia = sprintf("%02d",$dia); $hora = sprintf("%02d",$hora); $min = sprintf("%02d",$min); # definir corpo da mensagem $corpo .= ' Atenção, A máquina ('. $ip . ') não está respondendo ao ping, tudo indica que a mesma está fora da rede. Favor efetuar uma verificação manual, este é um teste automático. '; $corpo .= "\nRio de Janeiro, $dia do $mes de $ano - $hora:$min hs"; # enviar email com o corpo atual my $top = build MIME::Entity From => $sysfrom, To => $systo,, Subject => "$ip fora da rede", Data => $corpo; open(MAIL,"| /usr/lib/sendmail -t"); $top->print(\*MAIL); close(MAIL); sleep($tout); }
Carregando automaticamente wireless via ndiswrapper
Instalação automatizada do Squid 2.5 STABLE14
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (17)
Dificuldade com Ocs 2.12.3 no Debian 13 com Apache2 - Can't load ... (4)
paginação dos favoritos não funciona no vivaolinux[BU... (4)