Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
monitors:diskstat.pl [2019/02/12 16:36] – [Installation] wnelis | monitors:diskstat.pl [2019/02/16 17:53] (current) – [diskstat.pl] wnelis | ||
---|---|---|---|
Line 5: | Line 5: | ||
^ Requirements | Perl, Linux | | ^ Requirements | Perl, Linux | | ||
^ Download | None | | ^ Download | None | | ||
- | ^ Last Update | 2012-04-02 | | + | ^ Last Update | 2019-02-12 | |
===== Description ===== | ===== Description ===== | ||
Line 16: | Line 16: | ||
===== Installation ===== | ===== Installation ===== | ||
- | At the client side, script diskstat.pl and module diskstat.pm need to be installed and one configuration file needs to be modified. At the server side, two scripts need to be installed and four configuration files of Xymon need to be modified. | + | At the client side, script diskstat.pl and module diskstat.pm need to be installed and one configuration file needs to be modified. At the server side, one script needs to be installed and four configuration files of Xymon need to be modified. |
=== Client side === | === Client side === | ||
Line 33: | Line 33: | ||
=== Server side === | === Server side === | ||
- | At the Xymon server, it must be configured that this test uses the Devmon format. Therefore add the following | + | At the Xymon server, it must be configured that this test uses the Devmon format. Therefore add the following |
< | < | ||
TEST2RRD+=", | TEST2RRD+=", | ||
+ | GRAPHS+=", | ||
</ | </ | ||
Line 153: | Line 154: | ||
</ | </ | ||
- | Define the diskstat graphs to be multi-graphs, which should show only one disk per graph, | + | Define the diskstat graphs to be multi-graphs with the following modification in ~xymon/ |
< | < | ||
CGI_SVC_OPTS=" | CGI_SVC_OPTS=" | ||
- | </ | ||
- | and the following modifications in ~xymon/ | ||
- | < | ||
- | TEST2RRD=" | ||
- | GRAPHS=" | ||
</ | </ | ||
Line 176: | Line 172: | ||
# | # | ||
# This script determines some elementary disk statistics, which are (also) | # This script determines some elementary disk statistics, which are (also) | ||
- | # accessible via CLI command `iostat`. Pseudo file / | + | # accessible via CLI command `iostat`. Pseudo file / |
- | # as primary source of information. | + | # primary source of information. |
# | # | ||
# This script does not have any memory by design. It only reports the values | # This script does not have any memory by design. It only reports the values | ||
- | # found in / | + | # found in / |
- | # a more appropiate | + | # more appropriate |
- | # the previous pass is of interest. These differences are computed by RRD, | + | # previous pass is of interest. These differences are computed by RRD, prior to |
- | # prior to saving the values. | + | # saving the values. |
# | # | ||
# Written by W.J.M. Nelis, wim.nelis@nlr.nl, | # Written by W.J.M. Nelis, wim.nelis@nlr.nl, | ||
# | # | ||
use strict ; | use strict ; | ||
- | use POSIX qw/ strftime / ; # Format time | + | use Time:: |
- | use lib "/path/to/ | + | use lib "/usr/lib/ |
use diskstat ; # Import list of devices to check | use diskstat ; # Import list of devices to check | ||
Line 198: | Line 194: | ||
# Define the parameters to reach the Xymon server. | # Define the parameters to reach the Xymon server. | ||
# | # | ||
- | my $XyDisp= $ENV{XYMONSERVERHOSTNAME} ; # Name of monitor server | + | my $XyDisp= $ENV{XYMSRV} ; # Name of monitor server |
my $XySend= $ENV{XYMON} ; # Monitor interface program | my $XySend= $ENV{XYMON} ; # Monitor interface program | ||
my $FmtDate= " | my $FmtDate= " | ||
| | ||
+ | my $XyTest= ' | ||
# | # | ||
my $Server= `hostname` ; chomp $Server ; | my $Server= `hostname` ; chomp $Server ; | ||
- | my $Now= strftime( $FmtDate, | + | my $Now= localtime ; # Timestamp of tests |
+ | $Now= $Now-> | ||
# | # | ||
my $InpFil= '/ | my $InpFil= '/ | ||
- | my $Test= ' | ||
# | # | ||
- | # Define the name of each dataset and the unit conversion factor. | + | # Define the name of each data-set, |
- | # of the datasets are defined to be of type DERIVED, the value passed to | + | # Note that RRD requires that the values |
- | # RRD must be an integer number. Thus the times expressed in [ms] are *not* | + | # however floating point numbers are used, the RRD type must be set to |
- | # converted to [s]. | + | # ' |
# | # | ||
my @DS= ( # Define parameters of the datasets | my @DS= ( # Define parameters of the datasets | ||
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
- | [ ' | + | [ ' |
) ; | ) ; | ||
Line 237: | Line 234: | ||
# | # | ||
- | # Function ReadStatistics retrieves the disk usage statistics for the | + | # Function ReadStatistics retrieves the disk usage statistics for the disks and |
- | # disks and partitions mentioned in %Disk. | + | # partitions mentioned in %Disk. |
# | # | ||
sub ReadStatistics() { | sub ReadStatistics() { | ||
Line 255: | Line 252: | ||
chomp ; | chomp ; | ||
@Field= split ; # Extract all fields | @Field= split ; # Extract all fields | ||
- | next unless | + | next unless |
if ( @Field != 14 ) { | if ( @Field != 14 ) { | ||
$Result.= "& | $Result.= "& | ||
Line 274: | Line 271: | ||
$Stats{$Disk}[0]= $Disks{$Disk}{Name} ; | $Stats{$Disk}[0]= $Disks{$Disk}{Name} ; | ||
$Result.= "& | $Result.= "& | ||
- | $Color= " | + | $Color |
} # of foreach | } # of foreach | ||
# | # | ||
Line 285: | Line 282: | ||
# | # | ||
- | # Function BuildRrdData | + | # Function BuildRrdData |
- | # patterns, which are recognised by Xymon and ultimately | + | # Xymon to write the values to an RRD. The names of the mount-points |
- | # of the mountpoints | + | # to match the Xymon conventions. |
# | # | ||
sub BuildRrdData() { | sub BuildRrdData() { | ||
- | my $Disk ; # Loop control variable | ||
my $Rra ; # Part of name of RRA | my $Rra ; # Part of name of RRA | ||
my $Val ; # Value of one statistic | my $Val ; # Value of one statistic | ||
Line 296: | Line 292: | ||
$Result.= "< | $Result.= "< | ||
- | $Result.= "< | + | $Result.= "< |
- | foreach $Disk ( sort keys %Stats ) { | + | foreach my $ds ( @DS ) { |
+ | next if $$ds[2] eq '' | ||
+ | $Result.= " | ||
+ | } | ||
+ | chop $Result ; # Remove trailing space | ||
+ | $Result.= " | ||
+ | |||
+ | foreach | ||
$ar= $Stats{$Disk} ; # Ref to array | $ar= $Stats{$Disk} ; # Ref to array | ||
$Rra= $$ar[0] ; # Mountpoint of disk | $Rra= $$ar[0] ; # Mountpoint of disk | ||
Line 303: | Line 306: | ||
$Rra=~ s/\//,/g ; # '/' | $Rra=~ s/\//,/g ; # '/' | ||
+ | $Result.= "$Rra " ; | ||
for ( my $i= 1 ; $i<= 11 ; $i++ ) { | for ( my $i= 1 ; $i<= 11 ; $i++ ) { | ||
$Val= $Stats{$Disk}[$i] ; | $Val= $Stats{$Disk}[$i] ; | ||
if ( $Val eq ' | if ( $Val eq ' | ||
- | $Result.= | + | $Result.= |
} else { | } else { | ||
$Val= $Val * $DS[$i][1] ; # Unit conversion | $Val= $Val * $DS[$i][1] ; # Unit conversion | ||
- | $Result.= sprintf( "%s/%s : %d\n", $Rra, $DS[$i][0], $Val ) ; | + | if ( $DS[$i][2] eq ' |
+ | | ||
+ | } else { | ||
+ | | ||
+ | } # of else | ||
} # of else | } # of else | ||
} # of for | } # of for | ||
+ | chop $Result ; # Remove trailing colon | ||
+ | $Result.= " | ||
} # of foreach | } # of foreach | ||
- | $Result.= ' | + | $Result.= ' |
} # of BuildRrdData | } # of BuildRrdData | ||
Line 322: | Line 332: | ||
# | # | ||
if ( scalar(keys %Disks) ) { | if ( scalar(keys %Disks) ) { | ||
- | ReadStatistics ; # Read disk statistics | + | ReadStatistics() ; # Read disk statistics |
- | BuildRrdData ; # Format measurements for Xymon / RRD | + | BuildRrdData() ; # Format measurements for Xymon / RRD |
} else { | } else { | ||
$Result= "There are no disks defined to monitor\n" | $Result= "There are no disks defined to monitor\n" | ||
} # of else | } # of else | ||
- | $Result= " | + | $Result= " |
"Disk and partition statistics\n\n" | "Disk and partition statistics\n\n" | ||
$Result . " | $Result . " | ||
Line 360: | Line 370: | ||
===== To do ===== | ===== To do ===== | ||
- | An option is to rework this script to send a trends-message to Xymon in stead of a status message. | + | An option is to rework this script to send a trends-message to Xymon in stead of a status message. |
===== Changelog ===== | ===== Changelog ===== | ||
Line 366: | Line 376: | ||
* **2012-04-02** | * **2012-04-02** | ||
* Initial release | * Initial release | ||
- | * **2019-2-12** | + | * **2019-02-12** |
* Use Devmon format to pass the statistics to xymon / RRD in stead of the NCV format. | * Use Devmon format to pass the statistics to xymon / RRD in stead of the NCV format. | ||