38 lines
1.2 KiB
Perl
Executable file
38 lines
1.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# much of this stolen from /etc/munin/plugins/hddtemp_smartctl
|
|
|
|
$ENV{PATH}="$ENV{PATH}:/usr/sbin:/sbin";
|
|
|
|
foreach my $drive (@ARGV) {
|
|
my $sense=`sdparm --command=sense $drive 2>/dev/null`;
|
|
if (!($sense =~ /Standby/)) {
|
|
my $output=`smartctl -A -i --nocheck=standby $drive`;
|
|
|
|
my $model="";
|
|
if ($output =~ /(Model Number|Device Model):\s*(.*)/) {
|
|
$model="$2: ";
|
|
}
|
|
if ($output =~ /Current Drive Temperature:\s*(\d+)/) {
|
|
print "$drive: $model$1°C\n";
|
|
} elsif ($output =~ /^(194 Temperature_(Celsius|Internal).*)/m) {
|
|
my @F = split /\s+/, $1;
|
|
print "$drive: $model$F[9]°C\n";
|
|
} elsif ($output =~ /^(231 Temperature_Celsius.*)/m) {
|
|
my @F = split ' ', $1;
|
|
print "$drive: $model$F[9]°C\n";
|
|
} elsif ($output =~ /^(190 (Airflow_Temperature_Cel|Temperature_Case).*)/m) {
|
|
my @F = split ' ', $1;
|
|
print "$drive: $model$F[9]°C\n";
|
|
} elsif ($output =~ /Temperature:\s*(\d+) Celsius/) {
|
|
print "$drive: $model$1°C\n";
|
|
} else {
|
|
print "$drive: Smart not available\n";
|
|
}
|
|
} else {
|
|
print "$drive: Sleeping. Temperature not available\n";
|
|
};
|
|
}
|