contrib-munin/plugins/sensors/voltcraft_tcm220_

#!/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