Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

bugfix: warnings

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8998 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2015-07-28 08:54:05 +00:00
parent 85e9038ee5
commit 731b763b0b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/42_SYSMON.pm
View File

@ -38,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.5"; my $VERSION = "2.2.6";
use constant { use constant {
PERL_VERSION => "perl_version", PERL_VERSION => "perl_version",
@ -2672,7 +2672,7 @@ sub SYSMON_getNetworkInfo ($$$) {
#--- DEBUG --- #--- DEBUG ---
# check if network available # check if network available
if (index($dataThroughput[0], 'Fehler') < 0 && index($dataThroughput[0], 'error') < 0) if (defined($dataThroughput[0]) && index($dataThroughput[0], 'Fehler') < 0 && index($dataThroughput[0], 'error') < 0)
{ {
#Log 3, "SYSMON>>>>>>>>>>>>>>>>> OK >>>".$dataThroughput[0]; #Log 3, "SYSMON>>>>>>>>>>>>>>>>> OK >>>".$dataThroughput[0];
my $dataThroughput = undef; my $dataThroughput = undef;
@ -2727,12 +2727,12 @@ sub SYSMON_getNetworkInfo ($$$) {
# if(-e "/sys/class/net/$nName/statistics/rx_bytes" && -e "/sys/class/net/$nName/statistics/tx_bytes") { # if(-e "/sys/class/net/$nName/statistics/rx_bytes" && -e "/sys/class/net/$nName/statistics/tx_bytes") {
if(SYSMON_isNetStatClass($hash, $nName)) { if(SYSMON_isNetStatClass($hash, $nName)) {
$rxRaw = SYSMON_execute($hash, "cat /sys/class/net/$nName/statistics/rx_bytes"); $rxRaw = SYSMON_execute($hash, "cat /sys/class/net/$nName/statistics/rx_bytes");
$rxRaw = -1 unless defined $rxRaw; $rxRaw = -1 unless (defined($rxRaw) && looks_like_number($rxRaw));
$txRaw = SYSMON_execute($hash, "cat /sys/class/net/$nName/statistics/tx_bytes"); $txRaw = SYSMON_execute($hash, "cat /sys/class/net/$nName/statistics/tx_bytes");
$txRaw = -1 unless defined $txRaw; $txRaw = -1 unless (defined($txRaw) && looks_like_number($txRaw));
} }
if($rxRaw<0||$txRaw<0) { if($rxRaw<0||$txRaw<0) {
if(defined $dataThroughput) { if(defined $dataThroughput) {
# remove RX bytes or TX bytes from string # remove RX bytes or TX bytes from string
$dataThroughput =~ s/RX bytes://; $dataThroughput =~ s/RX bytes://;