mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-09-19 09:03:20 +00:00
Added support of HDD with new FreeBSD driver ada(4)
This commit is contained in:
Dennis Yusupoff
Steve Schnepp
parent
91e80a8574
commit
0ea6b7fa9c
1 changed files with 195 additions and 124 deletions
|
|
@ -1,125 +1,145 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/local/bin/perl -w
|
||||||
#
|
# -*- perl -*-
|
||||||
# Plugin to monitor harddrive temperatures through SMART.
|
|
||||||
#
|
|
||||||
# client-conf.d/-options:
|
|
||||||
#
|
|
||||||
# smartctl -- path to smartctl executable
|
|
||||||
# drives -- List drives to monitor. E.g. "env.drives hda hdc".
|
|
||||||
# type_$dev -- device type for one drive, e.g. "env.type_sda 3ware,0"
|
|
||||||
# args_$dev -- additional arguments to smartctl for one drive,
|
|
||||||
# e.g. "env.args_hda -v 194,10xCelsius"
|
|
||||||
# Use this to make the plugin use the --all or -a option
|
|
||||||
# if your disk will not return it's temperature when
|
|
||||||
# only the -A option is used.
|
|
||||||
#
|
|
||||||
# Note for users of RAID controllers (smartmontools currently only
|
|
||||||
# supports 3ware): you can specify the drives attached to your RAID
|
|
||||||
# controller(s) as raiddev_num (e.g. sda_0). Then you must specify the
|
|
||||||
# type like this: type_sda_0 3ware,0.
|
|
||||||
#
|
|
||||||
# $Log$
|
|
||||||
# Revision 1.1.2.5 2005/03/03 10:22:25 lupe
|
|
||||||
# Add feature to specify additional arguments to smartctl
|
|
||||||
#
|
|
||||||
# Revision 1.1.2.4 2005/02/17 10:59:33 lupe
|
|
||||||
# Support more than one drive on RAID controllers. Explain how to configure
|
|
||||||
# them.
|
|
||||||
#
|
|
||||||
# Revision 1.1.2.3 2005/01/29 22:14:36 jimmyo
|
|
||||||
# Make the plugin check all rdsks.
|
|
||||||
#
|
|
||||||
# Revision 1.1.2.2 2005/01/26 09:34:37 jimmyo
|
|
||||||
# Added license note.
|
|
||||||
#
|
|
||||||
# Revision 1.1.2.1 2005/01/25 21:00:05 jimmyo
|
|
||||||
# Added plugin generic/hddtemp_smartctl, made by Lupe Christoph. Made it the default hddtemp plugin.
|
|
||||||
#
|
|
||||||
# Revision 1.1 2004/11/10 16:11:27 jimmyo
|
|
||||||
# Added new plugin linux/hddtemp_smartctl, made by Peter Gervai (SF#1032727).
|
|
||||||
#
|
|
||||||
# Revision 1.0 2004/09/22
|
|
||||||
# New plugin: Peter Gervai <grin(*)grin.hu>
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#%# family=auto
|
|
||||||
#%# capabilities=autoconf
|
|
||||||
#
|
|
||||||
# Copyright (c) 2005, Lutz Peter Christoph
|
|
||||||
# All rights reserved.
|
|
||||||
#
|
|
||||||
# Redistribution and use in source and binary forms, with or without
|
|
||||||
# modification, are permitted provided that the following conditions
|
|
||||||
# are met:
|
|
||||||
#
|
|
||||||
# * Redistributions of source code must retain the above copyright
|
|
||||||
# notice, this list of conditions and the following disclaimer.
|
|
||||||
#
|
|
||||||
# * Redistributions in binary form must reproduce the above copyright
|
|
||||||
# notice, this list of conditions and the following disclaimer in
|
|
||||||
# the documentation and/or other materials provided with the
|
|
||||||
# distribution.
|
|
||||||
#
|
|
||||||
# * The name and aliases of Lutz Peter Christoph ("Lupe Christoph",
|
|
||||||
# "Lutz Christoph") may not be used to endorse or promote products
|
|
||||||
# derived from this software without specific prior written
|
|
||||||
# permission.
|
|
||||||
#
|
|
||||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
||||||
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
||||||
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
|
||||||
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
|
||||||
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
||||||
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
|
||||||
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
||||||
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
||||||
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
||||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
||||||
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
||||||
|
|
||||||
|
=head1 NAME
|
||||||
|
|
||||||
|
hddtemp_smartctl - Plugin to monitor harddrive temperatures through
|
||||||
|
SMART
|
||||||
|
|
||||||
|
=head1 CONFIGURATION
|
||||||
|
|
||||||
|
This plugin needs to run as root or some other user that has access to
|
||||||
|
the harddrive devices.
|
||||||
|
|
||||||
|
The following environment variables are used
|
||||||
|
|
||||||
|
smartctl - path to smartctl executable
|
||||||
|
drives - List drives to monitor. E.g. "env.drives hda hdc".
|
||||||
|
type_$dev - device type for one drive, e.g. "env.type_sda 3ware,0"
|
||||||
|
or more typically "env.type_sda ata" if sda is a SATA disk.
|
||||||
|
args_$dev - additional arguments to smartctl for one drive,
|
||||||
|
e.g. "env.args_hda -v 194,10xCelsius". Use this to make
|
||||||
|
the plugin use the --all or -a option if your disk will
|
||||||
|
not return its temperature when only the -A option is
|
||||||
|
used.
|
||||||
|
dev_$dev - monitoring device for one drive, e.g. twe0
|
||||||
|
|
||||||
|
If the "smartctl" enviroment variable is not set the plugin will
|
||||||
|
search your $PATH, /usr/bin, /usr/sbin, /usr/local/bin and
|
||||||
|
/usr/local/sbin for a file called "smartctl", and use that.
|
||||||
|
|
||||||
|
If the "drives" environment variable is not set, the plugin will
|
||||||
|
attempt to search for drives to probe.
|
||||||
|
|
||||||
|
=head1 MAGIC MARKERS
|
||||||
|
|
||||||
|
#%# family=auto
|
||||||
|
#%# capabilities=autoconf
|
||||||
|
|
||||||
|
=head1 AUTHOR
|
||||||
|
|
||||||
|
Copyright (c) 2005, Lutz Peter Christoph
|
||||||
|
All rights reserved.
|
||||||
|
|
||||||
|
=head1 LICENSE
|
||||||
|
|
||||||
|
Redistribution and use in source and binary forms, with or without
|
||||||
|
modification, are permitted provided that the following conditions
|
||||||
|
are met:
|
||||||
|
|
||||||
|
* Redistributions of source code must retain the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer.
|
||||||
|
|
||||||
|
* Redistributions in binary form must reproduce the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer in
|
||||||
|
the documentation and/or other materials provided with the
|
||||||
|
distribution.
|
||||||
|
|
||||||
|
* The name and aliases of Lutz Peter Christoph ("Lupe Christoph",
|
||||||
|
"Lutz Christoph") may not be used to endorse or promote products
|
||||||
|
derived from this software without specific prior written
|
||||||
|
permission.
|
||||||
|
|
||||||
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||||
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||||
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||||
|
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||||
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||||
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||||
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||||
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
|
|
||||||
|
=head1 NOTES
|
||||||
|
|
||||||
|
Note for users of RAID controllers (smartmontools currently only
|
||||||
|
supports 3ware): you can specify the drives attached to your RAID
|
||||||
|
controller(s) as raiddev_num (e.g. sda_0). Then you must specify the
|
||||||
|
type like this: type_sda_0 3ware,0.
|
||||||
|
|
||||||
|
Recent versions of the kernel driver use a separate major device
|
||||||
|
number for monitoring purposes, like /dev/twe<n> or /dev/twa<n>. This
|
||||||
|
can be put in the e.g. dev_sda environment variable, to allow the user
|
||||||
|
to keep sda as the name of the disk.
|
||||||
|
|
||||||
|
To avoid spinning up sleeping disks smartctl will use the --nocheck
|
||||||
|
parameter. If this parameter isn't supported by your version of
|
||||||
|
smartctl then hdparm will be used. Note that hdparm isn't available
|
||||||
|
on all platforms.
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
my $smartctl = exists $ENV{smartctl} ? $ENV{smartctl} : undef;
|
my $DEBUG = $ENV{'MUNIN_DEBUG'} || 0;
|
||||||
|
|
||||||
|
my $smartctl = exists $ENV{smartctl} ? $ENV{smartctl} : '';
|
||||||
|
|
||||||
# If the envvar is not set, look for smartctl
|
# If the envvar is not set, look for smartctl
|
||||||
# first, try $PATH
|
if (!$smartctl) {
|
||||||
$smartctl = `which smartctl` unless $smartctl;
|
# Still not found? Check obvious places
|
||||||
chomp $smartctl;
|
my @dirs = split(':',$ENV{PATH});
|
||||||
$smartctl = undef unless -x $smartctl;
|
push (@dirs, qw(/usr/bin /usr/sbin /usr/local/bin /usr/local/sbin) );
|
||||||
|
|
||||||
# Still not found? Check obvious places
|
until ($smartctl or @dirs == 0) {
|
||||||
my @dirs = qw(/usr/bin /usr/sbin /usr/local/bin /usr/local/sbin);
|
my $dir = shift @dirs;
|
||||||
until ($smartctl or @dirs == 0) {
|
my $path = $dir.'/smartctl';
|
||||||
my $dir = shift @dirs;
|
$smartctl = $path if -x $path;
|
||||||
my $path = $dir.'/smartctl';
|
}
|
||||||
$smartctl = $path if -x $path;
|
} elsif (! -x $smartctl) {
|
||||||
|
# If it is set, verify it
|
||||||
|
warn "Predefined smartctl ($smartctl) is not a executable\n";
|
||||||
|
undef $smartctl;
|
||||||
}
|
}
|
||||||
|
|
||||||
$ENV{LANG} = 'C';
|
# Check version of smartctl to determine --nocheck capabilities
|
||||||
$ENV{LC_ALL} = 'C';
|
my $use_nocheck = 0;
|
||||||
|
if ($smartctl and `$smartctl --version` =~ / version (\d+\.\d+) /i) {
|
||||||
|
$use_nocheck = $1 >= 5.37;
|
||||||
|
warn "[DEBUG] Smartctl supports --nocheck\n" if $DEBUG;
|
||||||
|
}
|
||||||
|
|
||||||
|
# hdparm is used as a fallback
|
||||||
|
my $hdparm = `which hdparm 2>/dev/null`;
|
||||||
|
chomp $hdparm;
|
||||||
|
|
||||||
my @drives;
|
my @drives;
|
||||||
|
|
||||||
# Try to get a default set of drives
|
# Try to get a default set of drives
|
||||||
if ($^O eq 'darwin') {
|
if ($^O eq 'linux') {
|
||||||
opendir(DEV, '/dev');
|
# On Linux, we know how to enumerate ide drives. SCSI is not as easy
|
||||||
@drives = grep /^disk[0-9]+$/, readdir DEV;
|
if (-d '/proc/ide') {
|
||||||
closedir(DEV);
|
opendir(IDE, '/proc/ide');
|
||||||
} elsif ($^O eq 'freebsd') {
|
@drives = grep /hd[a-z]/, readdir IDE;
|
||||||
opendir(DEV, '/dev');
|
|
||||||
@drives = grep /^ad|da[0-9]+$/, readdir DEV;
|
|
||||||
closedir(DEV);
|
|
||||||
} elsif ($^O eq 'linux') {
|
|
||||||
# On Linux, we know how to enumerate ide drives.
|
|
||||||
# SCSI is not as easy
|
|
||||||
if (-d '/dev') {
|
|
||||||
opendir(IDE, '/dev');
|
|
||||||
@drives = grep /^sd[a-z]$/, readdir IDE;
|
|
||||||
closedir(IDE);
|
closedir(IDE);
|
||||||
}
|
}
|
||||||
} elsif (($^O eq 'netbsd') or ($^O eq 'openbsd')) {
|
# "SCSI disks" could be both SCSI or SATA - we can't know which
|
||||||
|
# without probing them.
|
||||||
|
} elsif ($^O eq 'freebsd') {
|
||||||
opendir(DEV, '/dev');
|
opendir(DEV, '/dev');
|
||||||
@drives = grep /^wd|sd[0-9]+c$/, readdir DEV;
|
@drives = grep /^ada*[0-9]+$/, readdir DEV;
|
||||||
closedir(DEV);
|
closedir(DEV);
|
||||||
} elsif ($^O eq 'solaris') {
|
} elsif ($^O eq 'solaris') {
|
||||||
@drives = map { s@.*/@@ ; $_ } glob '/dev/rdsk/c*t*d*s2';
|
@drives = map { s@.*/@@ ; $_ } glob '/dev/rdsk/c*t*d*s2';
|
||||||
|
|
@ -130,24 +150,32 @@ if ($^O eq 'darwin') {
|
||||||
# Sort list of drives
|
# Sort list of drives
|
||||||
@drives = sort @drives;
|
@drives = sort @drives;
|
||||||
|
|
||||||
|
warn "[DEBUG] Drives: ",join(', ',@drives),"\n" if $DEBUG;
|
||||||
|
|
||||||
if (defined $ARGV[0]) {
|
if (defined $ARGV[0]) {
|
||||||
if ($ARGV[0] eq 'autoconf') {
|
if ($ARGV[0] eq 'autoconf') {
|
||||||
if ($smartctl and -x $smartctl) {
|
if ($smartctl and -x $smartctl) {
|
||||||
if (@drives) {
|
if (@drives) {
|
||||||
print "yes\n";
|
my $cmd = command_for_drive_device($drives[0],
|
||||||
|
device_for_drive($drives[0]));
|
||||||
|
if (`$cmd` =~ /Temperature/) {
|
||||||
|
print "yes\n";
|
||||||
|
} else {
|
||||||
|
print "no (first drive not supported, configure the plugin)\n";
|
||||||
|
}
|
||||||
exit 0;
|
exit 0;
|
||||||
} else {
|
} else {
|
||||||
print "no (no drives known)\n";
|
print "no (no drives known)\n";
|
||||||
exit 1;
|
exit 0;
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
print "no (smartctl not found)\n";
|
print "no (smartctl not found)\n";
|
||||||
exit 1;
|
exit 0;
|
||||||
}
|
}
|
||||||
} elsif ($ARGV[0] eq 'config') {
|
} elsif ($ARGV[0] eq 'config') {
|
||||||
print "graph_title HDD temperature\n";
|
print "graph_title HDD temperature\n";
|
||||||
print "graph_args --base 1000 -l 0\n";
|
print "graph_args --base 1000 -l 0\n";
|
||||||
print "graph_vlabel temp in <EFBFBD>C\n";
|
print "graph_vlabel temp in °C\n";
|
||||||
print "graph_category sensors\n";
|
print "graph_category sensors\n";
|
||||||
print "graph_info This graph shows the temperature in degrees Celsius of the hard drives in the machine.\n";
|
print "graph_info This graph shows the temperature in degrees Celsius of the hard drives in the machine.\n";
|
||||||
print "$_.label $_\n" foreach @drives;
|
print "$_.label $_\n" foreach @drives;
|
||||||
|
|
@ -155,22 +183,65 @@ if (defined $ARGV[0]) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
foreach (@drives) {
|
foreach my $drive (@drives) {
|
||||||
my $dev;
|
warn "[DEBUG] Processing $drive\n" if $DEBUG;
|
||||||
$dev = $_ =~ /(.*)(?:_\d+)/ ? $1 : $_;
|
my $fulldev = device_for_drive($drive);
|
||||||
my $cmd = $smartctl.' -A ';
|
|
||||||
$cmd .= $ENV{'args_'.$_}.' ' if exists $ENV{'args_'.$_};
|
# Fall back to using hdparm for detecting disks in stand-by only if nocheck
|
||||||
$cmd .= '-d '.$ENV{'type_'.$_}.' ' if exists $ENV{'type_'.$_};
|
# isn't supported (hdparm isn't available on all platforms).
|
||||||
if ($^O eq 'solaris') {
|
if (!$use_nocheck && $hdparm && $fulldev =~ /\/dev\/[sh]d?/) {
|
||||||
$cmd .= "/dev/rdsk/$dev";
|
if (`$hdparm -C $fulldev 2>/dev/null` =~ /standby/) {
|
||||||
} else {
|
warn "[DEBUG] Drive $fulldev is in standby mode, not checking\n"
|
||||||
$cmd .= "/dev/$dev";
|
if $DEBUG;
|
||||||
|
next;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
my $cmd = command_for_drive_device($drive, $fulldev, $use_nocheck);
|
||||||
|
warn "[DEBUG] Command for $drive is % $cmd %\n" if $DEBUG;
|
||||||
|
|
||||||
my $output = `$cmd`;
|
my $output = `$cmd`;
|
||||||
|
if ($? ne 0) {
|
||||||
|
print "$drive.value U\n";
|
||||||
|
print "$drive.extinfo Command $cmd on drive $drive failed: $?. The plugin needs to have read permission on all monitored devices.\n";
|
||||||
|
warn "[ERROR] Command $cmd on drive $drive failed: $?. The plugin needs to have read permission on all monitored devices.\n";
|
||||||
|
next;
|
||||||
|
}
|
||||||
if ($output =~ /Current Drive Temperature:\s*(\d+)/) {
|
if ($output =~ /Current Drive Temperature:\s*(\d+)/) {
|
||||||
print "$_.value $1\n";
|
print "$drive.value $1\n";
|
||||||
} elsif ($output =~ /^(194 Temperature_Celsius.*)/m) {
|
} elsif ($output =~ /^(194 Temperature_Celsius.*)/m) {
|
||||||
|
my @F = split /\s+/, $1;
|
||||||
|
print "$drive.value $F[9]\n";
|
||||||
|
} elsif ($output =~ /^(231 Temperature_Celsius.*)/m) {
|
||||||
my @F = split ' ', $1;
|
my @F = split ' ', $1;
|
||||||
print "$_.value $F[9]\n";
|
print "$drive.value $F[9]\n";
|
||||||
|
} else {
|
||||||
|
print "$drive.value U\n";
|
||||||
|
print "$drive.extinfo Temperature not detected in smartctl output\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub device_for_drive {
|
||||||
|
my ($drive) = @_;
|
||||||
|
|
||||||
|
my $dev = $drive =~ /(.*)(?:_\d+)/ ? $1 : $drive;
|
||||||
|
|
||||||
|
my $fulldev = '/dev/';
|
||||||
|
$fulldev .= 'rdsk/' if $^O eq 'solaris';
|
||||||
|
$fulldev .= exists $ENV{'dev_'.$drive} ? $ENV{'dev_'.$drive} : $dev;
|
||||||
|
|
||||||
|
return $fulldev;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub command_for_drive_device {
|
||||||
|
my ($drive, $fulldev, $use_nocheck) = @_;
|
||||||
|
|
||||||
|
my $cmd = $smartctl.' -A ';
|
||||||
|
$cmd .= '--nocheck=standby ' if $use_nocheck;
|
||||||
|
$cmd .= $ENV{'args_'.$drive}.' ' if exists $ENV{'args_'.$drive};
|
||||||
|
$cmd .= '-d '.$ENV{'type_'.$drive}.' ' if exists $ENV{'type_'.$drive};
|
||||||
|
$cmd .= $fulldev;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue