foreach (@disks){
my $disk = $_;
chomp $disk;
- &Graphs::updatehddgraph ($disk,"day");&Graphs::updatehddgraph ($disk,"week");&Graphs::updatehddgraph ($disk,"month");&Graphs::updatehddgraph ($disk,"year");
+ my @array = split(/\//,$disk);
+ &Graphs::updatehddgraph ($array[$#array],"day");&Graphs::updatehddgraph ($array[$#array],"week");&Graphs::updatehddgraph ($array[$#array],"month");&Graphs::updatehddgraph ($array[$#array],"year");
}
&Graphs::updatetempgraph ("day");
foreach (@devices) {
my $device = $_;
chomp($device);
- hddtempbox($device);}
+ my @array = split(/\//,$device);
+ hddtempbox($array[$#array]);}
}
&Header::openbox('100%', 'center', $Lang::tr{'settings'});
my $disk = $_[0];
if (-e "$graphdir/hddtemp-$disk-day.png") {
- &Header::openbox('100%', 'center', "Disk /dev/$disk $Lang::tr{'graph'}");
+ &Header::openbox('100%', 'center', "Disk $disk $Lang::tr{'graph'}");
my $ftime = localtime((stat("$graphdir/hddtemp-$disk-day.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<a href='/cgi-bin/hardwaregraphs.cgi?graph=hddtemp-$disk'>";
foreach (@devices) {
my $device = $_;
chomp($device);
- &Graphs::updatediskgraph ("day",$device);
- diskbox("$device");
+ my @array = split(/\//,$device);
+ &Graphs::updatediskgraph ("day",$array[$#array]);
+ diskbox($array[$#array]);
}
&Header::openbox('100%', 'center', $Lang::tr{'disk usage'});
chomp $disk;
my @status;
if (-e "$Header::graphdir/disk-$disk-day.png") {
- &Header::openbox('100%', 'center', "Disk /dev/$disk $Lang::tr{'graph'}");
+ &Header::openbox('100%', 'center', "Disk $disk $Lang::tr{'graph'}");
my $ftime = localtime((stat("$Header::graphdir/disk-$disk-day.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<a href='/cgi-bin/graphs.cgi?graph=disk-$disk'>";
if ( $status[1]=~/standby/){
my $ftime = localtime((stat("/tmp/hddshutdown-$disk"))[9]);
- print"<B>Disk /dev/$disk status:<font color=#FF0000>".$status[1]."</font></B> (since $ftime)";
+ print"<B>Disk $disk status:<font color=#FF0000>".$status[1]."</font></B> (since $ftime)";
}
else{
- print"<B>Disk /dev/$disk status:<font color=#00FF00>".$status[1]."</font></B>";
+ print"<B>Disk $disk status:<font color=#00FF00>".$status[1]."</font></B>";
}
}
my $smart = `/usr/local/bin/smartctrl $disk`;
foreach (@devices){
chomp $_;
- $diskstats = `cat /tmp/hddstats-$_`;
+ my @array = split(/\//,$_);
+ $diskstats = `cat /tmp/hddstats-$array[$#array]`;
chomp $diskstats;
$newdiskstats = `iostat -d -t $_ | tail -2 | head -1 | awk '{ print \$5","\$6}'`;
chomp $newdiskstats;
chomp $status;
if ($debug){print "Device ".$_." IDE Power status:".$status."\n";}
- if (-e "/tmp/hddshutdown-$_" && $status !~/standby/)
+ if (-e "/tmp/hddshutdown-$array[$#array]" && $status !~/standby/)
{
if ($debug){print "Remove wrong standby marking\n";}
- if ( -e "/tmp/hddshutdown-$_" ) { system("unlink /tmp/hddshutdown-$_"); }
+ if ( -e "/tmp/hddshutdown-$array[$#array]" ) { system("unlink /tmp/hddshutdown-$array[$#array]"); }
}
if ($debug){print "Device ".$_." has ".$newdiskstats." write and read Requests, was ".$diskstats." at last run.\n";}
- if ($diskstats eq $newdiskstats && (! -e "/tmp/hddshutdown-$_") )
+ if ($diskstats eq $newdiskstats && (! -e "/tmp/hddshutdown-$array[$#array]") )
{
if ($debug){print "Setting Device ".$_." to standby ... ";}
$status = `hdparm -y /dev/$_ 2>&1`;
chomp $status;
- if ($status !~/failed/)
+ if ($status !~/Invalid/)
{
if ($debug){print "OK\n";}
- system("touch /tmp/hddshutdown-$_");
+ system("touch /tmp/hddshutdown-$array[$#array]");
}
else
{
- if ($debug){print "FAIL\n";}
+ if ($debug){print "FAIL\n";}
}
}
if ($diskstats ne $newdiskstats)
{
if ($debug){print "Device ".$_." is active.\n";}
- if ( -e "/tmp/hddshutdown-$_" ) { system("unlink /tmp/hddshutdown-$_"); }
+ if ( -e "/tmp/hddshutdown-$array[$#array]" ) { system("unlink /tmp/hddshutdown-$array[$#array]"); }
}
- system("echo $newdiskstats > /tmp/hddstats-$_");
+ system("echo $newdiskstats > /tmp/hddstats-$array[$#array]");
}
# end