FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 12:18:46 +00:00
Code Issues Releases Wiki Activity

CUL_MAX: Answer request for TimeInformation

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2292 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2012-12-09 14:59:59 +00:00
parent c39bd123c5
commit f682a13443
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
fhem/FHEM/14_CUL_MAX.pm
View File

@ -15,6 +15,7 @@ sub CUL_MAX_SendDeviceCmd($$);
sub CUL_MAX_Send(@); sub CUL_MAX_Send(@);
sub CUL_MAX_BroadcastTime($); sub CUL_MAX_BroadcastTime($);
sub CUL_MAX_Set($@); sub CUL_MAX_Set($@);
sub CUL_MAX_SendTimeInformation(@);
sub CUL_MAX_Send(@); sub CUL_MAX_Send(@);
# Todo for full MAXLAN replacement: # Todo for full MAXLAN replacement:
@ -155,8 +156,10 @@ CUL_MAX_Parse($$)
} }
} elsif($msgType eq "TimeInformation") { } elsif($msgType eq "TimeInformation") {
if($len == 10) { if($dst eq $shash->{addr}) {
Log 5, "Want TimeInformation?"; #This is a request for TimeInformation send to us
Log 5, "Got request for TimeInformation, sending it";
CUL_MAX_SendTimeInformation($shash, $src);
} else { } else {
my ($f1,$f2,$f3,$f4,$f5) = unpack("CCCCC",pack("H*",$payload)); my ($f1,$f2,$f3,$f4,$f5) = unpack("CCCCC",pack("H*",$payload));
#For all fields but the month I'm quite sure #For all fields but the month I'm quite sure
@ -308,21 +311,36 @@ CUL_MAX_SendDeviceCmd($$)
} }
sub sub
CUL_MAX_BroadcastTime($) CUL_MAX_GetTimeInformationPayload()
{ {
my $hash = shift @_;
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = gmtime(time()); my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = gmtime(time());
$mon += 1; #make month 1-based $mon += 1; #make month 1-based
#month encoding is just guessed #month encoding is just guessed
#also $hour-1 is not so clear, maybe there is some timezone involved (maybe we should send gmtime?) #also $hour-1 is not so clear, maybe there is some timezone involved (maybe we should send gmtime?)
#but where do we send the timezone? or is scheduled data/until in GMT? #but where do we send the timezone? or is scheduled data/until in GMT?
#perls localtime gives years since 1900, and we need years since 2000 #perls localtime gives years since 1900, and we need years since 2000
my $payload = unpack("H*",pack("CCCCC", $year - 100, $day, $hour, $min | (($mon & 0x0C) << 4), $sec | (($mon & 0x03) << 6))); return unpack("H*",pack("CCCCC", $year - 100, $day, $hour, $min | (($mon & 0x0C) << 4), $sec | (($mon & 0x03) << 6)));
}
sub
CUL_MAX_SendTimeInformation(@)
{
my ($hash,$addr,$payload) = @_;
$payload = CUL_MAX_GetTimeInformationPayload() if(!defined($payload));
Log 5, "broadcast time to $addr";
CUL_MAX_Send($hash, "TimeInformation", $addr, $payload, "00000011");
}
sub
CUL_MAX_BroadcastTime($)
{
my $hash = shift;
my $payload = CUL_MAX_GetTimeInformationPayload();
Log 5, "CUL_MAX_BroadcastTime: payload $payload"; Log 5, "CUL_MAX_BroadcastTime: payload $payload";
while (my ($addr, $dhash) = each (%{$modules{MAX}{defptr}})) { foreach my $addr (keys %{$modules{MAX}{defptr}}) {
my $dhash = $modules{MAX}{defptr}{$addr};
if(exists($dhash->{IODev}) && $dhash->{IODev} == $hash) { if(exists($dhash->{IODev}) && $dhash->{IODev} == $hash) {
Log 5, "broadcast time to $addr"; CUL_MAX_SendTimeInformation($hash, $addr, $payload);
CUL_MAX_Send($hash, "TimeInformation", $addr, $payload, "00000011");
} }
} }
InternalTimer(gettimeofday()+$timeBroadcastInterval, "CUL_MAX_BroadcastTime", $hash, 0); InternalTimer(gettimeofday()+$timeBroadcastInterval, "CUL_MAX_BroadcastTime", $hash, 0);