I written a Perl script that graps the MAX input and output values from
an rrd file, but
values that it gets does not match up with the graphs for the device.
I'm new at Perl,
but I believe the logic is sound. Here's the script that I wrote along
with the vales that
I get when I run it. I'll also but the values that I get from the
graph. Any help with this
would be much appreciated.
#!/usr/bin/perl -w
$t_days = $ARGV[0];
$t_watch = 60 * 60 * 24 * $t_days;
$now = time();
$start = $now - $t_watch;
open(RRD,"rrdtool fetch ethernet.rrd MAX --start $start |") or die
"Can't open rrdtool";
$in_max = 0;
$out_max = 0;
while(<RRD>) {
chomp;
($time,$stuff) = split /:\s+/;
@ds = split /\s+/, $stuff;
$new_bits_in = $ds[0];
$new_bits_out = $ds[1];
$cur_bits_in = ($new_bits_in - $old_bits_in) * 8;
$cur_bits_out = ($new_bits_out - $old_bits_out) * 8;
if($cur_bits_in > 0) {
$in_max=($in_max > $cur_bits_in) ? $in_max : $cur_bits_in;
}
if($cur_bits_out > 0) {
$out_max=($out_max > $cur_bits_out) ? $out_max : $cur_bits_out;
}
$old_bits_in = $new_bits_in;
$old_bits_out = $new_bits_out;
}
$in_max = sprintf("%.2f", $in_max / (1024 * 1024));
$out_max = sprintf("%.2f", $out_max / 1024); * 1024));
print "INPUT MAX: $in_max\n";
print "OUTPUT MAX: $out_max\n";
noc# INPUT MAX: 1.10
noc# OUTPUT MAX: 0.38
On the Graphs I can see input max at 1.91 and output at 0.54
Scott Williams
Network Analyst
Skyriver Communications, Inc.
Office: (858)812-5292
Cell: (858)945-6761
--
Unsubscribe mailto:[EMAIL PROTECTED]
Help mailto:[EMAIL PROTECTED]
Archive http://www.ee.ethz.ch/~slist/rrd-users
WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
