diff --git a/FHEM/00_HMLAN.pm b/FHEM/00_HMLAN.pm index c4ecd61fc..a4ca7f988 100755 --- a/FHEM/00_HMLAN.pm +++ b/FHEM/00_HMLAN.pm @@ -927,7 +927,7 @@ sub HMLAN_DoInit($) {########################################################## HMLAN_assignIDs($hash); HMLAN_writeAesKey($name); my $s2000 = sprintf("%02X", HMLAN_secSince2000()); - HMLAN_SimpleWrite($hash, "T$s2000,04,00,00000000"); + HMLAN_SimpleWrite($hash, "T$s2000,02,00,00000000"); $hash->{helper}{setTime} = int(gettimeofday())>>15; delete $hash->{helper}{ref}; @@ -996,7 +996,7 @@ sub HMLAN_KeepAlive($) {####################################################### if( $rht != $hash->{helper}{setTime}){# reset HMLAN watch about each 10h $hash->{helper}{setTime} = $rht; my $s2000 = sprintf("%02X", HMLAN_secSince2000()); - HMLAN_SimpleWrite($hash, "T$s2000,04,00,00000000"); + HMLAN_SimpleWrite($hash, "T$s2000,02,00,00000000"); } HMLAN_SimpleWrite($hash, "K"); @@ -1049,7 +1049,7 @@ sub HMLAN_secSince2000() {##################################################### $t += 60*(($l[2]-$g[2] + ((($l[5]<<9)|$l[7]) <=> (($g[5]<<9)|$g[7])) * 24) * 60 + $l[1]-$g[1]) # timezone and daylight saving... - 946684800 # seconds between 01.01.2000, 00:00 and THE EPOCH (1970) - - 7200; # HM Special + - 3600; # time zone return $t; } sub HMLAN_qResp($$$) {#response-waiting queue##################################