FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 07:56:03 +00:00
Code Issues Releases Wiki Activity

TC correct timer in HMLAN

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3033 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-04-04 18:25:21 +00:00
parent aa268e171e
commit e84ab09433
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/00_HMLAN.pm
View File

@ -250,7 +250,7 @@ sub HMLAN_Parse($$) {##########################################################
my $srcId = (length($mFld[5])>11)?$src:"lastRec"; my $srcId = (length($mFld[5])>11)?$src:"lastRec";
$hash->{helper}{nextSend}{$srcId} = gettimeofday() + 0.100; $hash->{helper}{nextSend}{$srcId} = gettimeofday() + 0.100;
if ($debug){ if ($debug){
Log $ll5, 'HMLAN_Parse: '.$name.' S:'.$mFld[0] Log $ll5, 'HMLAN_Pars1: '.$name.' S:'.$mFld[0]
.(($mFld[0] =~ m/^E/)?' ':'') .(($mFld[0] =~ m/^E/)?' ':'')
.' stat:'.$mFld[1] .' stat:'.$mFld[1]
.' t:'.$mFld[2].' d:'.$mFld[3] .' t:'.$mFld[2].' d:'.$mFld[3]
@ -446,7 +446,7 @@ sub HMLAN_secSince2000() {#####################################################
my $t = time(); my $t = time();
my @l = localtime($t); my @l = localtime($t);
my @g = gmtime($t); my @g = gmtime($t);
$t += 60*(($l[2]-$g[2] + ((($l[5]<<9)|$l[7]) <=> (($g[5]<<9)|$g[7])) * 24 + $l[8]) * 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 - 7200; # HM Special

2
fhem/FHEM/10_CUL_HM.pm
View File

@ -3341,9 +3341,9 @@ sub CUL_HM_decodeTime16($) {####################
sub CUL_HM_secSince2000() {##################### sub CUL_HM_secSince2000() {#####################
# Calculate the local time in seconds from 2000. # Calculate the local time in seconds from 2000.
my $t = time(); my $t = time();
my @l = localtime($t); my @l = localtime($t);
my @g = gmtime($t); my @g = gmtime($t);
# my $t2 = $t + 60*(($l[2]-$g[2] + ((($l[5]<<9)|$l[7]) <=> (($g[5]<<9)|$g[7])) * 24 + $l[8]) * 60 + $l[1]-$g[1])
my $t2 = $t + 60*(($l[2]-$g[2] + ((($l[5]<<9)|$l[7]) <=> (($g[5]<<9)|$g[7])) * 24) * 60 + $l[1]-$g[1]) my $t2 = $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)