Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

00_HMLAN:correct time zone handling. Should have no impact to the behavior or timing

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18041 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2018-12-23 18:17:01 +00:00
parent d30cff53d5
commit c0bc72da51
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
FHEM/00_HMLAN.pm
View File

@ -927,7 +927,7 @@ sub HMLAN_DoInit($) {##########################################################
HMLAN_assignIDs($hash); HMLAN_assignIDs($hash);
HMLAN_writeAesKey($name); HMLAN_writeAesKey($name);
my $s2000 = sprintf("%02X", HMLAN_secSince2000()); 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; $hash->{helper}{setTime} = int(gettimeofday())>>15;
delete $hash->{helper}{ref}; delete $hash->{helper}{ref};
@ -996,7 +996,7 @@ sub HMLAN_KeepAlive($) {#######################################################
if( $rht != $hash->{helper}{setTime}){# reset HMLAN watch about each 10h if( $rht != $hash->{helper}{setTime}){# reset HMLAN watch about each 10h
$hash->{helper}{setTime} = $rht; $hash->{helper}{setTime} = $rht;
my $s2000 = sprintf("%02X", HMLAN_secSince2000()); 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"); 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]) $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... # timezone and daylight saving...
- 946684800 # seconds between 01.01.2000, 00:00 and THE EPOCH (1970) - 946684800 # seconds between 01.01.2000, 00:00 and THE EPOCH (1970)
- 7200; # HM Special - 3600; # time zone
return $t; return $t;
} }
sub HMLAN_qResp($$$) {#response-waiting queue################################## sub HMLAN_qResp($$$) {#response-waiting queue##################################