Hi,
here is a small patch for some Remote Management command result parsing
Thanks and Happy New Year
Petr
diff --git a/fhem/FHEM/10_EnOcean.pm b/fhem/FHEM/10_EnOcean.pm
index 6f0889a66..58b79ce99 100755
--- a/fhem/FHEM/10_EnOcean.pm
+++ b/fhem/FHEM/10_EnOcean.pm
@@ -12955,7 +12955,7 @@ sub EnOcean_Parse($$)
$data = $2;
while (length($data) > 0) {
$data =~ m/^(..)(........)(..)(..)(..)(..)(.*)$/;
- push @event, "3:remoteLinkTableDesc" . $direction . "$1:S2:S3-S4-$5:$6";
+ push @event, "3:remoteLinkTableDesc" . $direction . "$1:$2:$3-$4-$5:$6";
$data = $7;
}
$remoteLastStatusReturnCode = '00';
@@ -13070,7 +13070,7 @@ sub EnOcean_Parse($$)
$valueLen = hex($2) * 2;
$data = $3;
$data =~ m/^(.{$valueLen})(.*)$/;
- push @event, "3:remoteDevCfg$idx:S1";
+ push @event, "3:remoteDevCfg$idx:$1";
$data = $2;
}
$remoteLastStatusReturnCode = '00';
@@ -13093,7 +13093,7 @@ sub EnOcean_Parse($$)
$valueLen = hex($2) * 2;
$data = $3;
$data =~ m/^(.{$valueLen})(.*)$/;
- push @event, "3:remoteLinkCfg$direction$linkTableIdx:$idx:S1";
+ push @event, "3:remoteLinkCfg$direction$linkTableIdx:$idx:$1";
$data = $2;
}
$remoteLastStatusReturnCode = '00';
Thank you for the comment. I will change the program lines.