No tak koukám na tento script co mám z roota z předchozího odkazu
#! /usr/bin/perl
use lib qw( /rrdtool/perl-shared/blib/lib /rrdtool/perl-shared/blib/arch );
use lib qw( /usr/local/rrdtool-1.0.33/lib/perl /rrdtool/lib/perl );
use RRDs;
my $start=time;
my $rrd= "/home/httpd/mrtg.domena.sk-443/html/rrdtool/test/pingtest.rrd";
my $name = "/home/httpd/mrtg.domena.sk-443/html/rrdtool/test/pingtest.png";
if (not -f $rrd){
RRDs::create ($rrd, "--start",$start-1, "--step",300,
"DS:pingtime:GAUGE:600:U:U",
"RRA:AVERAGE:0.5:1:200",
);
my $ERROR = RRDs::error;
die "$0: unable to create `$rrd': $ERROR\n" if $ERROR;
};
my $t;
$t=`ping -c3 111.111.111.111 | grep round-trip|awk
'{\$c=split(\$4,i,"/");print i[1]}'`;
RRDs::update $rrd,"$start:$t";
RRDs::graph "$name",
"--title", "Demo ping prehladu",
"--start", "now-1d",
"--end", "now",
"--imgformat","PNG",
"--width=600",
"--height=300",
"DEF:a=$rrd:pingtime:AVERAGE",
"LINE2:pingtime#00b6e4:real",
"COMMENT:Aktuálna hodnota odozvy=$t",
;
if ($ERROR = RRDs::error) {
print "ERROR: $ERROR\n";
};
moc nechápu jak to funguje. netušítě někdo jak to funguje? Potřeboval bych zase nasměrovat. pls
Téma: Sledování rychlosti konektivity (Přečteno 4262 krát)
