[BraLUG] Ping-Tool

[Robert Schulze]

Proof-of-concept:

#!/usr/bin/perl -w
#
#

use Net::Ping;

my @HOSTS=("217.160.94.55","www.heise.de");

my $po=Net::Ping->new('icmp',2);

while(1)
         {
         foreach my $host(@HOSTS)
                 {
                 print "$host\t";
                 if(!$po->ping($host))
                         {
                         print "TOT";
                         }
                 else
                         {
                         print "LEBT";
                         }
                 print "\n";
                 }
         sleep(1);
         }

exit(0);


Rob

----- Original Message -----
From: "Nico Rittner" <nrittner at cs.atlas-brb.de>
To: <bralug at bralug.de>
Sent: Friday, November 11, 2005 1:10 PM
Subject: [BraLUG] Ping-Tool


> Hallo Liste,
>
> ich suche nen Tool für die Konsole, welches
> die (ICMP)-Erreichbarkeit einer Liste von
> Hosts zyklisch  Zeile für Zeile in einer
> ncurses o.a. Art und Weise darstellt.
>
> x.y.z.a TOT
> 1.2.3.4 LEBT
> usw..
>
> Eine Suche bei Frischfleisch etc. brachte
> leider nichts Brauchbares. Hat jemand was parat ?
>
> Gruss,
>
> Nico
>


----------------------------------------------------------------------------
----


_______________________________________________
Bralug mailing list
Bralug at bralug.de
http://list.bralug.de/mailman/listinfo/bralug