From daac2911a14b2006019f901c4d14ed60f6d82761 Mon Sep 17 00:00:00 2001
From: charlie71 <>
Date: Thu, 13 Jul 2017 04:36:34 +0000
Subject: [PATCH] 44_S7: Fix for S5 blockread, fix for Intervall attribute

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@14697 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/44_S7.pm          | 2 +-
 FHEM/44_S7_S5Client.pm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/FHEM/44_S7.pm b/FHEM/44_S7.pm
index 0e863c165..edd619a27 100644
--- a/FHEM/44_S7.pm
+++ b/FHEM/44_S7.pm
@@ -320,7 +320,7 @@ sub S7_Attr(@) {
 
 				Log3( $name, 3, "$name S7_Attr: setting MaxReadLength= $aVal" );
 			}
-		} elsif ($aName eq "MaxMessageLength") {
+		} elsif ($aName eq "Intervall") {
 			if ( $aVal >= 1 ) {
 
 				$hash->{Interval} = $aVal;
diff --git a/FHEM/44_S7_S5Client.pm b/FHEM/44_S7_S5Client.pm
index c06eab2d5..107965a4a 100644
--- a/FHEM/44_S7_S5Client.pm
+++ b/FHEM/44_S7_S5Client.pm
@@ -56,6 +56,7 @@ sub new {
 	$self->{__davet121003} = [ 0x12, &DLE, &ETX ];
 	
 	$self->{PDULength} = &MaxPduSize;
+	$self->{MaxReadLength} = ($self->{PDULength} - 18);
 		
 
 	#my @__davet1006 = ( &DLE, &ACK );
@@ -837,4 +838,4 @@ sub S5WriteS5Bytes($$$$$$) {
 
 =end html_DE
 
-=cut
\ No newline at end of file
+=cut