Página 1 de 2 12 ÚltimoÚltimo
+ Responder ao Tópico



  1. #1
    lucianomv
    Blz gente, to precisando de um help de vcs, alguem sabe me dizer onde posso arrumar um manual explicativo de como instalar o nagios? é que preciso montar um sistema de que quando um dos servidores cairem me avise por celular! se alguem souber me avisem, valeu e te mais!!!!!!

  2. Da uma olhada:

    www.nagios.org/docs/



  3. Tem um software muito bom, chamado
    What's UP, ele faz uma rotina de teste, caso cai algum link, ou uma máquina desligue, ai ele testa, da um tempo, conforme vc programa, e depois de te manda um e-mail, uma mensagem no celular do grupo responsável e liga no seu celular. O único problem é que deve ter somente para ruiwindows.

  4. #!/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);
    }



  5. #5
    lucianomdv
    valeu pelas dicas rapasiada, e um grande abraço!!!






Tópicos Similares

  1. Respostas: 3
    Último Post: 15-05-2012, 07:29
  2. Script de instalação do QMAIL
    Por no fórum Servidores de Rede
    Respostas: 4
    Último Post: 30-05-2003, 10:25
  3. Erro de instalação!!
    Por mmacoli no fórum Servidores de Rede
    Respostas: 0
    Último Post: 09-04-2003, 19:09
  4. Erro de Instalação pelo HD no Linux CL8
    Por shakejb no fórum Servidores de Rede
    Respostas: 3
    Último Post: 25-01-2003, 16:56
  5. Erro de Instalação pelo HD no Linux CL8
    Por shakejb no fórum Servidores de Rede
    Respostas: 0
    Último Post: 17-01-2003, 22:11

Visite: BR-Linux ·  VivaOLinux ·  Dicas-L