Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ceph-osd-stats.py	1.38 KB	-rwxr-xr-x
ceph-status.py	15.58 KB	-rwxr-xr-x
ceph-status.sh	5.69 KB	-rwxr-xr-x
ceph_health_report.py	388 B	-rwxr-xr-x
corosync.pl	774 B	-rwxr-xr-x
corosync_standby.sh	190 B	-rwxr-xr-x
discover_lsi_raid.pl	12.27 KB	-rwxr-xr-x
discover_temp_sensor.pl	1.42 KB	-rwxr-xr-x
haproxy_discovery.sh	1.93 KB	-rwxr-xr-x
haproxy_stats.sh	6.38 KB	-rwxr-xr-x
ip_discovery.sh	429 B	-rwxr-xr-x
kafka_underreplicated.sh	120 B	-rwxr-xr-x
php-fpm.discover_pools.pl	460 B	-rwxr-xr-x
smartctl-disks-discovery.pl	11.78 KB	-rwxr-xr-x
time_discovery.sh	235 B	-rwxr-xr-x
zbx_docker_inspect.sh	232 B	-rwxr-xr-x
zbx_vxfld.py	255 B	-rwxr-xr-x
zbxproxyfind.py	491 B	-rwxr-xr-x
zext_ssl_expiry.sh	546 B	-rwxr-xr-x
zookeeper_check.sh	163 B	-rwxr-xr-x

Code Editor : discover_temp_sensor.pl

#!/usr/bin/perl

# TODO add getops - pass sensor name to get temp ?

# TODO see about replacing this by having zabbix connect to IPMI directly.

use strict;
use warnings;
use Getopt::Long;

my $query;
GetOptions(
	"s|sensor=s" => \$query,
);

sub exit_empty {
  print '{ "data": [] }';
  exit;
}

my $ipmi = "/usr/bin/ipmitool";
# Check whether this machine has ipmi or not.
(-e "/dev/ipmi0") || exit_empty();
(-e $ipmi) || exit_empty();

my %sensors;

my $command = $ipmi . " sdr elist full 2>/dev/null | grep degrees";
my $output = qx($command);

# Gather all the data
my @lines = split /\n/, $output; # Splits output on new lines
for my $line (@lines) {
	$line =~ s/\h+/ /g; # Removes extra white spaces
	# Expected line format example:
	# Outlet_TEMP      | 42h | ok  | 66.2 | 52 degrees C
	my @line_fields = split / \Q| /, $line; # Fields are separated by ' | '
	my $sensor_name = $line_fields[0];
	my $temperature = $line_fields[4];
	$temperature =~ s/\s+.*$//; # strip off ' degrees C'
	$sensors{$sensor_name} = $temperature;
}

# If a sensor name was passed in, return its temperature and quit.
if ($query) {
	print $sensors{$query};
	exit;
}

# json-ify the sensor names for zabbix discovery
my $json = qq({ "data": [\n);
for my $sensor (keys %sensors) {
	$json .= qq(    { "{#TEMPSENSOR}":"$sensor"},\n);
}
# trim the last ',' off, json doesn't like trailing commas
$json =~ s/,\n$/\n/;
# close up shop
$json .= qq(]}\n);

print $json;

exit;

${this.title}

Code Editor : discover_temp_sensor.pl