diff --git a/fhem/FHEM/77_SMAEM.pm b/fhem/FHEM/77_SMAEM.pm index 78653c9de..69eba7d4a 100644 --- a/fhem/FHEM/77_SMAEM.pm +++ b/fhem/FHEM/77_SMAEM.pm @@ -29,15 +29,12 @@ package main; use strict; use warnings; -use bignum; use IO::Socket::Multicast; -eval "use IO::Interface;1" or my $IOInterfaceAbsent = 1; use Blocking; eval "use FHEM::Meta;1" or my $modMetaAbsent = 1; # Versions History by DS_Starter our %SMAEM_vNotesIntern = ( - "4.1.0" => "17.03.2020 add define option ", "4.0.1" => "10.02.2020 fix perl warning Forum: https://forum.fhem.de/index.php/topic,51569.msg1021988.html#msg1021988", "4.0.0" => "16.12.2019 change module to OBIS metric resolution, change Readings Lx_THD to Lx_Strom, FirmwareVersion to SoftwareVersion ". "new attribute \"noCoprocess\", many internal code changes ", @@ -169,9 +166,6 @@ sub SMAEM_Define ($$) { my ($success, $gridin_sum, $gridout_sum); my $socket; - my @a = split("[ \t][ \t]*", $def); - my $if = $a[2] ? $a[2] : ""; - $hash->{INTERVAL} = 60; $hash->{HELPER}{FAULTEDCYCLES} = 0; $hash->{HELPER}{STARTTIME} = time(); @@ -191,15 +185,7 @@ sub SMAEM_Define ($$) { Log3 $hash, 3, "SMAEM $name - Multicast socket opened"; - if($a[2]) { - eval { $socket->mcast_add('239.12.255.254',$if); }; - if ($@) { - return "Socket error in define ('239.12.255.254',$if): $@"; - } - } else { - $socket->mcast_add('239.12.255.254'); - } - + $socket->mcast_add('239.12.255.254'); $hash->{TCPDev} = $socket; $hash->{FD} = $socket->fileno(); @@ -208,8 +194,6 @@ sub SMAEM_Define ($$) { $hash->{HELPER}{MODMETAABSENT} = 1 if($modMetaAbsent); # Modul Meta.pm nicht vorhanden - Log3($name, 3, "$name - The perl module \"IO::Interface\" is missing. You should install it.") if($IOInterfaceAbsent); - # Versionsinformationen setzen SMAEM_setVersionInfo($hash); @@ -1100,10 +1084,9 @@ return; Define