From 17d4823439e024471d4c9a5ed975caed9ade47e8 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 14 Mar 2015 15:50:41 +0000
Subject: [PATCH] 10_cul_hm: lowbat gasmeter 2nd

git-svn-id: https://svn.fhem.de/fhem/trunk@8209 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index e9b7afffc..fdc4081a5 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -1976,11 +1976,10 @@ sub CUL_HM_Parse($$) {#########################################################
     }
   }
   elsif($st eq "powerMeter") {#################################################
-    if (($mTp eq "02" && $p =~ m/^01/) ||  # handle Ack_Status
-        ($mTp eq "10" && $p =~ m/^06/)) {  #    or Info_Status message here
+    if (($mTyp eq "0201") ||  # handle Ack_Status
+        ($mTyp eq "1006")) {  #    or Info_Status message here
 
-      my ($subType,$chn,$val,$err) = ($1,hex($2),hex($3)/2,hex($4))
-                          if($p =~ m/^(..)(..)(..)(..)/);
+      my ($chn,$val,$err) = (hex($mI[1]),hex($mI[2])/2,hex($mI[3]));
       $chn = sprintf("%02X",$chn&0x3f);
       my $chId = $src.$chn;
       $shash = $modules{CUL_HM}{defptr}{$chId}
@@ -1992,6 +1991,7 @@ sub CUL_HM_Parse($$) {#########################################################
       push @evtEt,[$shash,1,"deviceMsg:$vs$target"] if($chn ne "00");
       push @evtEt,[$shash,1,"state:$vs"];
       push @evtEt,[$shash,1,"timedOn:".(($err&0x40)?"running":"off")];
+      push @evtEt,[$devH ,1,"battery:".(($err&0x80)?"low"    :"ok" )];
     }
     elsif ($mTp eq "5E" ||$mTp eq "5F" ) {  #    POWER_EVENT_CYCLIC
       $shash = $modules{CUL_HM}{defptr}{$src."02"}