#!/usr/bin/perl -w

my $what = $ARGV[0];

unless (defined $what){
    usage();
    exit(1);
}

open SENSORS, ('</etc/zabbix/sensors.conf') ||
    die "Couldn't open /etc/zabbix/sensors.conf: $!\n";

my $ret = 'ZBX_NOTSUPPORTED';

foreach (<SENSORS>){
    next unless (/^$what(\s+)?=(\s+)?(.*)!(\-?\d+)!(\-?\d+)(!(\w+))?$/);
    my $cmd = $3;
    $ret = `$cmd`;
}
print $ret;
exit(0);

sub usage {
    print <<"EOF";

Usage: $0 sensor_name [high|low]

EOF
}