###################################################### # InterTechno Switch Manager as FHM-Module # # (c) Olaf Droegehorn / DHS-Computertechnik GmbH # (c) Björn Hempel # # Published under GNU GPL License # # $Id$ # ###################################################### package main; use strict; use warnings; use SetExtensions; my %codes = ( "XMIToff" => "off", "XMITon" => "on", # Set to previous dim value (before switching it off) "00" => "off", "01" => "dim06%", "02" => "dim12%", "03" => "dim18%", "04" => "dim25%", "05" => "dim31%", "06" => "dim37%", "07" => "dim43%", "08" => "dim50%", "09" => "dim56%", "0a" => "dim62%", "0b" => "dim68%", "0c" => "dim75%", "0d" => "dim81%", "0e" => "dim87%", "0f" => "dim93%", "10" => "dim100%", "XMITdimup" => "dimup", "XMITdimdown" => "dimdown", "99" => "on-till", ); my %it_c2b; my $it_defrepetition = 6; ## Default number of InterTechno Repetitions my %models = ( itremote => 'sender', itswitch => 'simple', itdimmer => 'dimmer', ev1527 => 'ev1527', ); my %bintotristate=( "00" => "0", "01" => "F", "10" => "D", "11" => "1" ); my %bintotristateV3=( "10" => "1", "01" => "0", "00" => "D" ); my %bintotristateHE=( "10" => "1", "01" => "0", "11" => "2", "00" => "D" ); my %ev_action = ( "on" => "0011", "off" => "0000" ); sub bin2dec { unpack("N", pack("B32", substr("0" x 32 . shift, -32))); } sub IT_Initialize($) { my ($hash) = @_; foreach my $k (keys %codes) { $it_c2b{$codes{$k}} = $k; } $hash->{Match} = "^i......"; $hash->{SetFn} = "IT_Set"; #$hash->{StateFn} = "IT_SetState"; $hash->{DefFn} = "IT_Define"; $hash->{UndefFn} = "IT_Undef"; $hash->{ParseFn} = "IT_Parse"; $hash->{AttrFn} = "IT_Attr"; $hash->{AttrList} = "IODev ITfrequency ITrepetition ITclock switch_rfmode:1,0 do_not_notify:1,0 ignore:0,1 protocol:V1,V3,HE_EU,SBC_FreeTec,HE800 unit group dummy:1,0 " . "$readingFnAttributes " . "model:".join(",", sort keys %models); $hash->{AutoCreate}= { "IT.*" => { GPLOT => "", FILTER => "%NAME", autocreateThreshold => "2:30"} }; } ##################################### sub IT_SetState($$$$) { my ($hash, $tim, $vt, $val) = @_; return undef; $val = $1 if($val =~ m/^(.*) \d+$/); return "Undefined value $val" if(!defined($it_c2b{$val})); } ############################# sub IT_Do_On_Till($@) { my ($hash, $name, @a) = @_; return "Timespec (HH:MM[:SS]) needed for the on-till command" if(@a != 3); my ($err, $hr, $min, $sec, $fn) = GetTimeSpec($a[2]); return $err if($err); my @lt = localtime; my $hms_till = sprintf("%02d:%02d:%02d", $hr, $min, $sec); my $hms_now = sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0]); if($hms_now ge $hms_till) { Log 4, "on-till: won't switch as now ($hms_now) is later than $hms_till"; return ""; } my @b = ("on"); IT_Set($hash, $name, @b); my $tname = $hash->{NAME} . "_till"; CommandDelete(undef, $tname) if($defs{$tname}); CommandDefine(undef, "$tname at $hms_till set $name off"); } ################################### sub IT_Set($@) { my ($hash, $name, @a) = @_; my $ret = undef; my $na = int(@a); my $message; return "no set value specified" if($na < 1); # return, if this is a dummy device return "Dummydevice $hash->{NAME}: will not set data" if(IsDummy($hash->{NAME})); my $list = ""; $list .= "off:noArg on:noArg " if( AttrVal($name, "model", "") ne "itremote" ); my $c = $it_c2b{$a[0]}; if ($hash->{READINGS}{protocol}{VAL} eq "V3") { if($na > 1 && $a[0] eq "dim") { $a[0] = ($a[1] eq "0" ? "off" : sprintf("dim%02d%%",$a[1]) ); splice @a, 1, 1; $na = int(@a); } elsif ($na == 2 && ($a[0] =~ /dim/)) { return "Bad time spec" if($na == 2 && $a[1] !~ m/^\d*\.?\d+$/); my $val; #$a[0] = ($a[1] eq "0" ? "off" : sprintf("dim%02d%%",$a[1]) ); #splice @a, 1, 1; #$na = int(@a); if($na == 2) { # Timed command. $c = sprintf("%02X", (hex($c) | 0x20)); # Set the extension bit ######################## # Calculating the time. LOOP: for(my $i = 0; $i <= 12; $i++) { for(my $j = 0; $j <= 15; $j++) { $val = (2**$i)*$j*0.25; if($val >= $a[1]) { if($val != $a[1]) { Log3 $name, 2, "$name: changing timeout to $val from $a[1]"; } $c .= sprintf("%x%x", $i, $j); last LOOP; } } } Log3 $hash ,2, "$name: NOT Implemented now!"; return "Specified timeout too large, max is 15360" if(length($c) == 2); } } $list = (join(" ", sort keys %it_c2b) . " dim:slider,0,6.25,100") if( AttrVal($name, "model", "") eq "itdimmer" ); } elsif ($hash->{READINGS}{protocol}{VAL} eq "EV1527") { # EV1527 #Log3 $hash, 2, "Set ignored for EV1527 (1527X) devices"; return ""; } else { $list .= "dimup:noArg dimdown:noArg on-till" if( AttrVal($name, "model", "") eq "itdimmer" ); } if ($hash->{READINGS}{protocol}{VAL} eq "HE800") { $list .= " learn_on_codes:noArg learn_off_codes:noArg"; } return SetExtensions($hash, $list, $name, @a) if( $a[0] eq "?" ); return SetExtensions($hash, $list, $name, @a) if( !grep( $_ =~ /^\Q$a[0]\E($|:)/, split( ' ', $list ) ) ); return IT_Do_On_Till($hash, $name, @a) if($a[0] eq "on-till"); return "Bad time spec" if($na == 2 && $a[1] !~ m/^\d*\.?\d+$/); my $io = $hash->{IODev}; my $v = $name ." ". join(" ", @a); ## Log that we are going to switch InterTechno Log3 $hash, 2, "$io->{NAME} IT_set: $v"; my (undef, $cmd) = split(" ", $v, 2); # Not interested in the name... # Look for all devices with the same code, and set state, timestamp my $code = "$hash->{XMIT}"; foreach my $n (keys %{ $modules{IT}{defptr}{$code} }) { my $lh = $modules{IT}{defptr}{$code}{$n}; $lh->{STATE} = $cmd; if ($hash->{READINGS}{protocol}{VAL} eq "HE800") { if ($cmd eq "learn_on_codes") { $lh->{"learn"} = 'ON'; readingsSingleUpdate($lh, "init_count", 0, 1); } elsif ($cmd eq "learn_off_codes") { $lh->{"learn"} = 'OFF'; readingsSingleUpdate($lh, "init_count", 0, 1); } else { my $count = $hash->{"count"}; $count = $count + 1; if ($count > 3) { $count = 0; } $hash->{"count"} = $count; } } if ($hash->{READINGS}{protocol}{VAL} eq "V3") { if( AttrVal($name, "model", "") eq "itdimmer" ) { if ($cmd eq "on") { readingsSingleUpdate($lh, "dim", "100",1); readingsSingleUpdate($lh, "state", "on",1); } elsif ($cmd eq "off") { readingsSingleUpdate($lh, "dim", "0",1); readingsSingleUpdate($lh, "state", "off",1); } else { if ($cmd eq "dim100%") { $lh->{STATE} = "on"; readingsSingleUpdate($lh, "state", "on",1); } elsif ($cmd eq "dim00%") { $lh->{STATE} = "off"; readingsSingleUpdate($lh, "state", "off",1); } else { readingsSingleUpdate($lh, "state", $cmd,1); } } } else { readingsSingleUpdate($lh, "state", $cmd,1); } } else { readingsSingleUpdate($lh, "state", $cmd,1); if( AttrVal($name, "model", "") eq "itdimmer" ) { readingsSingleUpdate($lh,"dim",$cmd,1); } } } Log3 $hash, 5, "$io->{NAME} IT_set: Type=" . $io->{TYPE} . ' Protocol=' . $hash->{READINGS}{protocol}{VAL}; if ($io->{TYPE} ne "SIGNALduino") { # das IODev ist kein SIGNALduino ## Do we need to change RFMode to SlowRF?? if(defined($attr{$name}) && defined($attr{$name}{"switch_rfmode"})) { if ($attr{$name}{"switch_rfmode"} eq "1") { # do we need to change RFMode of IODev my $ret = CallFn($io->{NAME}, "AttrFn", "set", ($io->{NAME}, "rfmode", "SlowRF")); } } ## Do we need to change ITClock ?? } if(defined($attr{$name}) && defined($attr{$name}{"ITclock"})) { #$message = "isc".$attr{$name}{"ITclock"}; #CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", $message)); $message = $attr{$name}{"ITclock"}; CallFn($io->{NAME}, "SetFn", $io, ($hash->{NAME}, "ITClock", $message)); Log3 $hash, 2, "IT set ITclock: $message for $io->{NAME}"; } ## Do we need to change ITrepetition ?? if(defined($attr{$name}) && defined($attr{$name}{"ITrepetition"})) { $message = "isr".$attr{$name}{"ITrepetition"}; CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", $message)); Log3 $hash,4, "IT set ITrepetition: $message for $io->{NAME}"; } ## Do we need to change ITfrequency ?? if(defined($attr{$name}) && defined($attr{$name}{"ITfrequency"})) { my $f = $attr{$name}{"ITfrequency"}/26*65536; my $f2 = sprintf("%02x", $f / 65536); my $f1 = sprintf("%02x", int($f % 65536) / 256); my $f0 = sprintf("%02x", $f % 256); my $arg = sprintf("%.3f", (hex($f2)*65536+hex($f1)*256+hex($f0))/65536*26); Log3 $hash, 2, "Setting ITfrequency (0D,0E,0F) to $f2 $f1 $f0 = $arg MHz"; CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", "if$f2$f1$f0")); } } if ($hash->{READINGS}{protocol}{VAL} eq "V3") { if( AttrVal($name, "model", "") eq "itdimmer" ) { my @itvalues = split(' ', $v); if ($itvalues[1] eq "dimup") { $a[0] = "dim100%"; readingsSingleUpdate($hash, "dim", 100, 1); $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}."D".$hash->{READINGS}{unit}{VAL}."1111"); } elsif ($itvalues[1] eq "dimdown") { $a[0] = "dim06%"; readingsSingleUpdate($hash, "dim", 6, 1); $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}."D".$hash->{READINGS}{unit}{VAL}."0000"); } elsif ($itvalues[1] =~ /dim/) { my $dperc = substr($itvalues[1], 3, -1); my $dec = (15*$dperc)/100; my $bin = sprintf ("%b",$dec); while (length($bin) < 4) { # suffix 0 $bin = '0'.$bin; } readingsSingleUpdate($hash, "dim", $dperc, 1); if ($dperc == 0) { $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}."0".$hash->{READINGS}{unit}{VAL}); } else { $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}."D".$hash->{READINGS}{unit}{VAL}.$bin); } } else { my $stateVal; if ($a[0] eq "off") { $stateVal = "0"; } else { $stateVal = $hash->{$c}; } $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}.$stateVal.$hash->{READINGS}{unit}{VAL}); } } else { $message = "is".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-5).$hash->{READINGS}{group}{VAL}.$hash->{$c}.$hash->{READINGS}{unit}{VAL}); } } elsif ($hash->{READINGS}{protocol}{VAL} eq "HE_EU") { my $masterVal = "11"; if ($hash->{READINGS}{mode}{VAL} eq "master") { if ($hash->{$c} eq "01") { $masterVal = "01"; } } $message = "ise".uc(substr($hash->{XMIT},0,length($hash->{XMIT})-7).$hash->{$c}.$masterVal.$hash->{READINGS}{unit}{VAL}); } elsif ($hash->{READINGS}{protocol}{VAL} eq "HE800") { my $cVal; (undef, $cVal) = split(" ", $v, 2); # Not interested in the name... my $count = $hash->{"count"}; if ($count > 3) { $count = 0; } if ($cVal eq "learn_on_codes" || $cVal eq "learn_off_codes") { $message = "ish0"; } elsif ($cVal eq "on") { my $sendVal = $hash->{READINGS}{"on_" . $count}{VAL}; $message = "ish".uc($sendVal); } else { my $sendVal = $hash->{READINGS}{"off_" . $count}{VAL}; $message = "ish".uc($sendVal); } } else { $message = "is".uc($hash->{XMIT}.$hash->{$c}); } if ($io->{TYPE} ne "SIGNALduino") { # das IODev ist kein SIGNALduino ## Send Message to IODev and wait for correct answer my $msg = CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", $message)); Log3 $hash,5,"IT_Set: GetFn(raw): message = $message Antwort = $msg"; if ($msg =~ m/raw => $message/) { Log 4, "ITSet: Answer from $io->{NAME}: $msg"; } else { Log 2, "IT IODev device didn't answer is command correctly: $msg"; } ## Do we need to change ITrepetition back?? if(defined($attr{$name}) && defined($attr{$name}{"ITrepetition"})) { $message = "isr".$it_defrepetition; CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", $message)); Log3 $hash, 2, "IT set ITrepetition back: $message for $io->{NAME}"; } ## Do we need to change ITfrequency back?? if(defined($attr{$name}) && defined($attr{$name}{"ITfrequency"})) { Log3 $hash,4 ,"Setting ITfrequency back to 433.92 MHz"; CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", "if0")); } ## Do we need to change ITClock back?? if(defined($attr{$name}) && defined($attr{$name}{"ITclock"})) { Log3 $hash, 2, "Setting ITClock back to 420"; #CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", "sic250")); CallFn($io->{NAME}, "SetFn", $io, ($hash->{NAME}, "ITClock", "420")); } ## Do we need to change RFMode back to HomeMatic?? if(defined($attr{$name}) && defined($attr{$name}{"switch_rfmode"})) { if ($attr{$name}{"switch_rfmode"} eq "1") { # do we need to change RFMode of IODev my $ret = CallFn($io->{NAME}, "AttrFn", "set", ($io->{NAME}, "rfmode", "HomeMatic")); } } } else { # SIGNALduino my $SignalRepeats = AttrVal($name,'ITrepetition', '6'); my $ITClock = AttrVal($name,'ITclock', undef); my $protocolId; if (defined($ITClock)) { $ITClock = '#C' . $ITClock; } else { $ITClock = ''; } if ($hash->{READINGS}{protocol}{VAL} eq "V3") { $protocolId = 'P17#'; } else { # IT V1 $protocolId = 'P3#'; } Log3 $hash, 4, "$io->{NAME} IT_set: sendMsg=$protocolId" . substr($message,2) . '#R' . $SignalRepeats . $ITClock; IOWrite($hash, 'sendMsg', $protocolId . substr($message,2) . '#R' . $SignalRepeats . $ITClock); } return $ret; } ############################# sub IT_Define($$) { my ($hash, $def) = @_; my @a = split("[ \t][ \t]*", $def); # calculate transmit code from IT A-P rotary switches if($a[2] =~ /^([A-O])(([0]{0,1}[1-9])|(1[0-6]))$/i) { my %it_1st = ( "A","0000","B","F000","C","0F00","D","FF00","E","00F0","F","F0F0", "G","0FF0","H","FFF0","I","000F","J","F00F","K","0F0F","L","FF0F", "M","00FF","N","F0FF","O","0FFF","P","FFFF" ); my %it_2nd = ( 1 ,"0000",2 ,"F000",3 ,"0F00",4 ,"FF00",5 ,"00F0",6 ,"F0F0", 7 ,"0FF0",8 ,"FFF0",9 ,"000F",10,"F00F",11,"0F0F",12,"FF0F", 13,"00FF",14,"F0FF",15,"0FFF",16,"FFFF" ); $a[2] = $it_1st{$1}.$it_2nd{int($2)}."0F"; defined $a[3] or $a[3] = "FF"; defined $a[4] or $a[4] = "F0"; defined $a[5] or $a[5] = "0F"; defined $a[6] or $a[6] = "00"; } # calculate transmit code from FLS 100 I,II,III,IV rotary switches if($a[2] =~ /^(I|II|III|IV)([1-4])$/i) { my %fls_1st = ("I","0FFF","II","F0FF","III","FF0F","IV","FFF0" ); my %fls_2nd = (1 ,"0FFF",2 ,"F0FF",3 ,"FF0F",4 ,"FFF0"); $a[2] = $fls_1st{$1}.$fls_2nd{int($2)}."0F"; defined $a[3] or $a[3] = "FF"; defined $a[4] or $a[4] = "F0"; defined $a[5] or $a[5] = "0F"; defined $a[6] or $a[6] = "00"; } my $u = "wrong syntax: define IT 10-bit-housecode " . "off-code on-code [dimup-code] [dimdown-code] or for protocol V3 " . "define IT <26 bit Address> <1 bit group bit> <4 bit unit>"; return $u if(int(@a) < 3); my $housecode; my $oncode; my $offcode; my $unitCode; my $groupBit; my $name = $a[0]; if ($a[3] eq "HE800") { $housecode = $a[2]; $hash->{READINGS}{protocol}{VAL} = 'HE800'; $hash->{"count"} = '0'; $oncode = "N/A"; $offcode = "N/A"; $unitCode="N/A"; #return "FALSE"; } elsif (length($a[2]) == 26) { # Is Protocol V3 return "Define $a[0]: wrong ITv3-Code format: specify a 26 digits 0/1 " if( ($a[2] !~ m/^[0-1]{26}$/i) ); return "Define $a[0]: wrong Bit Group format: specify a 1 digits 0/1 " if( ($a[3] !~ m/^[0-1]{1}$/i) ); return "Define $a[0]: wrong Unit format: specify 4 digits 0/1 " if( ($a[4] !~ m/^[0-1]{4}$/i) ); #return "Define $a[0]: wrong on/off/dimm format: specify a 1 digits 0/1/d " # if( ($a[3] !~ m/^[d0-1]{1}$/i) ); $housecode=$a[2].$a[3].$a[4]; $groupBit=$a[3]; $unitCode=$a[4]; $oncode = 1; $offcode = 0; $hash->{READINGS}{protocol}{VAL} = 'V3'; $hash->{READINGS}{unit}{VAL} = $unitCode; $hash->{READINGS}{group}{VAL} = $groupBit; } elsif (length($a[2]) == 46) { # HE_EU return "Define $a[0]: wrong IT-Code format: specify a 29 digits 0/1 " if( ($a[2] !~ m/^[0-1]{46}$/i) ); return "Define $a[0]: wrong group format: specify a 1 digits 0/1 " if( ($a[3] !~ m/^[0-1]{1}$/i) ); return "Define $a[0]: wrong unit format: specify a 7 digits 0/1 " if( ($a[4] !~ m/^[0-1]{7}$/i) ); $housecode = $a[2].$a[4]; $groupBit = $a[3]; $unitCode=$a[4]; if ($groupBit == "1") { # looks like a master key $hash->{READINGS}{mode}{VAL} = "master"; $oncode = "01"; $offcode = "00"; } else { $hash->{READINGS}{mode}{VAL} = "single"; $oncode = "10"; $offcode = "01"; } $hash->{READINGS}{unit}{VAL} = $unitCode; $hash->{READINGS}{protocol}{VAL} = 'HE_EU'; } elsif (length($a[2]) == 10 && (substr($a[2],0,4) eq '1527' || AttrVal($name, "model", "") eq "ev1527" || length($a[3]) == 4)) { # Is Protocol EV1527 #Log3 $hash,2,"ITdefine 1527: $name a3=" . $a[3]; $housecode = $a[2]; $oncode = $a[3]; $oncode = '0000' if (length($a[3]) != 4); $offcode = $a[4]; $offcode = '0000' if (length($a[4]) != 4); $hash->{READINGS}{protocol}{VAL} = 'EV1527'; } elsif (length($a[2]) == 8) { # SBC, FreeTec return "Define $a[0]: wrong IT-Code format: specify a 8 digits 0/1/f " if( ($a[2] !~ m/^[f0-1]{8}$/i) ); return "Define $a[0]: wrong ON format: specify a 4 digits 0/1/f " if( ($a[3] !~ m/^[f0-1]{4}$/i) ); return "Define $a[0]: wrong OFF format: specify a 4 digits 0/1/f " if( ($a[4] !~ m/^[f0-1]{4}$/i) ); $housecode = $a[2]; $oncode = $a[3]; $offcode = $a[4]; $hash->{READINGS}{protocol}{VAL} = 'SBC_FreeTec'; } else { #Log3 $hash,2,"ITdefine v1: $name"; return "Define $a[0]: wrong IT-Code format: specify a 10 digits 0/1/f " if( ($a[2] !~ m/^[f0-1]{10}$/i) ); return "Define $a[0]: wrong ON format: specify a 2 digits 0/1/f/d " if( ($a[3] !~ m/^[df0-1]{2}$/i) ); return "Define $a[0]: wrong OFF format: specify a 2 digits 0/1/f/d " if( ($a[4] !~ m/^[df0-1]{2}$/i) ); $housecode = $a[2]; $oncode = $a[3]; $offcode = $a[4]; $hash->{READINGS}{protocol}{VAL} = 'V1'; } $hash->{XMIT} = lc($housecode); $hash->{$it_c2b{"on"}} = lc($oncode); $hash->{$it_c2b{"off"}} = lc($offcode); if (int(@a) > 5) { return "Define $a[0]: wrong dimup-code format: specify a 2 digits 0/1/f/d " if( ($a[5] !~ m/^[df0-1]{2}$/i) ); $hash->{$it_c2b{"dimup"}} = lc($a[5]); if (int(@a) == 7) { return "Define $a[0]: wrong dimdown-code format: specify a 2 digits 0/1/f/d " if( ($a[6] !~ m/^[df0-1]{2}$/i) ); $hash->{$it_c2b{"dimdown"}} = lc($a[6]); } } else { $hash->{$it_c2b{"dimup"}} = "00"; $hash->{$it_c2b{"dimdown"}} = "00"; } my $code = lc($housecode); my $ncode = 1; $hash->{CODE}{$ncode++} = $code; $modules{IT}{defptr}{$code}{$name} = $hash; AssignIoPort($hash); } ############################# sub IT_Undef($$) { my ($hash, $name) = @_; foreach my $c (keys %{ $hash->{CODE} } ) { $c = $hash->{CODE}{$c}; # As after a rename the $name my be different from the $defptr{$c}{$n} # we look for the hash. foreach my $dname (keys %{ $modules{IT}{defptr}{$c} }) { delete($modules{IT}{defptr}{$c}{$dname}) if($modules{IT}{defptr}{$c}{$dname} == $hash); } } return undef; } sub IT_Parse($$) { my ($hash, $msg) = @_; my $ioname = $hash->{NAME}; my $housecode; my $dimCode; my $unitCode; my $groupBit; my $onoffcode; my $def; my $newstate; my @list; if ((substr($msg, 0, 1)) ne 'i') { Log3 $hash,4,"$ioname IT: message not supported by IT \"$msg\"!"; return undef; } if (length($msg) != 7 && length($msg) != 12 && length($msg) != 17 && length($msg) != 19 && length($msg) != 20) { Log3 $hash,3,"$ioname IT: message \"$msg\" (" . length($msg) . ") too short!"; return undef; } Log3 $hash,4,"$ioname IT: message \"$msg\" (" . length($msg) . ")"; my $bin = undef; my $isDimMode = 0; if (length($msg) == 17) { # IT V3 my $bin1=sprintf("%024b",hex(substr($msg,1,length($msg)-1-8))); while (length($bin1) < 32) { # suffix 0 $bin1 = '0'.$bin1; } my $bin2=sprintf("%024b",hex(substr($msg,1+8,length($msg)-1))); while (length($bin2) < 32) { # suffix 0 $bin2 = '0'.$bin2; } $bin = $bin1 . $bin2; Log3 $hash,4,"$ioname ITv3: bin message \"$bin\" (" . length($bin) . ")"; } elsif (length($msg) == 19 ) { # IT V3 Dimm my $bin1=sprintf("%024b",hex(substr($msg,1,length($msg)-1-8-8))); while (length($bin1) < 32) { # suffix 0 $bin1 = '0'.$bin1; } my $bin2=sprintf("%024b",hex(substr($msg,1+2,length($msg)-1-8-2))); while (length($bin2) < 32) { # suffix 0 $bin2 = '0'.$bin2; } my $bin3=sprintf("%024b",hex(substr($msg,1+8+2,length($msg)-1))); while (length($bin3) < 32) { # suffix 0 $bin3 = '0'.$bin3; } $bin = substr($bin1 . $bin2 . $bin3,24,length($bin1 . $bin2 . $bin3)-1); Log3 $hash,4,"$ioname ITv3dimm: bin message \"$bin\" (" . length($bin) . ")"; } elsif (length($msg) == 20 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy EU #Log3 undef,3,"HEX Part1: " . substr($msg,2,8); my $bin1=sprintf("%024b",hex(substr($msg,2,8))); while (length($bin1) < 32) { # suffix 0 $bin1 = '0'.$bin1; } #Log3 undef,3,"HEX Part2: " . substr($msg,2+8,7); my $bin2=sprintf("%024b",hex(substr($msg,2+8,7))); #$bin2 = substr($bin2,4); while (length($bin2) < 28) { # suffix 0 $bin2 = '0'.$bin2; } $bin = $bin1 . $bin2;# . $bin3; } elsif (length($msg) == 12 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy HE800 my $bin1=sprintf("%024b",hex(substr($msg,2,8))); while (length($bin1) < 32) { # suffix 0 $bin1 = '0'.$bin1; } $bin = $bin1;# . $bin3; } else { # IT $bin=sprintf("%024b",hex(substr($msg,1,length($msg)-1))); } if ((length($bin) % 2) != 0) { # suffix 0 $bin = '0'.$bin; } my $binorg = $bin; my $msgcode=""; if (length($msg) == 12 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy HE800; $msgcode=substr($bin, 0, 28); } elsif (length($msg) == 20 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy EU; $msgcode=substr($bin, 0, 57); } else { while (length($bin)>=2) { if (length($msg) == 7) { if (substr($bin,0,2) != "10") { $msgcode=$msgcode.$bintotristate{substr($bin,0,2)}; } else { if (length($msgcode) >= 10) { Log3 $hash,5,"$ioname IT Parse bintotristate: msgcode=$msgcode, unknown tristate in onoff-code. is evtl a EV1527 sensor"; # $msgcode = substr($msgcode,0,10) . '00'; $msgcode = substr($msgcode,0,10) . $bintotristate{substr($binorg,20,2)} . $bintotristate{substr($binorg,22,2)}; } else { $msgcode = ""; } last; #Log3 $hash,4,"$ioname IT:unknown tristate in \"$bin\""; #return "unknown tristate in \"$bin\"" } } elsif (length($msg) == 20 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy EU $msgcode=$msgcode.$bintotristateHE{substr($bin,0,2)}; } else { $msgcode=$msgcode.$bintotristateV3{substr($bin,0,2)}; } $bin=substr($bin,2,length($bin)-2); } } Log3 $hash,4,"$ioname IT: msgcode \"$msgcode\" (" . length($msgcode) . ") bin = $binorg"; my $isEV1527 = undef; if (length($msg) == 7) { if ($msgcode) { # ITv1 or SBC_FreeTec if (substr($msg,6, 1) eq '0' && substr($msgcode,8,2) ne 'FF') { # SBC_FreeTec $housecode=substr($msgcode,0,8); $onoffcode=substr($msgcode,length($msgcode)-4,4); Log3 $hash,5,"$ioname IT: SBC_FreeTec housecode = $housecode onoffcode = $onoffcode"; } else { # ITv1 $housecode=substr($msgcode,0,10); $onoffcode=substr($msgcode,length($msgcode)-2,2); Log3 $hash,5,"$ioname IT: V1 housecode = $housecode onoffcode = $onoffcode"; } } else { $isEV1527 = 1; $housecode = '1527x' . sprintf("%05x", oct("0b".substr($binorg,0,20))); $onoffcode = substr($binorg, 20); Log3 $hash,5,"$ioname IT: EV1527 housecode = $housecode onoffcode = $onoffcode"; } } elsif (length($msg) == 17 || length($msg) == 19) { $groupBit=substr($msgcode,26,1); $onoffcode=substr($msgcode,27,1); $unitCode=substr($msgcode,28,4); $housecode=substr($msgcode,0,26).$groupBit.$unitCode; if (length($msg) == 19) { $dimCode=substr($msgcode,32,4); } } elsif (length($msg) == 20 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy EU $onoffcode=substr($msgcode,46,2); $groupBit=substr($msgcode,48,2); $unitCode=substr($msgcode,50,7); $housecode=substr($msgcode,0,46).$unitCode; } elsif (length($msg) == 12 && (substr($msg, 1, 1)) eq 'h') { # HomeEasy HE800 $housecode=substr($msgcode,0,6).substr($msgcode,26,2); $onoffcode=0; } else { Log3 $hash,4,"$ioname IT: Wrong IT message received: $msgcode"; return "Wrong IT message received: $msgcode"; } if(!defined($modules{IT}{defptr}{lc("$housecode")})) { if(length($msg) == 7) { Log3 $hash,4,"$ioname IT: $housecode not defined (Switch code: $onoffcode)"; #return "$housecode not defined (Switch code: $onoffcode)!"; my $tmpOffCode; my $tmpOnCode; if (!defined($isEV1527)) { # itv1 if ($onoffcode eq "F0") { # on code IT Log3 $hash,4,"$ioname IT: For autocreate please use the on button."; return "$housecode not defined (Switch code: $onoffcode)! \n For autocreate please use the on button."; } $tmpOffCode = "F0"; $tmpOnCode = "0F"; if ($onoffcode eq "FF") { # on code IT $tmpOnCode = "FF"; } } else { # ev1527 $tmpOffCode = $ev_action{'off'}; #$tmpOnCode = $ev_action{'on'}; $tmpOnCode = $onoffcode; } if (length($housecode) == 8){ $tmpOffCode = '1000'; $tmpOnCode = '0100'; } return "UNDEFINED IT_$housecode IT $housecode $tmpOnCode $tmpOffCode" if(!$def); } elsif (length($msg) == 20) { # HE_EU my $isGroupCode = '0'; if (($onoffcode == '01' && $groupBit == '01') || ($onoffcode == '00' && $groupBit == '11')) { # Group Code found $isGroupCode = '1'; } Log3 $hash,2,"$ioname IT: $housecode not defined (Address: ".substr($msgcode,0,46)." Unit: $unitCode Switch code: $onoffcode GroupCode: $isGroupCode)"; #return "$housecode not defined (Address: ".substr($msgcode,0,26)." Group: $groupBit Unit: $unitCode Switch code: $onoffcode)!"; return "UNDEFINED IT_$housecode IT " . substr($msgcode,0,46) . " $isGroupCode $unitCode" if(!$def); } elsif (length($msg) == 12 && (substr($msg, 1, 1)) eq 'h') { # HE800 Log3 $hash,2,"$ioname IT: $housecode not defined (HE800)"; return "UNDEFINED IT_$housecode IT " . "$housecode HE800 $msgcode" if(!$def); } else { Log3 $hash,2,"$ioname IT: $housecode not defined (Address: ".substr($msgcode,0,26)." Group: $groupBit Unit: $unitCode Switch code: $onoffcode)"; #return "$housecode not defined (Address: ".substr($msgcode,0,26)." Group: $groupBit Unit: $unitCode Switch code: $onoffcode)!"; return "UNDEFINED IT_$housecode IT " . substr($msgcode,0,26) . " $groupBit $unitCode" if(!$def); } } $def=$modules{IT}{defptr}{lc($housecode)}; #$lh->{"learn"} = 'ON'; foreach my $name (keys %{$def}) { if (length($msg) == 17 || length($msg) == 19) { if ($def->{$name}->{READINGS}{group}{VAL} != $groupBit || $def->{$name}->{READINGS}{unit}{VAL} != $unitCode) { next; } } elsif (length($msg) == 7 && !defined($isEV1527) && AttrVal($name, "model", "") eq "ev1527") { $onoffcode = substr($binorg, 20); $def->{$name}->{READINGS}{protocol}{VAL} = 'EV1527'; Log3 $hash,4,"$ioname IT EV1527: " . $def->{$name}{NAME} . ', on code=' . $def->{$name}->{$it_c2b{"on"}} . ", Switch code=$onoffcode"; } if ($def->{$name}->{READINGS}{protocol}{VAL} eq 'HE800') { my $learnVal = "n/a"; if (defined($def->{$name}->{"learn"})) { $learnVal = $def->{$name}->{"learn"} . ""; } else { $def->{$name}->{"learn"} = 'Disabled'; } if ($learnVal eq 'ON') { my $count = $def->{$name}->{READINGS}->{"init_count"}{VAL}; readingsSingleUpdate($def->{$name}, "init_count", $count + 1, 1); readingsSingleUpdate($def->{$name}, "on_" . $count, $msgcode, 1); if ($count == 3) { $def->{$name}->{"learn"} = 'Disabled'; } } elsif ($learnVal eq 'OFF') { my $count = $def->{$name}->{READINGS}->{"init_count"}{VAL}; readingsSingleUpdate($def->{$name}, "init_count", $count + 1, 1); readingsSingleUpdate($def->{$name}, "off_" . $count, $msgcode, 1); if ($count == 3) { $def->{$name}->{"learn"} = 'Disabled'; } } else { $newstate="Unknown, Please learn codes!"; # search for on code for (my $i=0; $i < 4; $i++) { my $value = $def->{$name}->{READINGS}->{"on_" . $i}{VAL}; if (defined($value)) { if ($value eq $msgcode) { $newstate="on"; } } } for (my $i=0; $i < 4; $i++) { my $value = $def->{$name}->{READINGS}->{"off_" . $i}{VAL}; if (defined($value)) { if ($value eq $msgcode) { $newstate="off"; } } } } } elsif ($def->{$name}->{$it_c2b{"on"}} eq lc($onoffcode)) { $newstate="on"; if( AttrVal($name, "model", "") eq "itdimmer" ) { readingsSingleUpdate($def->{$name},"dim",1,1); } } elsif ($def->{$name}->{$it_c2b{"off"}} eq lc($onoffcode)) { $newstate="off"; if( AttrVal($name, "model", "") eq "itdimmer" ) { readingsSingleUpdate($def->{$name},"dim",0,1); } } elsif ($def->{$name}->{$it_c2b{"dimup"}} eq lc($onoffcode)) { $newstate="dimup"; if( AttrVal($name, "model", "") eq "itdimmer" ) { readingsSingleUpdate($def->{$name},"dim","dimup",1); } } elsif ($def->{$name}->{$it_c2b{"dimdown"}} eq lc($onoffcode)) { $newstate="dimdown"; if( AttrVal($name, "model", "") eq "itdimmer" ) { readingsSingleUpdate($def->{$name},"dim","dimdown",1); } } elsif ('d' eq lc($onoffcode)) { # dim my $binVal = ((bin2dec($dimCode)+1)*100)/16; $binVal = int($binVal); $newstate = sprintf("dim%02d%%",$binVal); readingsSingleUpdate($def->{$name},"dim",$binVal,1); if ($binVal == 100) { $newstate="on"; } elsif ($binVal == 0) { $newstate="off"; } } else { Log3 $def->{$name}{NAME},3,"$ioname IT: Code $onoffcode not supported by $def->{$name}{NAME}."; next; } Log3 $def->{$name}{NAME},3,"$ioname IT: $def->{$name}{NAME} ".$def->{$name}->{STATE}."->".$newstate; push(@list,$def->{$name}{NAME}); readingsSingleUpdate($def->{$name},"state",$newstate,1); } return @list; } sub IT_Attr(@) { my ($cmd,$name,$aName,$aVal) = @_; my $hash = $defs{$name}; #Log3 $hash, 4, "$name IT_Attr: Calling Getting Attr sub with args: $cmd $aName = $aVal"; if( $aName eq 'model' && $aVal eq 'ev1527') { #Log3 $hash, 4, "$name IT_Attr: ev1527"; $hash->{READINGS}{protocol}{VAL} = 'EV1527'; } return undef; } 1; =pod =item summary supports Intertechno protocol version 1 and version 3 devices =item summary_DE unterstuetzt Intertechno Protocol Version 1 und Version 3 Geraete =begin html

IT - InterTechno

=end html =begin html_DE

IT - InterTechno

=end html_DE =cut