FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 10:46:53 +00:00
Code Issues Releases Wiki Activity

77_SMAEM: version 4.2.0 from contrib

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21706 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-04-16 20:38:04 +00:00
parent 33cdb15ae8
commit 96bb9af689
1 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
fhem/FHEM/77_SMAEM.pm
View File

@ -30,11 +30,14 @@ package main;
use strict;
use warnings;
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.2.0" => "14.04.2020 delete 'use bignum' ",
"4.1.0" => "17.03.2020 add define option <interface> ",
"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 ",
@ -166,6 +169,9 @@ 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();
@ -185,7 +191,15 @@ sub SMAEM_Define ($$) {
Log3 $hash, 3, "SMAEM $name - Multicast socket opened";
$socket->mcast_add('239.12.255.254');
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');
}
$hash->{TCPDev} = $socket;
$hash->{FD} = $socket->fileno();
@ -194,6 +208,8 @@ 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);
@ -470,6 +486,7 @@ sub SMAEM_DoParse ($) {
my $length;
my ($b,$c,$d,$e); # OBIS Klassen
no warnings qw(overflow portable);
while (substr($hex,$i,8) ne "00000000" && $i<=($dl*2)) {
$b = hex(substr($hex,$i,2));
$c = hex(substr($hex,$i+2,2));
@ -485,6 +502,7 @@ sub SMAEM_DoParse ($) {
$obis->{"1:".$c.".".$d.".".$e} = hex(substr($hex,$i+8,$length));
$i = $i + 8 + $length;
}
use warnings;
Log3 ($name, 5, "SMAEM $name - OBIS metrics identified:");
my @ui; # Array für "unknown items"
@ -1084,9 +1102,10 @@ return;
<a name="SMAEMdefine"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; SMAEM </code><br>
<code>define &lt;name&gt; SMAEM [&lt;interface&gt;]</code><br>
<br>
Defines a SMA Energy Meter (SMAEM), a bidirectional energy meter/counter used in photovoltaics.
The optional parameter <b>interface</b> defines a specific network interface to use, e.g. "eth0".
<br><br>
You need at least one SMAEM on your local subnet or behind a multicast enabled network of routers to receive multicast messages from the SMAEM over the
multicast group 239.12.255.254 on udp/9522. Multicast messages are sent by SMAEM once a second (firmware 1.02.04.R, March 2016).
@ -1109,8 +1128,8 @@ return;
<b>Set </b>
<ul>
<li><b>reset</b> <br>
The automatically generated file "cacheSMAEM" will be deleted. Then the file will be recreated again by the module.
This function is used to reset the device in possible case of error condition, but may be executed at all times.
The automatically created file "cacheSMAEM" is deleted. The file is reinitialized by the module.
This function is used to reset a possible error state of the device, but can also be executed at any time.
</li>
<br>
</ul>
@ -1193,9 +1212,10 @@ return;
<a name="SMAEMdefine"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; SMAEM </code><br>
<code>define &lt;name&gt; SMAEM [&lt;Interface&gt;]</code><br>
<br>
Definiert ein SMA Energy Meter (SMAEM), einen bidirektionalen Stromzähler, der häufig in Photovolatikanlagen der Firma SMA zum Einsatz kommt.
Definiert ein SMA Energy Meter (SMAEM), einen bidirektionalen Stromzähler, der häufig in Photovolatikanlagen der Firma SMA zum Einsatz kommt.
Der optionale Parameter <b>Interface</b> legt das zu benutzende Netzwerk-Interface fest, zum Beispiel "eth0".
<br><br>
Sie brauchen mindest ein SMAEM in Ihrem lokalen Netzwerk oder hinter einen multicastfähigen Netz von Routern, um die Daten des SMAEM über die
Multicastgruppe 239.12.255.254 auf udp/9522 zu empfangen. Die Multicastpakete werden vom SMAEM einmal pro Sekunde ausgesendet (firmware 1.02.04.R, März 2016).
@ -1333,10 +1353,12 @@ return;
"requires": {
"FHEM": 5.00918799,
"perl": 5.014,
"bignum": 0,
"IO::Socket::Multicast": 0,
"Blocking": 0
},
"recommends": {
"IO::Interface": 0,
"FHEM::Meta": 0
},
"suggests": {