[FUGSPBR] Script de ping (vereficacao de maquinas online)

[Diego Linke - GAMK]

Joelson e para aqueles que pediram, estou enviando um pequeno script que
desenvolvi em perl para checagem de maquinas Online.

Sua sintaxe:

# ./ping_gamk.pl www.calnet.com.br www.gamk.com.br localhost nao.seila.com
Host "www.calnet.com.br" no Ar!!!
Host "www.gamk.com.br" fora do ar.
Host "localhost" no Ar!!!
Host "nao.seila.com" fora do ar.

Podera ser substituido o print de "no ar" e "fora do ar" por qualquer
outro tipo de comando ou ate mesmo chamar outro programa.

Abaixao segue o script..

--- BEGIN ---
#!/usr/bin/perl

# ping_gamk.pl Version 0.0.2-CURRENT
# 2000-2001 Copyright (c) All rights reserved.
# Diego Linke - GAMK <gamk em gamk.com.br>

if (!$ARGV[0]) {
  print "Voce nao informou o host!\n";
  exit;
} else {
  use Net::Ping;
  $modulo_ping = Net::Ping->new("icmp","1","32");
  foreach $host (@ARGV) {
    $ok = $modulo_ping->ping($host);
    if ($ok != 1) {
      print "Host \"$host\" fora do ar.\n";
    } else {
      print "Host \"$host\" no Ar!!!\n";
    }
  }
}
--- END ---

Espero ter sido util..

abracos

Atenciosamente,
--
[ Diego Linke - GAMK ]
System/Network Administrator
Curitiba - Parana - Brazil
E-Mail: gamk em gamk.com.br
Web Site: http://www.gamk.com.br
Phone Number: (+5541) 9905-6067

<----.     Of course it runs
<----|============================
<----' NetBSD, OpenBSD or FreeBSD



----
Para sair da lista envie um e-mail para majordomo em fugspbr.org
com as palavras "unsubscribe fugspbr" no corpo da mensagem.