#!/usr/bin/perl -w
#round-trip min/avg/max/mdev = 10.614/25.990/73.134/23.708 ms#
use strict;
my ($min, $max, $values);
open (PING, "/bin/ping -qc5 80.50.11.226 |")
or die "can't find ping: $!\n";
while (<PING>) {
next unless m/^round/o;
($values) = (split(' ',$_))[3];
($min, $max) = (split("/", $values))[0,2];
($min) = int($min);
($max) = int($max);
#print "$min, $max\n";
}
#open MRTG, "> /var/mrtg/data/ping.data"
#or die "can't open ping/data: $!\n";
print "$min\n$max\n0\nping test";
#print MRTG "$min\n$max\n0\nping test";
#close MRTG;
Zaloguj się
Zarejestruj się
FAQ
Szukaj
(found in internet by v|rus)
1. zainstaluj paczke mrtg-just i stwórz w /www/scripts/plik mrtg-ping-polka
