$temp = 0;
my $hdd_output = '';
my $smart_output = '';
-
+
if ( -e "$path_smartctl" )
{
system("$path_smartctl -iHA /dev/$disk > /var/log/smartctl_out_hddtemp-$disk");
if ( -e "$path_hddtemp" )
{
$hdd_output = `$path_hddtemp -qn /dev/$disk`;
-
+
# I know 4 response possible responses:
#
# /dev/harddisk: harddisk type: S.M.A.R.T. not available
{
$temp = 0;
}
+
-# print "hdd $hdd_output \n";
-# print "temp $temp \n";
+ print "Temperature for ".$disk."->".$temp."<-\n";
RRDs::update ("$rrdlog/hddtemp-$disk.rrd", "-t", "temperature", "N:$temp");
-
$ERROR = RRDs::error;
print "Error in RRD::update for hdd-$disk: $ERROR\n" if $ERROR;
}
updateloaddata();
updatememdata();
+###
+### HDD graphs
+###
+
my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
print "\nFound following amount of disks:".@disks."\n";
foreach (@disks){
chomp $disk;
print "Working on disk ".$disk.".\n";
updatediskdata($disk);
+updatehdddata($disk);
}
###
updatelq();
###
-### HDDTEMP-Graphs for /dev/harddisk
+### Mbmon Data
###
-
-my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
-print "\nFound following amount of disks for hddtemp:".@disks."\n";
-foreach (@disks){
-my $disk = $_;
-chomp $disk;
-updatehdddata ($disk);
-}
+updatembmondata();
###
### Network Graphs