Ich hab im wesentliche 2 Änderungen: andere Skalierung für Y-Achse und gelesen Sektoren entfernt.
Code:
sub updatediskgraph {
my $period = $_[0];
RRDs::graph ("$graphs/disk-$period.png",
"--start", "-1$period", "-aPNG", "-i", "-z",
# "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-r",
"--alt-y-grid", "-w 600", "-h 100", "-l 0", "-u 0.5", "-r",
"--color", "SHADEA#EAE9EE",
"--color", "SHADEB#EAE9EE",
"--color", "BACK#EAE9EE",
"-t $tr{'disk access per'} $tr{$period}",
# "DEF:read=$rrdlog/disk.rrd:readsect:AVERAGE",
"DEF:write=$rrdlog/disk.rrd:writesect:AVERAGE",
# "AREA:read#0000FF:$tr{'sectors read from disk per second'}\\j",
# "STACK:write#00FF00:$tr{'sectors written to disk per second'}\\j",
"AREA:write#00FF00:$tr{'sectors written to disk per second'}\\j",
# "GPRINT:read:MAX:$tr{'maximal'} $tr{'read sectors'}\\:%8.0lf",
# "GPRINT:read:AVERAGE:$tr{'average'} $tr{'read sectors'}\\:%8.0lf",
# "GPRINT:read:LAST:$tr{'current'} $tr{'read sectors'}\\:%8.0lf\\j",
"GPRINT:write:MAX:$tr{'maximal'} $tr{'written sectors'}\\:%8.0lf",
"GPRINT:write:AVERAGE:$tr{'average'} $tr{'written sectors'}\\:%8.0lf",
"GPRINT:write:LAST:$tr{'current'} $tr{'written sectors'}\\:%8.0lf\\j");
$ERROR = RRDs::error;
print "Error in RRD::graph for disk: $ERROR\n" if $ERROR;
}
Aktuell sieht es bei mir so aus
