mirror of
https://github.com/munin-monitoring/contrib.git
synced 2018-11-08 00:59:34 +01:00
154 lines
6.2 KiB
Perl
154 lines
6.2 KiB
Perl
#!/usr/bin/perl -w
|
|
##########################################################################################################
|
|
#
|
|
# Munin plugin to monitor values reported by a Voltcraft TCM 220 or 320 temperature swicth module
|
|
# connected to a serial port. A cable needs to be soldered to the module's dedicated data output pads:
|
|
# pad no. 9 (GND) to pin no. 5 of the serial port, pad no. 17 (DATA_OUT) to pin no. 2 of the serial port
|
|
# and pad no. 18 (CLOCK) to pin no. 3 of the serial port. For more details, check out the documentation
|
|
# that came with your Voltcraft TCM 220/320 temperature swicth module.
|
|
#
|
|
# In order to use this plugin, copy it to the munin's plugin directory (eg. /usr/share/munin/plugins)
|
|
# under the name "voltcraft_tcm220_". Don't change this filename! Follow these steps:
|
|
#
|
|
# 1. Symlink it to munin's configured plugins directory (eg. /etc/munin/plugins) with names suggesting
|
|
# the locations of the modules you wish to monitor, eg: "voltcraft_tcm220_serverroom1".
|
|
#
|
|
# Important: make sure to use the same names in your symlinks and other config places!
|
|
#
|
|
# 2. In /etc/munin/plugin-conf.d/munin-node add the following, to be able to contact the modules via
|
|
# serial ports (obviously replacing these with your own data):
|
|
#
|
|
# [voltcraft_tcm220_serverroom1]
|
|
# user root # Need to run the plugin as root, in order to access the RS232 port
|
|
# group root
|
|
# env.Port /dev/ttyS0 # Serial port where the module is connected to
|
|
# env.Location Server Room 1 # Friendly name for the module location, printed on the graph
|
|
# env.CH1name Ceiling # Friendly name for the CH1 sensor location
|
|
# env.CH1crit 35 # Critical temperature value which when reached, Munin should alert
|
|
# env.CH2name Floor # Friendly name for the CH2 sensor location
|
|
# env.CH2crit 35 # Critical temperature value which when reached, Munin should alert
|
|
#
|
|
# 3. Restart the munin node by 'service munin-node restart'.
|
|
#
|
|
# If all went well, after 5 minutes or so you should have tne new module's graphs listed on the Web
|
|
# Interface of Munin.
|
|
#
|
|
# Note: the plugin waits maximum 11 seconds for the module to report the current temperature values to
|
|
# the serial port. If no value is reported, or the serial cable is unplugged, it returns Undefined to
|
|
# Munin. According to the documentation, the module can be configured to report values every 2 seconds
|
|
# instead the 10 seconds default - this can be used to speed up the data acquisition process, however
|
|
# it can decrease battery life (with default values, two AAA alkaline batteries last cca 2 years).
|
|
#
|
|
# Tested & working with munin v.2.0.19-2 on Ubuntu LTS 12.04.4
|
|
# Created in 2014 by robi
|
|
# v0.2 - added checksum validation
|
|
# v0.1 - initial version
|
|
#########################################################################################################
|
|
## Magic Markers
|
|
#%# family=manual
|
|
#########################################################################################################
|
|
use diagnostics;
|
|
use strict;
|
|
use Device::SerialPort;
|
|
use warnings;
|
|
|
|
#########################################################################################################
|
|
## Receive environmentals
|
|
my $Portty = $ENV{'Port'};
|
|
my $Location = $ENV{'Location'};
|
|
my $CH1name = $ENV{'CH1name'};
|
|
my $CH1crit = $ENV{'CH1crit'};
|
|
my $CH2name = $ENV{'CH2name'};
|
|
my $CH2crit = $ENV{'CH2crit'};
|
|
|
|
##########################################################################################################
|
|
## Determine scriptname
|
|
my $Modname = undef;
|
|
$0 =~ /voltcraft_tcm220_(.+)*$/;
|
|
unless ($Modname = $1) {
|
|
print "Sorry, you did not symlink correctly the script! Please symlink as eg. voltcraft_tcm220_serverroom1\n";
|
|
exit 2;
|
|
}
|
|
|
|
##########################################################################################################
|
|
## Configuration
|
|
if(exists $ARGV[0] and $ARGV[0] eq "config") {
|
|
print "graph_args --base 1000\n";
|
|
print "graph_title " . $Location . " temperatures\n";
|
|
print "graph_vlabel degrees Celsius\n";
|
|
print "graph_category sensors\n";
|
|
print "graph_scale no\n";
|
|
print "graph_info Measured temperature values in " . $Location . " by a Voltcraft TCM 220 temperature switch module.\n";
|
|
print "ch1.label " . $CH1name . "\n";
|
|
print "ch1.critical ". $CH1crit . "\n";
|
|
print "ch1.info " . $CH1name . " temperature, connected to CH1.\n";
|
|
print "ch2.label " . $CH2name . "\n";
|
|
print "ch2.critical ". $CH2crit . "\n";
|
|
print "ch2.info " . $CH2name . " temperature, connected to CH2.\n";
|
|
print "\n";
|
|
exit;
|
|
}
|
|
|
|
##########################################################################################################
|
|
## Initiate serial connection
|
|
my $port = Device::SerialPort->new($Portty);
|
|
$port->baudrate(9600);
|
|
$port->parity("none");
|
|
$port->handshake("none");
|
|
$port->databits(8);
|
|
$port->stopbits(1);
|
|
$port->read_char_time(0);
|
|
$port->read_const_time(20);
|
|
|
|
##########################################################################################################
|
|
## Execution
|
|
my $response = "";
|
|
my $resptime = (time() + 10);
|
|
|
|
while (1) {
|
|
my $curtime = time();
|
|
my ($count, $data) = $port->read(255);
|
|
if ($count > 0) {
|
|
$response .= $data;
|
|
last if ($data // "");
|
|
}
|
|
last if ($curtime > $resptime);
|
|
}
|
|
|
|
my $ch1temp = "U";
|
|
my $ch2temp = "U";
|
|
|
|
if ($response // "") {
|
|
my $hex = unpack 'H*', $response;
|
|
# print "$hex\n"; #$hex should be something like "abc102999babc2017677" for +29.9 and +17.6
|
|
|
|
my $ch1sum = substr($hex, 4, 1) + substr($hex, 5, 1) + substr($hex, 6, 1) + substr($hex, 7, 1);
|
|
my $ch1sul = substr(sprintf("%02d", $ch1sum), 1, 1);
|
|
|
|
my $ch2sum = substr($hex, 14, 1) + substr($hex, 15, 1) + substr($hex, 16, 1) + substr($hex, 17, 1);
|
|
my $ch2sul = substr(sprintf("%02d", $ch2sum), 1, 1);
|
|
|
|
if (substr($hex, 9, 1) == $ch1sul) {
|
|
my $ch1z = "";
|
|
if (substr($hex, 4, 1) == "5") {
|
|
$ch1z ="-";
|
|
}
|
|
$ch1temp = $ch1z . substr($hex, 5, 2) . "." . substr($hex, 7, 1);
|
|
}
|
|
|
|
if (substr($hex, 19, 1) == $ch2sul) {
|
|
my $ch2z = "";
|
|
if (substr($hex, 14, 1) == "5") {
|
|
$ch2z ="-";
|
|
}
|
|
$ch2temp = $ch2z . substr($hex, 15, 2) . "." . substr($hex, 17, 1);
|
|
}
|
|
}
|
|
|
|
print "ch1.value $ch1temp\n";
|
|
print "ch2.value $ch2temp\n";
|
|
print "\n";
|
|
|
|
##########################################################################################################
|
|
## End
|