2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 12:46:03 +00:00

fix: when cputemp unavailable

git-svn-id: https://svn.fhem.de/fhem/trunk@8856 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2015-06-28 19:34:09 +00:00
parent f1aaa01463
commit eda2bc76ba

View File

@ -29,6 +29,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
use Scalar::Util qw(looks_like_number);
use Blocking; use Blocking;
@ -37,7 +38,7 @@ use Data::Dumper;
my $missingModulRemote; my $missingModulRemote;
eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet "; eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
my $VERSION = "2.2.2"; my $VERSION = "2.2.4";
use constant { use constant {
PERL_VERSION => "perl_version", PERL_VERSION => "perl_version",
@ -1755,6 +1756,8 @@ SYSMON_getCPUTemp_BBB($$) {
if($hash->{helper}->{excludes}{'cputemp'}) {return $map;} if($hash->{helper}->{excludes}{'cputemp'}) {return $map;}
my $val = SYSMON_execute($hash, "cat /sys/class/hwmon/hwmon0/device/temp1_input 2>&1"); my $val = SYSMON_execute($hash, "cat /sys/class/hwmon/hwmon0/device/temp1_input 2>&1");
if(!looks_like_number($val)) {return $map;}
$val = int($val); $val = int($val);
my $val_txt = sprintf("%.2f", $val/1000); my $val_txt = sprintf("%.2f", $val/1000);
$map->{+CPU_TEMP}="$val_txt"; $map->{+CPU_TEMP}="$val_txt";