From 06f95c7aeb3f15dbc7a8e64a7cb1e5547a31964e Mon Sep 17 00:00:00 2001 From: hexenmeister Date: Sun, 12 Oct 2014 01:01:38 +0000 Subject: [PATCH] bugfix: dsl info git-svn-id: https://svn.fhem.de/fhem/trunk@6745 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/42_SYSMON.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm index 0d9be06b3..27b921c1c 100644 --- a/fhem/FHEM/42_SYSMON.pm +++ b/fhem/FHEM/42_SYSMON.pm @@ -30,7 +30,7 @@ package main; use strict; use warnings; -my $VERSION = "1.9.4.0"; +my $VERSION = "1.9.4.1"; use constant { PERL_VERSION => "perl_version", @@ -2134,7 +2134,7 @@ sub SYSMON_getFBStreemRate($$) { my $us_rate = SYSMON_execute($hash, "ctlmgr_ctl r sar status/dsl_us_rate"); if($ds_rate ne "" && $us_rate ne "") { - $map->{+FB_DSL_RATE}="down: ".$ds_rate." KBit/s, up: ".$us_rate." KBit/s"; + $map->{+FB_DSL_RATE}="down: ".int($ds_rate)." KBit/s, up: ".int($us_rate)." KBit/s"; } return $map; @@ -2178,11 +2178,11 @@ sub SYSMON_getFBCRCFEC($$) { if($ds_crc ne "") { # FB_DSL_CRC_15 - $map->{+FB_DSL_CRC_15}="down: ".$ds_crc." up: ".$us_crc; + $map->{+FB_DSL_CRC_15}="down: ".int($ds_crc)." up: ".int($us_crc); } if($ds_fec ne "") { # FB_DSL_FEC_15 - $map->{+FB_DSL_FEC_15}="down: ".$ds_fec." up: ".$us_fec; + $map->{+FB_DSL_FEC_15}="down: ".int($ds_fec)." up: ".int($us_fec); } return $map;