# $Id$ # "Hue Personal Wireless Lighting" is a trademark owned by Koninklijke Philips Electronics N.V., # see www.meethue.com for more information. # I am in no way affiliated with the Philips organization. package main; use strict; use warnings; use Color; use POSIX; use JSON; use SetExtensions; use Time::Local; #require "30_HUEBridge.pm"; #require "$attr{global}{modpath}/FHEM/30_HUEBridge.pm"; use vars qw(%FW_webArgs); # all arguments specified in the GET my %hueModels = ( LCT001 => {name => 'Hue Bulb' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'B', icon => 'hue_filled_white_and_color_e27_b22', }, LCT002 => {name => 'Hue Spot BR30' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'B', icon => 'hue_filled_br30.svg', }, LCT003 => {name => 'Hue Spot GU10' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'B', icon => 'hue_filled_gu10_par16', }, LCT007 => {name => 'Hue Bulb V2' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'B', icon => 'hue_filled_white_and_color_e27_b22', }, LCT010 => {name => 'Hue Bulb V3' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_white_and_color_e27_b22', }, LCT011 => {name => 'Hue BR30' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_br30.svg', }, LCT012 => {name => 'Hue color candle' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', }, LCT014 => {name => 'Hue Bulb V3' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_white_and_color_e27_b22', }, LCT024 => {name => 'Hue Play' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_play', }, LLC001 => {name => 'Living Colors G2' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_iris', }, LLC005 => {name => 'Living Colors Bloom' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_bloom', }, LLC006 => {name => 'Living Colors Gen3 Iris' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_iris', }, LLC007 => {name => 'Living Colors Gen3 Bloom' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_bloom', }, LLC010 => {name => 'Hue Living Colors Iris' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_iris', }, LLC011 => {name => 'Hue Living Colors Bloom' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_bloom', }, LLC012 => {name => 'Hue Living Colors Bloom' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_bloom', }, LLC013 => {name => 'Disney Living Colors' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_storylight', }, LLC014 => {name => 'Living Colors Aura' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_aura', }, LLC020 => {name => 'Hue Go' ,type => 'Color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_go', }, LST001 => {name => 'Hue LightStrips' ,type => 'Color light' ,subType => 'colordimmer', gamut => 'A', icon => 'hue_filled_lightstrip', }, LST002 => {name => 'Hue LightStrips Plus' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'C', icon => 'hue_filled_lightstrip', }, LWB001 => {name => 'Living Whites Bulb' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_living_whites', }, LWB003 => {name => 'Living Whites Bulb' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_living_whites', }, LWB004 => {name => 'Hue Lux' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LWB006 => {name => 'Hue Lux' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LWB007 => {name => 'Hue Lux' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LWB010 => {name => 'Hue Lux' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LWB014 => {name => 'Hue Lux' ,type => 'Dimmable light' ,subType => 'dimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LTW001 => {name => 'Hue A19 White Ambience' ,type => 'Color temperature light' ,subType => 'ctdimmer', icon => 'hue_filled_white_and_color_e27_b22', }, LTW004 => {name => 'Hue A19 White Ambience' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, LTW012 => {name => 'Hue ambiance candle' ,type => 'Color temperature light' ,subType => 'ctdimmer', icon => 'hue_filled_gu10_par16', }, LTW013 => {name => 'Hue GU10 White Ambience' ,type => 'Color temperature light' ,subType => 'ctdimmer', icon => 'hue_filled_gu10_par16', }, LTW014 => {name => 'Hue GU10 White Ambience' ,type => 'Color temperature light' ,subType => 'ctdimmer', icon => 'hue_filled_gu10_par16', }, LLM001 => {name => 'Color Light Module' ,type => 'Extended color light' ,subType => 'extcolordimmer', gamut => 'B', }, LLM010 => {name => 'Color Temperature Module' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, LLM011 => {name => 'Color Temperature Module' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, LLM012 => {name => 'Color Temperature Module' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, LWL001 => {name => 'LivingWhites Outlet' ,type => 'Dimmable plug-in unit' ,subType => 'dimmer', icon => 'hue_filled_outlet', }, RWL020 => {name => 'Hue Dimmer Switch' ,type => 'ZLLSwitch' ,subType => 'sensor', icon => 'hue_filled_hds', }, RWL021 => {name => 'Hue Dimmer Switch' ,type => 'ZLLSwitch' ,subType => 'sensor', icon => 'hue_filled_hds', }, ZGPSWITCH => {name => 'Hue Tap' ,type => 'ZGPSwitch' ,subType => 'sensor', icon => 'hue_filled_tap', }, 'FLS-H3' => {name => 'dresden elektronik FLS-H lp' ,type => 'Color temperature light' ,subType => 'ctdimmer',}, 'FLS-PP3' => {name => 'dresden elektronik FLS-PP lp' ,type => 'Extended color light' ,subType => 'extcolordimmer', }, 'Flex RGBW' => {name => 'LIGHTIFY Flex RGBW' ,type => 'Extended color light' ,subType => 'extcolordimmer', }, 'Classic A60 RGBW' => {name => 'LIGHTIFY Classic A60 RGBW' ,type => 'Extended color light' ,subType => 'extcolordimmer', }, 'CLA60 RGBW OSRAM' => {name => 'SMART+ Classic A60 RGBW' ,type => 'Extended color light' ,subType => 'extcolordimmer', }, 'Gardenspot RGB' => {name => 'LIGHTIFY Gardenspot Mini RGB' ,type => 'Color light' ,subType => 'colordimmer', }, 'Surface Light TW' => {name => 'LIGHTIFY Surface light tunable white' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, 'Classic A60 TW' => {name => 'LIGHTIFY Classic A60 tunable white' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, 'Classic B40 TW' => {name => 'LIGHTIFY Classic B40 tunable white' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, 'PAR16 50 TW' => {name => 'LIGHTIFY PAR16 50 tunable white' ,type => 'Color temperature light' ,subType => 'ctdimmer', }, 'Classic A60' => {name => 'LIGHTIFY Classic A60 dimmable light' ,type => 'Dimmable Light' ,subType => 'dimmer', }, 'Plug - LIGHTIFY' => {name => 'LIGHTIFY Plug' ,type => 'On/Off plug-in unit' ,subType => 'switch', }, 'Plug 01' => {name => 'LIGHTIFY Plug' ,type => 'On/Off plug-in unit' ,subType => 'switch', }, 'RM01' => {name => 'Busch-Jaeger ZigBee Light Link Relais', type => 'On/Off light' ,subType => 'switch', }, 'DM01' => {name => 'Busch-Jaeger ZigBee Light Link Dimmer', type => 'Dimmable light' ,subType => 'dimmer', }, ); my %gamut = ( A => { r => { hue => 0, x => 0.704, y => 0.296 }, g => { hue => 100, x => 0.2151, y => 0.7106 }, b => { hue => 184, x => 0.138, y => 0.08 }, }, B => { r => { hue => 0, x => 0.675, y => 0.322 }, g => { hue => 100, x => 0.409, y => 0.518 }, b => { hue => 184, x => 0.167, y => 0.04 }, }, C => { r => { hue => 0, x => 0.692, y => 0.308 }, g => { hue => 100, x => 0.17, y => 0.7 }, b => { hue => 184, x => 0.153, y => 0.048 }, }, ); my %dim_values = ( 0 => "dim06%", 1 => "dim12%", 2 => "dim18%", 3 => "dim25%", 4 => "dim31%", 5 => "dim37%", 6 => "dim43%", 7 => "dim50%", 8 => "dim56%", 9 => "dim62%", 10 => "dim68%", 11 => "dim75%", 12 => "dim81%", 13 => "dim87%", 14 => "dim93%", ); my $HUEDevice_hasDataDumper = 1; sub HUEDevice_Initialize($) { my ($hash) = @_; # Provide #Consumer $hash->{DefFn} = "HUEDevice_Define"; $hash->{UndefFn} = "HUEDevice_Undefine"; $hash->{SetFn} = "HUEDevice_Set"; $hash->{GetFn} = "HUEDevice_Get"; $hash->{AttrFn} = "HUEDevice_Attr"; $hash->{AttrList} = "IODev ". "delayedUpdate:1 ". "ignoreReachable:1,0 ". "realtimePicker:1,0 ". "color-icons:1,2 ". "transitiontime ". "model:".join(",", sort map { $_ =~ s/ /#/g ;$_} keys %hueModels)." ". "setList:textField-long ". "subType:extcolordimmer,colordimmer,ctdimmer,dimmer,switch ". $readingFnAttributes; #$hash->{FW_summaryFn} = "HUEDevice_summaryFn"; FHEM_colorpickerInit(); eval "use Data::Dumper"; $HUEDevice_hasDataDumper = 0 if($@); } sub HUEDevice_devStateIcon($) { my($hash) = @_; $hash = $defs{$hash} if( ref($hash) ne 'HASH' ); return undef if( !$hash ); my $name = $hash->{NAME}; if( $hash->{helper}->{devtype} && $hash->{helper}->{devtype} eq 'G' ) { if( $hash->{IODev} ) { my $createGroupReadings = AttrVal($hash->{IODev}{NAME},"createGroupReadings",undef); if( defined($createGroupReadings) ) { return undef if( $createGroupReadings && !AttrVal($hash->{NAME},"createGroupReadings", 1) ); return undef if( !$createGroupReadings && !AttrVal($hash->{NAME},"createGroupReadings", undef) ); return ".*:light_question:toggle" if( !$hash->{helper}{reachable} ); return ".*:off:toggle" if( ReadingsVal($name,"onoff","0") eq "0" ); my $pct = ReadingsVal($name,"pct","100"); my $s = $dim_values{int($pct/7)}; $s="on" if( $pct eq "100" ); return ".*:$s:toggle"; } } #return ".*:off:toggle" if( !ReadingsVal($name,'any_on',0) ); #return ".*:on:toggle" if( ReadingsVal($name,'any_on',0) ); return undef; } return undef if( $hash->{helper}->{devtype} ); return ".*:light_question:toggle" if( !$hash->{helper}{reachable} ); return ".*:off:toggle" if( ReadingsVal($name,"state","off") eq "off" ); my $pct = ReadingsVal($name,"pct","100"); my $s = $dim_values{int($pct/7)}; $s="on" if( $pct eq "100" ); return ".*:$s:toggle" if( AttrVal($name, "model", "") eq "LWL001" ); return ".*:$s:toggle" if( AttrVal($name, "subType", "") eq "dimmer" ); return ".*:$s:toggle" if( AttrVal($name, "subType", "") eq "switch" ); #return ".*:$s:toggle" if( AttrVal($name, "model", "") eq "LWB001" ); #return ".*:$s:toggle" if( AttrVal($name, "model", "") eq "LWB003" ); #return ".*:$s:toggle" if( AttrVal($name, "model", "") eq "LWB004" ); return ".*:$s@#".CommandGet("","$name RGB").":toggle" if( $pct < 100 && AttrVal($name, "color-icons", 0) == 2 ); return ".*:on@#".CommandGet("","$name rgb").":toggle" if( AttrVal($name, "color-icons", 0) != 0 ); return '
'; } sub HUEDevice_summaryFn($$$$) { my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$d}; my $name = $hash->{NAME}; return HUEDevice_devStateIcon($hash); } sub HUEDevice_Define($$) { my ($hash, $def) = @_; my @args = split("[ \t]+", $def); $hash->{helper}->{devtype} = ""; if( $args[2] eq "group" ) { $hash->{helper}->{devtype} = "G"; splice( @args, 2, 1 ); } elsif( $args[2] eq "sensor" ) { $hash->{helper}->{devtype} = "S"; splice( @args, 2, 1 ); } my $iodev; my $i = 0; foreach my $param ( @args ) { if( $param =~ m/IODev=([^\s]*)/ ) { $iodev = $1; splice( @args, $i, 1 ); last; } $i++; } return "Usage: define HUEDevice [group|sensor] [interval]" if(@args < 3); my ($name, $type, $id, $interval) = @args; $hash->{STATE} = 'Initialized'; $hash->{ID} = $hash->{helper}->{devtype}.$id; AssignIoPort($hash,$iodev) if( !$hash->{IODev} ); if(defined($hash->{IODev})) { Log3 $name, 3, "$name: I/O device is " . $hash->{IODev}->{NAME}; } else { Log3 $name, 1, "$name: no I/O device"; } $iodev = $hash->{IODev}->{NAME} if( defined($hash->{IODev}) ); my $code = $hash->{ID}; $code = $iodev ."-". $code if( defined($iodev) ); my $d = $modules{HUEDevice}{defptr}{$code}; return "HUEDevice device $hash->{ID} on HUEBridge $iodev already defined as $d->{NAME}." if( defined($d) && $d->{IODev} && $hash->{IODev} && $d->{IODev} == $hash->{IODev} && $d->{NAME} ne $name ); $modules{HUEDevice}{defptr}{$code} = $hash; if( AttrVal($iodev, "pollDevices", 1) ) { $interval = undef unless defined($interval); } elsif( !$hash->{helper}->{devtype} || $hash->{helper}->{devtype} ne 'G' ) { $interval = 60 unless defined($interval); } $args[3] = "" if( !defined( $args[3] ) ); if( !$hash->{helper}->{devtype} ) { $hash->{DEF} = "$id $args[3] IODev=$iodev" if( $iodev ); $interval = 60 if( defined($interval) && $interval < 10 ); $hash->{INTERVAL} = $interval; $hash->{helper}{on} = -1; $hash->{helper}{reachable} = undef; $hash->{helper}{colormode} = ''; $hash->{helper}{bri} = -1; $hash->{helper}{ct} = -1; $hash->{helper}{hue} = -1; $hash->{helper}{sat} = -1; $hash->{helper}{xy} = ''; $hash->{helper}{alert} = ''; $hash->{helper}{effect} = ''; $hash->{helper}{pct} = -1; $hash->{helper}{rgb} = ""; $attr{$name}{devStateIcon} = '{(HUEDevice_devStateIcon($name),"toggle")}' if( !defined( $attr{$name}{devStateIcon} ) ); my $icon_path = AttrVal("WEB", "iconPath", "default:fhemSVG:openautomation" ); $attr{$name}{'color-icons'} = 2 if( !defined( $attr{$name}{'color-icons'} ) && $icon_path =~ m/openautomation/ ); } elsif( $hash->{helper}->{devtype} eq 'G' ) { $hash->{DEF} = "group $id $args[3] IODev=$iodev" if( $iodev ); $interval = 60 if( defined($interval) && $interval < 10 ); $hash->{INTERVAL} = $interval; $hash->{helper}{all_on} = -1; $hash->{helper}{any_on} = -1; $attr{$name}{delayedUpdate} = 1 if( !defined( $attr{$name}{delayedUpdate} ) ); $attr{$name}{devStateIcon} = '{(HUEDevice_devStateIcon($name),"toggle")}' if( !defined( $attr{$name}{devStateIcon} ) ); my $icon_path = AttrVal("WEB", "iconPath", "default:fhemSVG:openautomation" ); $attr{$name}{'color-icons'} = 2 if( !defined( $attr{$name}{'color-icons'} ) && $icon_path =~ m/openautomation/ ); addToDevAttrList($name, "createActionReadings:1,0"); addToDevAttrList($name, "createGroupReadings:1,0"); } elsif( $hash->{helper}->{devtype} eq 'S' ) { $hash->{DEF} = "sensor $id $args[3] IODev=$iodev" if( $iodev ); $interval = 60 if( defined($interval) && $interval < 1 ); $hash->{INTERVAL} = $interval; } RemoveInternalTimer($hash); if( $init_done ) { HUEDevice_GetUpdate($hash); } else { InternalTimer(gettimeofday()+10, "HUEDevice_GetUpdate", $hash, 0); } return undef; } sub HUEDevice_Undefine($$) { my ($hash,$arg) = @_; RemoveInternalTimer($hash); my $code = $hash->{ID}; $code = $hash->{IODev}->{NAME} ."-". $code if( defined($hash->{IODev}->{NAME}) ); delete($modules{HUEDevice}{defptr}{$code}); return undef; } sub HUEDevice_SetParam($$@) { my ($name, $obj, $cmd, $value, $value2) = @_; if( $cmd eq "color" ) { $value = int(1000000/$value); $cmd = 'ct'; } elsif( $name && $cmd eq "toggle" ) { $cmd = ReadingsVal($name,"onoff",1) ? "off" :"on"; } elsif( $cmd =~ m/^dim(\d+)/ ) { $value2 = $value; $value = $1; $value = 0 if( $value < 0 ); $value = 100 if( $value > 100 ); $cmd = 'pct'; } elsif( !defined($value) && $cmd =~ m/^(\d+)/) { $value2 = $value; $value = $1; $value = 0 if( $value < 0 ); $value = 254 if( $value > 254 ); $cmd = 'bri'; } if($cmd eq "pct" && $value == 0 ) { $cmd = "off"; $value = $value2; } if($cmd eq 'on') { $obj->{'on'} = JSON::true; # temporary disablea for everything. hast do be disabled for groups. # see https://forum.fhem.de/index.php/topic,11020.msg497825.html#msg497825 #$obj->{'bri'} = 254 if( $name && ReadingsVal($name,"bri","0") eq 0 && AttrVal($name, 'subType', 'dimmer') ne 'switch' ); $obj->{'transitiontime'} = $value * 10 if( defined($value) ); } elsif($cmd eq 'off') { $obj->{'on'} = JSON::false; $obj->{'transitiontime'} = $value * 10 if( defined($value) ); } elsif($cmd eq "pct") { my $bri; if( $value > 50 ) { $bri = 2.57 * ($value-50) + 128; } else { $bri = 2.59 * ($value-50) + 128; } $bri = 0 if( $bri < 0 ); $bri = 254 if( $bri > 254 ); #$value = 3.5 if( $value < 3.5 && AttrVal($name, "model", "") eq "LWL001" ); $obj->{'on'} = JSON::true; #$obj->{'bri'} = int(2.55 * $value); $obj->{'bri'} = int($bri); $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif($cmd eq "bri") { #$value = 8 if( $value < 8 && AttrVal($name, "model", "") eq "LWL001" ); $obj->{'on'} = JSON::true; $obj->{'bri'} = 0+$value; $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif($name && $cmd eq "dimUp") { if( $defs{$name}->{IODev}->{helper}{apiversion} && $defs{$name}->{IODev}->{helper}{apiversion} >= (1<<16) + (7<<8) ) { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'bri_inc'} = 25; $obj->{'bri_inc'} = 0+$value if( defined($value) ); #$obj->{'transitiontime'} = 1; #$defs{$name}->{helper}->{update_timeout} = 0; } else { my $bri = ReadingsVal($name,"bri","0"); $bri += 25; $bri = 254 if( $bri > 254 ); $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'bri'} = 0+$bri; $obj->{'transitiontime'} = 1; #$obj->{'transitiontime'} = $value * 10 if( defined($value) ); $defs{$name}->{helper}->{update_timeout} = 0; } } elsif($name && $cmd eq "dimDown") { if( $defs{$name}->{IODev}->{helper}{apiversion} && $defs{$name}->{IODev}->{helper}{apiversion} >= (1<<16) + (7<<8) ) { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'bri_inc'} = -25; $obj->{'bri_inc'} = 0-$value if( defined($value) ); #$obj->{'transitiontime'} = 1; #$defs{$name}->{helper}->{update_timeout} = 0; } else { my $bri = ReadingsVal($name,"bri","0"); $bri -= 25; $bri = 0 if( $bri < 0 ); $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'bri'} = 0+$bri; $obj->{'transitiontime'} = 1; #$obj->{'transitiontime'} = $value * 10 if( defined($value) ); $defs{$name}->{helper}->{update_timeout} = 0; } } elsif($cmd eq "satUp") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'sat_inc'} = 25; $obj->{'sat_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "satDown") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'sat_inc'} = -25; $obj->{'sat_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "hueUp") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'hue_inc'} = 6553; $obj->{'hue_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "hueDown") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'hue_inc'} = -6553; $obj->{'hue_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "ctUp") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'ct_inc'} = 16; $obj->{'ct_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "ctDown") { $obj->{'on'} = JSON::true if( !$defs{$name}->{helper}{on} ); $obj->{'ct_inc'} = -16; $obj->{'ct_inc'} = 0+$value if( defined($value) ); } elsif($cmd eq "ct") { $obj->{'on'} = JSON::true; $value = int(1000000/$value) if( $value > 1000 ); $obj->{'ct'} = 0+$value; $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif($cmd eq "hue") { $obj->{'on'} = JSON::true; $obj->{'hue'} = 0+$value; $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif($cmd eq "sat") { $obj->{'on'} = JSON::true; $obj->{'sat'} = 0+$value; $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif($cmd eq "xy" && $value =~ m/^(.+),(.+)/) { my ($x,$y) = ($1, $2); $obj->{'on'} = JSON::true; $obj->{'xy'} = [0+$x, 0+$y]; $obj->{'transitiontime'} = $value2 * 10 if( defined($value2) ); } elsif( $cmd eq "rgb" && $value =~ m/^(..)(..)(..)/) { my( $r, $g, $b ) = (hex($1)/255.0, hex($2)/255.0, hex($3)/255.0); if( $name && ( !defined( AttrVal($name, "model", undef) ) || AttrVal($name, "model", undef) eq 'LLC020') ) { my( $h, $s, $v ) = Color::rgb2hsv($r,$g,$b); $obj->{'on'} = JSON::true; $obj->{'hue'} = int( $h * 65535 ); $obj->{'sat'} = int( $s * 254 ); $obj->{'bri'} = int( $v * 254 ); } else { # calculation from http://www.everyhue.com/vanilla/discussion/94/rgb-to-xy-or-hue-sat-values/p1 my $X = 1.076450 * $r - 0.237662 * $g + 0.161212 * $b; my $Y = 0.410964 * $r + 0.554342 * $g + 0.034694 * $b; my $Z = -0.010954 * $r - 0.013389 * $g + 1.024343 * $b; #Log3 $name, 3, "rgb: ". $r . " " . $g ." ". $b; #Log3 $name, 3, "XYZ: ". $X . " " . $Y ." ". $Y; if( $X != 0 || $Y != 0 || $Z != 0 ) { my $x = $X / ($X + $Y + $Z); my $y = $Y / ($X + $Y + $Z); #Log3 $name, 3, "xyY:". $x . " " . $y ." ". $Y; $Y = 1 if( $Y > 1 ); $x = 0 if( $x < 0); $x = 1 if( $x > 1); $y = 0 if( $y < 0); $y = 1 if( $y > 1); my $bri = maxNum($r,$g,$b); #my $bri = $Y; $obj->{'on'} = JSON::true; $obj->{'xy'} = [0+$x, 0+$y]; $obj->{'bri'} = int(254*$bri); } else { $obj->{'on'} = JSON::false; } } } elsif( $cmd eq "hsv" && $value =~ m/^(..)(..)(..)/) { my( $h, $s, $v ) = (hex($1), hex($2), hex($3)); $s = 254 if( $s > 254 ); $v = 254 if( $v > 254 ); $obj->{'on'} = JSON::true; $obj->{'hue'} = int($h*256); $obj->{'sat'} = 0+$s; $obj->{'bri'} = 0+$v; } elsif( $cmd eq "alert" ) { $obj->{'alert'} = $value; } elsif( $cmd eq "effect" ) { $obj->{'effect'} = $value; } elsif( $cmd eq "transitiontime" ) { $obj->{'transitiontime'} = 0+$value; } elsif( $name && $cmd eq "delayedUpdate" ) { $defs{$name}->{helper}->{update_timeout} = 1; } elsif( $name && $cmd eq "immediateUpdate" ) { $defs{$name}->{helper}->{update_timeout} = 0; } elsif( $name && $cmd eq "noUpdate" ) { $defs{$name}->{helper}->{update_timeout} = -1; } else { return 0; } return 1; } sub HUEDevice_Set($@); sub HUEDevice_Set($@) { my ($hash, $name, @aa) = @_; my ($cmd, @args) = @aa; my %obj; $hash->{helper}->{update_timeout} = AttrVal($name, "delayedUpdate", 1); if( $hash->{helper}->{devtype} eq 'G' ) { if( $cmd eq 'lights' ) { return "usage: lights " if( @args != 1 ); my $obj = { 'lights' => HUEBridge_string2array($args[0]), }; my $result = HUEDevice_ReadFromServer($hash,$hash->{ID},$obj); if( $result->{success} ) { RemoveInternalTimer($hash); HUEDevice_GetUpdate($hash); } return $result->{error}{description} if( $result->{error} ); return undef; } elsif( $cmd eq 'savescene' ) { if( $hash->{IODev} && $hash->{IODev}{helper}{apiversion} && $hash->{IODev}{helper}{apiversion} >= (1<<16) + (11<<8) ) { return "usage: savescene " if( @args < 1 ); return fhem( "set $hash->{IODev}{NAME} savescene ". join( ' ', @aa[1..@aa-1]). " $hash->{NAME}" ); } else { return "usage: savescene " if( @args != 1 ); return fhem( "set $hash->{IODev}{NAME} savescene $aa[1] $aa[1] $hash->{NAME}" ); } } elsif( $cmd eq 'deletescene' ) { return "usage: deletescene " if( @args != 1 ); return fhem( "set $hash->{IODev}{NAME} deletescene $aa[1]" ); } elsif( $cmd eq 'scene' ) { return "usage: scene " if( @args != 1 ); my $obj = {'scene' => $aa[1]}; $hash->{helper}->{update} = 1; my $result = HUEDevice_ReadFromServer($hash,"$hash->{ID}/action",$obj); return $result->{error}{description} if( $result->{error} ); if( defined($result) && $result->{'error'} ) { $hash->{STATE} = $result->{'error'}->{'description'}; return undef; } return undef if( !defined($result) ); if( $hash->{helper}->{update_timeout} == -1 ) { } elsif( $hash->{helper}->{update_timeout} ) { RemoveInternalTimer($hash); InternalTimer(gettimeofday()+$hash->{helper}->{update_timeout}, "HUEDevice_GetUpdate", $hash, 0); } else { RemoveInternalTimer($hash); HUEDevice_GetUpdate( $hash ); } return undef; } } elsif( $hash->{helper}->{devtype} eq 'S' ) { my $shash = $hash->{IODev}; my $id = $hash->{ID}; $id = $1 if( $id =~ m/^S(\d.*)/ ); $hash->{".triggerUsed"} = 1; if( $cmd eq "statusRequest" ) { RemoveInternalTimer($hash); HUEDevice_GetUpdate($hash); return undef; } elsif( $cmd eq 'json' ) { return HUEBridge_Set( $shash, $shash->{NAME}, 'setsensor', $id, @args ); return undef; } elsif( my @match = grep { $cmd eq $_ } keys %{($hash->{helper}{setList}{cmds}?$hash->{helper}{setList}{cmds}:{})} ) { return HUEBridge_Set( $shash, $shash->{NAME}, 'setsensor', $id, $hash->{helper}{setList}{cmds}{$match[0]} ); } elsif( my $entries = $hash->{helper}{setList}{regex} ) { foreach my $entry (@{$entries}) { if( join(' ', @aa) =~ /$entry->{regex}/ ) { my $VALUE1 = $1; my $VALUE2 = $2; my $VALUE3 = $3; my $json = $entry->{json}; $json =~ s/\$1/$VALUE1/; $json =~ s/\$2/$VALUE2/; $json =~ s/\$3/$VALUE3/; return HUEBridge_Set( $shash, $shash->{NAME}, 'setsensor', $id, $json ); } } } my $list = 'statusRequest:noArg'; $list .= ' json' if( $hash->{type} && $hash->{type} =~ /^CLIP/ ); $list .= ' '. join( ':noArg ', keys %{$hash->{helper}{setList}{cmds}} ) if( $hash->{helper}{setList}{cmds} ); $list .= ':noArg' if( $hash->{helper}{setList}{cmds} ); if( my $entries = $hash->{helper}{setList}{regex} ) { foreach my $entry (@{$entries}) { $list .= ' '; $list .= (split( ' ', $entry->{regex} ))[0]; } } return SetExtensions($hash, $list, $name, @aa); } if( $cmd eq 'rename' ) { my $new_name = join( ' ', @aa[1..@aa-1]); my $obj = { 'name' => $new_name, }; my $result = HUEDevice_ReadFromServer($hash,$hash->{ID},$obj); if( $result->{success} ) { RemoveInternalTimer($hash); HUEDevice_GetUpdate($hash); CommandAttr(undef,"$name alias $new_name"); CommandSave(undef,undef) if( AttrVal( "autocreate", "autosave", 1 ) ); } return $result->{error}{description} if( $result->{error} ); return undef; } if( (my $joined = join(" ", @aa)) =~ /:/ ) { $joined =~ s/on-till\s+[^\s]+//g; #bad workaround for: https://forum.fhem.de/index.php/topic,61636.msg728557.html#msg728557 my @cmds = split(":", $joined); for( my $i = 0; $i <= $#cmds; ++$i ) { HUEDevice_SetParam($name, \%obj, split(" ", $cmds[$i]) ); } } else { my ($cmd, $value, $value2, @a) = @aa; if( $cmd eq "statusRequest" ) { RemoveInternalTimer($hash); HUEDevice_GetUpdate($hash); return undef; } HUEDevice_SetParam($name, \%obj, $cmd, $value, $value2); } if( %obj ) { if( defined($obj{on}) ) { $hash->{desired} = $obj{on}?1:0; } if( !defined($obj{transitiontime}) ) { my $transitiontime = AttrVal($name, "transitiontime", undef); $obj{transitiontime} = 0 + $transitiontime if( defined( $transitiontime ) ); } } # if( $hash->{helper}->{update_timeout} == -1 ) { # my $diff; # my ($seconds, $microseconds) = gettimeofday(); # if( $hash->{helper}->{timestamp} ) { # my ($seconds2, $microseconds2) = @{$hash->{helper}->{timestamp}}; # # $diff = (($seconds-$seconds2)*1000000 + $microseconds-$microseconds2)/1000; # } # $hash->{helper}->{timestamp} = [$seconds, $microseconds]; # # return undef if( $diff < 100 ); # } if( scalar keys %obj ) { my $result; if( $hash->{helper}->{devtype} eq 'G' ) { $hash->{helper}->{update} = 1; $result = HUEDevice_ReadFromServer($hash,"$hash->{ID}/action",\%obj); } else { $result = HUEDevice_ReadFromServer($hash,"$hash->{ID}/state",\%obj); } SetExtensionsCancel($hash); if( defined($result) && $result->{'error'} ) { $hash->{STATE} = $result->{'error'}->{'description'}; return undef; } $hash->{".triggerUsed"} = 1; return undef if( !defined($result) ); if( $hash->{helper}->{update_timeout} == -1 ) { } elsif( $hash->{helper}->{update_timeout} ) { RemoveInternalTimer($hash); InternalTimer(gettimeofday()+$hash->{helper}->{update_timeout}, "HUEDevice_GetUpdate", $hash, 0); } else { RemoveInternalTimer($hash); HUEDevice_GetUpdate( $hash ); } return undef; } my $subtype = AttrVal($name, "subType", "extcolordimmer"); my $list = "off:noArg on:noArg toggle:noArg statusRequest:noArg"; $list .= " pct:colorpicker,BRI,0,1,100 bri:colorpicker,BRI,0,1,254" if( $subtype =~ m/dimmer/ ); $list .= " rgb:colorpicker,RGB" if( $subtype =~ m/color/ ); $list .= " color:colorpicker,CT,2000,1,6500 ct:colorpicker,CT,154,1,500" if( $subtype =~ m/ct|ext/ ); $list .= " hue:colorpicker,HUE,0,1,65535 sat:slider,0,1,254 xy" if( $subtype =~ m/color/ ); if( $hash->{IODev} && $hash->{IODev}{helper}{apiversion} && $hash->{IODev}{helper}{apiversion} >= (1<<16) + (7<<8) ) { $list .= " dimUp:noArg dimDown:noArg" if( $subtype =~ m/dimmer/ ); $list .= " ctUp:noArg ctDown:noArg" if( $subtype =~ m/ct|ext/ ); $list .= " hueUp:noArg hueDown:noArg satUp:noArg satDown:noArg" if( $subtype =~ m/color/ ); } elsif( !$hash->{helper}->{devtype} && $subtype =~ m/dimmer/ ) { $list .= " dimUp:noArg dimDown:noArg"; } #$list .= " dim06% dim12% dim18% dim25% dim31% dim37% dim43% dim50% dim56% dim62% dim68% dim75% dim81% dim87% dim93% dim100%" if( $subtype =~ m/dimmer/ ); if( $hash->{IODev} && $hash->{IODev}{TYPE} eq 'HUEBridge' ) { $list .= " alert:none,select,lselect"; $list .= " effect:none,colorloop" if( $subtype =~ m/color/ ); $list .= " lights" if( $hash->{helper}->{devtype} eq 'G' ); $list .= " rename"; $list .= " savescene deletescene" if( $hash->{helper}->{devtype} eq 'G' ); } $list .= " scene" if( $hash->{helper}->{devtype} eq 'G' ); return SetExtensions($hash, $list, $name, @aa); } sub cttorgb($) { my ($ct) = @_; # calculation from http://www.tannerhelland.com/4435/convert-temperature-rgb-algorithm-code # adjusted by 1000K my $temp = (1000000/$ct)/100 + 10; my $r = 0; my $g = 0; my $b = 0; $r = 255; $r = 329.698727446 * ($temp - 60) ** -0.1332047592 if( $temp > 66 ); $r = 0 if( $r < 0 ); $r = 255 if( $r > 255 ); if( $temp <= 66 ) { $g = 99.4708025861 * log($temp) - 161.1195681661; } else { $g = 288.1221695283 * ($temp - 60) ** -0.0755148492; } $g = 0 if( $g < 0 ); $g = 255 if( $g > 255 ); $b = 255; $b = 0 if( $temp <= 19 ); if( $temp < 66 ) { $b = 138.5177312231 * log($temp-10) - 305.0447927307; } $b = 0 if( $b < 0 ); $b = 255 if( $b > 255 ); return( $r, $g, $b ); } sub xyYtorgb($$$) { # calculation from http://www.brucelindbloom.com/index.html my ($x,$y,$Y) = @_; #Log 3, "xyY:". $x . " " . $y ." ". $Y; my $r = 0; my $g = 0; my $b = 0; if( $y > 0 ) { my $X = $x * $Y / $y; my $Z = (1 - $x - $y)*$Y / $y; if( $X > 1 || $Y > 1 || $Z > 1 ) { my $f = maxNum($X,$Y,$Z); $X /= $f; $Y /= $f; $Z /= $f; } #Log 3, "XYZ: ". $X . " " . $Y ." ". $Y; $r = 0.7982 * $X + 0.3389 * $Y - 0.1371 * $Z; $g = -0.5918 * $X + 1.5512 * $Y + 0.0406 * $Z; $b = 0.0008 * $X + 0.0239 * $Y + 0.9753 * $Z; if( $r > 1 || $g > 1 || $b > 1 ) { my $f = maxNum($r,$g,$b); $r /= $f; $g /= $f; $b /= $f; } #Log 3, "rgb: ". $r . " " . $g ." ". $b; $r *= 255; $g *= 255; $b *= 255; } return( $r, $g, $b ); } sub HUEDevice_Get($@) { my ($hash, @a) = @_; my $name = $a[0]; return "$name: get needs at least one parameter" if(@a < 2); my $cmd= $a[1]; if($cmd eq "rgb") { my $r = 0; my $g = 0; my $b = 0; my $cm = ReadingsVal($name,"colormode",""); if( $cm eq "ct" ) { if( ReadingsVal($name,"ct","") =~ m/(\d+) .*/ ) { ($r,$g,$b) = cttorgb($1); } } elsif( $cm eq "hs" ) { my $h = ReadingsVal($name,"hue",0) / 65535.0; my $s = ReadingsVal($name,"sat",0) / 254.0; my $v = ReadingsVal($name,"bri",0) / 254.0; ($r,$g,$b) = Color::hsv2rgb($h,$s,$v); $r *= 255; $g *= 255; $b *= 255; } elsif( ReadingsVal($name,"xy","") =~ m/(.+),(.+)/ ) { my ($x,$y) = ($1, $2); my $Y = ReadingsVal($name,"bri","") / 254.0; ($r,$g,$b) = xyYtorgb($x,$y,$Y); } return sprintf( "%02x%02x%02x", $r+0.5, $g+0.5, $b+0.5 ); } elsif($cmd eq "RGB") { my $r = 0; my $g = 0; my $b = 0; my $cm = ReadingsVal($name,"colormode",""); if( $cm eq "ct" ) { if( ReadingsVal($name,"ct","") =~ m/(\d+) .*/ ) { ($r,$g,$b) = cttorgb($1); } } elsif( $cm eq "hs" ) { my $h = ReadingsVal($name,"hue",0) / 65535.0; my $s = ReadingsVal($name,"sat",0) / 254.0; my $v = 1; ($r,$g,$b) = Color::hsv2rgb($h,$s,$v); $r *= 255; $g *= 255; $b *= 255; } elsif( ReadingsVal($name,"xy","") =~ m/(.+),(.+)/ ) { my ($x,$y) = ($1, $2); my $Y = 1; ($r,$g,$b) = xyYtorgb($x,$y,$Y); } return sprintf( "%02x%02x%02x", $r+0.5, $g+0.5, $b+0.5 ); } elsif ( $cmd eq "startup" ) { my $result = IOWrite($hash,undef,$hash->{NAME},$hash->{ID}); return $result->{error}{description} if( $result->{error} ); return "not supported" if( !$result->{config} || !$result->{config}{startup} ); return "$result->{config}{startup}{mode}\t$result->{config}{startup}{configured}"; return Dumper $result->{config}{startup}; } elsif ( $cmd eq "devStateIcon" ) { return HUEDevice_devStateIcon($hash); } my $list = "rgb:noArg RGB:noArg devStateIcon:noArg"; if( $hash->{IODev} && $hash->{IODev}{helper}{apiversion} && $hash->{IODev}{helper}{apiversion} >= (1<<16) + (26<<8) ) { $list .= " startup:noArg"; } return "Unknown argument $cmd, choose one of $list"; } ################################### # This could be IORead in fhem, But there is none. # Read http://forum.fhem.de/index.php?t=tree&goto=54027&rid=10#msg_54027 # to find out why. sub HUEDevice_ReadFromServer($@) { my ($hash,@a) = @_; my $name = $hash->{NAME}; #return if(IsDummy($name) || IsIgnored($name)); no strict "refs"; my $ret; unshift(@a,$name); #$ret = IOWrite($hash, @a); $ret = IOWrite($hash,$hash,@a); use strict "refs"; return $ret; } sub HUEDevice_GetUpdate($) { my ($hash) = @_; my $name = $hash->{NAME}; if( $hash->{helper}->{devtype} eq 'G' ) { my $result = HUEDevice_ReadFromServer($hash,$hash->{ID}); if( !defined($result) ) { $hash->{STATE} = "unknown"; return; } elsif( $result->{'error'} ) { $hash->{STATE} = $result->{'error'}->{'description'}; return; } HUEDevice_Parse($hash,$result); } elsif( $hash->{helper}->{devtype} eq 'S' ) { } if(!$hash->{LOCAL}) { RemoveInternalTimer($hash); InternalTimer(gettimeofday()+$hash->{INTERVAL}, "HUEDevice_GetUpdate", $hash, 0) if( $hash->{INTERVAL} ); } return undef if( $hash->{helper}->{devtype} eq 'G' ); my $result = HUEDevice_ReadFromServer($hash,$hash->{ID}); if( !defined($result) ) { $hash->{helper}{reachable} = 0; #$hash->{STATE} = "unknown"; return; } elsif( $result->{'error'} ) { $hash->{helper}{reachable} = 0; $hash->{STATE} = $result->{'error'}->{'description'}; return; } HUEDevice_Parse($hash,$result); HUEBridge_updateGroups($hash->{IODev}, $hash->{ID}) if( $hash->{IODev}{TYPE} eq 'HUEBridge' ); } sub HUEDeviceSetIcon($;$) { my ($hash,$force) = @_; $hash = $defs{$hash} if( ref($hash) ne 'HASH' ); return undef if( !$hash ); my $name = $hash->{NAME}; return if( defined($attr{$name}{icon}) && !$force ); if( $hash->{modelid} ) { my $model = $hueModels{$hash->{modelid}}; return undef if( !$model ); my $icon = $model->{icon}; return undef if( !$icon ); $attr{$name}{icon} = $icon; } elsif( $hash->{class} ) { my $class = lc( $hash->{class} ); $class =~ s/ room//; $attr{$name}{icon} = "hue_room_$class"; } } sub HUEDevice_Parse($$) { my($hash,$result) = @_; my $name = $hash->{NAME}; if( ref($result) ne "HASH" ) { if( ref($result) && $HUEDevice_hasDataDumper) { Log3 $name, 2, "$name: got wrong status message for $name: ". Dumper $result; } else { Log3 $name, 2, "$name: got wrong status message for $name: $result"; } return undef; } Log3 $name, 4, "parse status message for $name"; Log3 $name, 5, Dumper $result if($HUEDevice_hasDataDumper); $hash->{name} = $result->{name} if( defined($result->{name}) ); $hash->{type} = $result->{type} if( defined($result->{type}) ); $hash->{class} = $result->{class} if( defined($result->{class}) ); $hash->{uniqueid} = $result->{uniqueid} if( defined($result->{uniqueid}) ); if( $hash->{helper}->{devtype} eq 'G' ) { if( $result->{lights} ) { $hash->{lights} = join( ",", sort { $a <=> $b } @{$result->{lights}} ); } else { $hash->{lights} = ''; } if( ref($result->{state}) eq 'HASH' ) { my %readings; if( $result->{state} ) { $readings{all_on} = $result->{state}{all_on}; $readings{any_on} = $result->{state}{any_on}; } if( AttrVal($name, 'createActionReadings', 0) ) { if( my $state = $result->{action} ) { $readings{ct} = $state->{ct}; $readings{ct} .= " (".int(1000000/$readings{ct})."K)" if( $readings{ct} ); $readings{hue} = $state->{hue}; $readings{sat} = $state->{sat}; $readings{bri} = $state->{bri}; $readings{bri} = $hash->{helper}{bri} if( !defined($readings{bri}) ); $readings{xy} = $state->{'xy'}->[0] .",". $state->{'xy'}->[1] if( defined($state->{'xy'}) ); $readings{colormode} = $state->{colormode}; $readings{alert} = $state->{alert}; $readings{effect} = $state->{effect}; $readings{reachable} = $state->{reachable}?1:0 if( defined($state->{reachable}) ); my $s = ''; my $pct = -1; my $on = $state->{on}; $readings{on} = $hash->{helper}{onoff} if( !defined($on) ); if( $on ) { $s = 'on'; $readings{onoff} = 1; if( !defined($readings{bri}) || AttrVal($name, 'subType', 'dimmer') eq 'switch' ) { $pct = 100; } else { $pct = int($readings{bri} * 99 / 254 + 1); if( $pct > 0 && $pct < 100 ) { $s = $dim_values{int($pct/7)}; } $s = 'off' if( $pct == 0 ); } } else { $on = 0; $s = 'off'; $pct = 0; $readings{onoff} = 0; } $readings{pct} = $pct; $s = 'unreachable' if( defined($readings{reachable}) && !$readings{reachable} ); #$readings{state} = $s; } } readingsBeginUpdate($hash); foreach my $key ( keys %readings ) { if( defined($readings{$key}) ) { readingsBulkUpdate($hash, $key, $readings{$key}, 1) if( !defined($hash->{helper}{$key}) || $hash->{helper}{$key} ne $readings{$key} ); $hash->{helper}{$key} = $readings{$key}; } } readingsEndUpdate($hash,1); } if( defined($hash->{helper}->{update}) ) { delete $hash->{helper}->{update}; fhem( "set $hash->{IODev}{NAME} statusRequest" ); return undef; } return undef; } $hash->{modelid} = $result->{modelid} if( defined($result->{modelid}) ); $hash->{productid} = $result->{productid} if( defined($result->{productid}) ); $hash->{swversion} = $result->{swversion} if( defined($result->{swversion}) ); $hash->{swconfigid} = $result->{swconfigid} if( defined($result->{swconfigid}) ); $hash->{manufacturername} = $result->{manufacturername} if( defined($result->{manufacturername}) ); $hash->{luminaireuniqueid} = $result->{luminaireuniqueid} if( defined($result->{luminaireuniqueid}) ); if( $hash->{helper}->{devtype} eq 'S' ) { my %readings; if( my $config = $result->{config} ) { $hash->{on} = $config->{on}?1:0 if( defined($config->{on}) ); $hash->{reachable} = $config->{reachable}?1:0 if( defined($config->{reachable}) ); $hash->{url} = $config->{url} if( defined($config->{url}) ); $hash->{lat} = $config->{lat} if( defined($config->{lat}) ); $hash->{long} = $config->{long} if( defined($config->{long}) ); $hash->{sunriseoffset} = $config->{sunriseoffset} if( defined($config->{sunriseoffset}) ); $hash->{sunsetoffset} = $config->{sunsetoffset} if( defined($config->{sunsetoffset}) ); $hash->{tholddark} = $config->{tholddark} if( defined($config->{tholddark}) ); $hash->{sensitivity} = $config->{sensitivity} if( defined($config->{sensitivity}) ); $readings{battery} = $config->{battery} if( defined($config->{battery}) ); $readings{reachable} = $config->{reachable} if( defined($config->{reachable}) ); } my $lastupdated; my $lastupdated_local; if( my $state = $result->{state} ) { $lastupdated = $state->{lastupdated}; return undef if( !$lastupdated ); return undef if( $lastupdated eq 'none' ); substr( $lastupdated, 10, 1, ' ' ) if($lastupdated); my $offset = 0; if( my $iohash = $hash->{IODev} ) { substr( $lastupdated, 10, 1, '_' ); my $sec = SVG_time_to_sec($lastupdated); $lastupdated = FmtDateTime($sec); if( my $offset_bridge = $iohash->{helper}{offsetUTC} ) { $offset = $offset_bridge; Log3 $name, 4, "$name: use offsetUTC $offset from bridge"; }else{ #we do not have received the offsetUTC from the bridge, use the system offsetUTC until we received it my @t = localtime(time); $offset = timegm(@t) - timelocal(@t); Log3 $name, 4, "$name: use offsetUTC $offset from system"; } #add offset to UTC for displaying in fhem $sec += $offset; $lastupdated_local = FmtDateTime($sec); }else{ $lastupdated_local = $lastupdated; } $hash->{lastupdated} = ReadingsVal( $name, '.lastupdated', undef ) if( !$hash->{lastupdated} ); $hash->{lastupdated_local} = ReadingsVal( $name, '.lastupdated_local', undef ) if( !$hash->{lastupdated_local} ); return undef if( $hash->{lastupdated} && $hash->{lastupdated} eq $lastupdated ); Log3 $name, 4, "$name: lastupdated: $lastupdated, hash->{lastupdated}: $hash->{lastupdated}, lastupdated_local: $lastupdated_local, offsetUTC: $offset"; Log3 $name, 5, "$name: ". Dumper $result if($HUEDevice_hasDataDumper); $hash->{lastupdated} = $lastupdated; $hash->{lastupdated_local} = $lastupdated_local; $readings{state} = $state->{status} if( defined($state->{status}) ); $readings{state} = $state->{flag}?'1':'0' if( defined($state->{flag}) ); $readings{state} = $state->{open}?'open':'closed' if( defined($state->{open}) ); $readings{state} = $state->{lightlevel} if( defined($state->{lightlevel}) && !defined($state->{lux}) ); $readings{state} = $state->{buttonevent} if( defined($state->{buttonevent}) ); $readings{state} = $state->{presence}?'motion':'nomotion' if( defined($state->{presence}) ); $readings{state} = $state->{fire}?'fire':'nofire' if( defined($state->{fire}) ); $readings{dark} = $state->{dark}?'1':'0' if( defined($state->{dark}) ); $readings{humidity} = $state->{humidity} * 0.01 if( defined($state->{humidity}) ); $readings{daylight} = $state->{daylight}?'1':'0' if( defined($state->{daylight}) ); $readings{temperature} = $state->{temperature} * 0.01 if( defined($state->{temperature}) ); $readings{pressure} = $state->{pressure} if( defined($state->{pressure}) ); $readings{lightlevel} = $state->{lightlevel} if( defined($state->{lightlevel}) ); $readings{lux} = $state->{lux} if( defined($state->{lux}) ); $readings{power} = $state->{power} if( defined($state->{power}) ); $readings{voltage} = $state->{voltage} if( defined($state->{voltage}) ); $readings{current} = $state->{current} if( defined($state->{current}) ); $readings{consumption} = $state->{consumption} if( defined($state->{consumption}) ); $readings{water} = $state->{water} if( defined($state->{water}) ); $readings{fire} = $state->{fire} if( defined($state->{fire}) ); $readings{tampered} = $state->{tampered} if( defined($state->{tampered}) ); $readings{battery} = $state->{lowbattery}?'low':'OK' if( defined($state->{lowbattery}) ); } if( scalar keys %readings ) { readingsBeginUpdate($hash); my $i = 0; foreach my $key ( keys %readings ) { if( defined($readings{$key}) ) { if( $lastupdated_local) { $hash->{'.updateTimestamp'} = $lastupdated_local; $hash->{CHANGETIME}[$i] = $lastupdated_local; } readingsBulkUpdate($hash, $key, $readings{$key}, 1); ++$i; } } if( $lastupdated_local ) { $hash->{'.updateTimestamp'} = $lastupdated_local; $hash->{CHANGETIME}[$i] = $lastupdated_local; readingsBulkUpdate($hash, '.lastupdated_local', $lastupdated_local, 0); } if( $lastupdated ) { readingsBulkUpdate($hash, '.lastupdated', $lastupdated, 0); } readingsEndUpdate($hash,1); delete $hash->{CHANGETIME}; } return undef; } $attr{$name}{model} = $result->{modelid} if( !defined($attr{$name}{model}) && $result->{modelid} ); if( !defined($attr{$name}{subType}) ) { if( defined($attr{$name}{model}) ) { if( defined($hueModels{$attr{$name}{model}}{subType}) ) { $attr{$name}{subType} = $hueModels{$attr{$name}{model}}{subType}; HUEDeviceSetIcon($hash) if( $hash->{helper}{fromAutocreate} ); } elsif( $attr{$name}{model} =~ m/TW$/ ) { $attr{$name}{subType} = 'ctdimmer'; } elsif( $attr{$name}{model} =~ m/RGB$/ ) { $attr{$name}{subType} = 'colordimmer'; } elsif( $attr{$name}{model} =~ m/RGBW$/ ) { $attr{$name}{subType} = 'extcolordimmer'; } delete $hash->{helper}{fromAutocreate}; } if( !defined($attr{$name}{subType}) && $hash->{type} ) { if( $hash->{type} eq "Extended color light" ) { $attr{$name}{subType} = 'extcolordimmer'; } elsif( $hash->{type} eq "Color light" ) { $attr{$name}{subType} = 'colordimmer'; } elsif( $hash->{type} eq "Color temperature light" ) { $attr{$name}{subType} = 'ctdimmer'; } elsif( $hash->{type} =~ m/Dimmable/ ) { $attr{$name}{subType} = 'dimmer'; } elsif( $hash->{type} =~ m/On.Off/ ) { $attr{$name}{subType} = 'switch'; } } } elsif( $attr{$name}{subType} eq "colordimmer" && defined($attr{$name}{model}) ) { $attr{$name}{subType} = $hueModels{$attr{$name}{model}}{subType} if( defined($hueModels{$attr{$name}{model}}{subType}) ); } $attr{$name}{devStateIcon} = '{(HUEDevice_devStateIcon($name),"toggle")}' if( !defined( $attr{$name}{devStateIcon} ) ); if( !defined($attr{$name}{webCmd}) && defined($attr{$name}{subType}) ) { my $subtype = $attr{$name}{subType}; if( !$hash->{helper}->{devtype} ) { $attr{$name}{webCmd} = 'rgb:rgb ff0000:rgb DEFF26:rgb 0000ff:ct 490:ct 380:ct 270:ct 160:toggle:on:off' if( $subtype eq "extcolordimmer" ); $attr{$name}{webCmd} = 'hue:rgb:rgb ff0000:rgb 98FF23:rgb 0000ff:toggle:on:off' if( $subtype eq "colordimmer" ); $attr{$name}{webCmd} = 'ct:ct 490:ct 380:ct 270:ct 160:toggle:on:off' if( $subtype eq "ctdimmer" ); $attr{$name}{webCmd} = 'pct:toggle:on:off' if( $subtype eq "dimmer" ); $attr{$name}{webCmd} = 'toggle:on:off' if( $subtype eq "switch" ); } elsif( $hash->{helper}->{devtype} eq 'G' ) { $attr{$name}{webCmd} = 'on:off'; } } readingsBeginUpdate($hash); my $state = $result->{'state'}; my $on = $state->{on}; $on = $hash->{helper}{on} if( !defined($on) ); my $reachable = $state->{reachable}?1:0; $reachable = $hash->{helper}{reachable} if( !defined($state->{reachable}) ); $reachable = 1 if( !$reachable && AttrVal($name, 'ignoreReachable', 0) ); my $colormode = $state->{'colormode'}; my $bri = $state->{'bri'}; $bri = $hash->{helper}{bri} if( !defined($bri) ); my $ct = $state->{'ct'}; my $hue = $state->{'hue'}; my $sat = $state->{'sat'}; my $xy = undef; $xy = $state->{'xy'}->[0] .",". $state->{'xy'}->[1] if( defined($state->{'xy'}) ); my $alert = $state->{alert}; my $effect = $state->{effect}; my $rgb = undef; $rgb = $state->{rgb} if( defined($state->{rgb}) ); if( defined($colormode) && $colormode ne $hash->{helper}{colormode} ) {readingsBulkUpdate($hash,"colormode",$colormode);} if( defined($bri) && $bri != $hash->{helper}{bri} ) {readingsBulkUpdate($hash,"bri",$bri);} if( defined($ct) && $ct != $hash->{helper}{ct} ) { if( $ct == 0 ) { readingsBulkUpdate($hash,"ct",$ct); } else { readingsBulkUpdate($hash,"ct",$ct . " (".int(1000000/$ct)."K)"); } } if( defined($hue) && $hue != $hash->{helper}{hue} ) {readingsBulkUpdate($hash,"hue",$hue);} if( defined($sat) && $sat != $hash->{helper}{sat} ) {readingsBulkUpdate($hash,"sat",$sat);} if( defined($xy) && $xy ne $hash->{helper}{xy} ) {readingsBulkUpdate($hash,"xy",$xy);} if( !defined($hash->{helper}{reachable}) || $reachable != $hash->{helper}{reachable} ) {readingsBulkUpdate($hash,"reachable",$reachable?1:0);} if( defined($alert) && $alert ne $hash->{helper}{alert} ) {readingsBulkUpdate($hash,"alert",$alert);} if( defined($effect) && $effect ne $hash->{helper}{effect} ) {readingsBulkUpdate($hash,"effect",$effect);} if( defined($rgb) && $rgb ne $hash->{helper}{rgb} ) {readingsBulkUpdate($hash,"rgb",$rgb);} my $s = ''; my $pct = -1; if( $on ) { $s = 'on'; if( $on != $hash->{helper}{on} ) {readingsBulkUpdate($hash,"onoff",1);} if( $bri < 0 || AttrVal($name, 'subType', 'dimmer') eq 'switch' ) { $pct = 100; } else { $pct = int($bri * 99 / 254 + 1); if( $pct > 0 && $pct < 100 ) { $s = $dim_values{int($pct/7)}; } $s = 'off' if( $pct == 0 ); } } else { $on = 0; $s = 'off'; $pct = 0; if( $on != $hash->{helper}{on} ) {readingsBulkUpdate($hash,"onoff",0);} } if( $pct != $hash->{helper}{pct} ) {readingsBulkUpdate($hash,"pct", $pct);} #if( $pct != $hash->{helper}{pct} ) {readingsBulkUpdate($hash,"level", $pct . ' %');} $s = 'unreachable' if( !$reachable ); $hash->{helper}{on} = $on if( defined($on) ); $hash->{helper}{reachable} = $reachable if( defined($reachable) ); $hash->{helper}{colormode} = $colormode if( defined($colormode) ); $hash->{helper}{bri} = $bri if( defined($bri) ); $hash->{helper}{ct} = $ct if( defined($ct) ); $hash->{helper}{hue} = $hue if( defined($hue) ); $hash->{helper}{sat} = $sat if( defined($sat) ); $hash->{helper}{xy} = $xy if( defined($xy) ); $hash->{helper}{alert} = $alert if( defined($alert) ); $hash->{helper}{effect} = $effect if( defined($effect) ); $hash->{helper}{rgb} = $rgb if( defined($rgb) ); $hash->{helper}{pct} = $pct; my $changed = $hash->{CHANGED}?1:0; if( $s ne $hash->{STATE} ) {readingsBulkUpdate($hash,"state",$s);} readingsEndUpdate($hash,1); if( defined($colormode) && !defined($rgb) ) { my $rgb = CommandGet("","$name rgb"); if( $rgb ne $hash->{helper}{rgb} ) { readingsSingleUpdate($hash,"rgb", $rgb,1); }; $hash->{helper}{rgb} = $rgb; } $hash->{helper}->{update_timeout} = -1; RemoveInternalTimer($hash); return $changed; } sub HUEDevice_Attr($$$;$) { my ($cmd, $name, $attrName, $attrVal) = @_; if( $attrName eq "setList" ) { my $hash = $defs{$name}; delete $hash->{helper}{setList}; return "$name is not a sensor device" if( $hash->{helper}->{devtype} ne 'S' ); return "$name is not a CLIP sensor device" if( $hash->{type} && $hash->{type} !~ m/^CLIP/ ); if( $cmd eq "set" && $attrVal ) { foreach my $line ( split( "\n", $attrVal ) ) { my($cmd,$json) = split( ":", $line,2 ); if( $cmd =~ m'^/(.*)/$' ) { my $regex = $1; $hash->{helper}{setList}{'regex'} = [] if( !$hash->{helper}{setList}{':regex'} ); push @{$hash->{helper}{setList}{'regex'}}, { regex => $regex, json => $json }; } else { $hash->{helper}{setList}{cmds}{$cmd} = $json; } } } } return; } 1; =pod =item cloudfree =item openapi =item summary devices connected to a phillips hue bridge or a osram lightify gateway =item summary_DE Geräte an einer Philips HUE Bridge oder einem Osram LIGHTIFY Gateway =begin html

HUEDevice


    Define
      define <name> HUEDevice [group|sensor] <id> [<interval>]

      Defines a device connected to a HUEBridge.

      This can be a hue bulb, a living colors light or a living whites bulb or dimmer plug.

      The device status will be updated every <interval> seconds. 0 means no updates. The default and minimum is 60 if the IODev has not set pollDevices to 1. The default ist 0 if the IODev has set pollDevices to 1. Groups are updated only on definition and statusRequest

      Examples:
        define bulb HUEDevice 1
        define LC HUEDevice 2
        define allLights HUEDevice group 0

    Readings
    • bri
      the brightness reported from the device. the value can be betwen 1 and 254
    • colormode
      the current colormode
    • ct
      the colortemperature in mireds and kelvin
    • hue
      the current hue
    • pct
      the current brightness in percent
    • onoff
      the current on/off state as 0 or 1
    • sat
      the current saturation
    • xy
      the current xy color coordinates
    • state
      the current state

      • Notes:
      • with current bridge firware versions groups have all_on and any_on readings, with older firmware versions groups have no readings.
      • not all readings show the actual device state. all readings not related to the current colormode have to be ignored.
      • the actual state of a device controlled by a living colors or living whites remote can be different and will be updated after some time.


    Set
    • on [<ramp-time>]
    • off [<ramp-time>]
    • toggle [<ramp-time>]
    • statusRequest
      Request device status update.
    • pct <value> [<ramp-time>]
      dim to <value>
      Note: the FS20 compatible dimXX% commands are also accepted.
    • color <value>
      set colortemperature to <value> kelvin.
    • bri <value> [<ramp-time>]
      set brighness to <value>; range is 0-254.
    • dimUp [delta]
    • dimDown [delta]
    • ct <value> [<ramp-time>]
      set colortemperature to <value> in mireds (range is 154-500) or kelvin (range is 2000-6493).
    • ctUp [delta]
    • ctDown [delta]
    • hue <value> [<ramp-time>]
      set hue to <value>; range is 0-65535.
    • hueUp [delta]
    • hueDown [delta]
    • sat <value> [<ramp-time>]
      set saturation to <value>; range is 0-254.
    • satUp [delta]
    • satDown [delta]
    • xy <x>,<y> [<ramp-time>]
      set the xy color coordinates to <x>,<y>
    • alert [none|select|lselect]
    • effect [none|colorloop]
    • transitiontime <time>
      set the transitiontime to <time> 1/10s
    • rgb <rrggbb>
      set the color to (the nearest equivalent of) <rrggbb>

    • delayedUpdate
    • immediateUpdate

    • savescene <id>
    • deletescene <id>
    • scene

    • lights <lights>
      Only valid for groups. Changes the list of lights in this group. The lights are given as a comma sparated list of fhem device names or bridge light numbers.
    • rename <new name>
      Renames the device in the bridge and changes the fhem alias.

    • set extensions are supported.

      • Note:
      • <ramp-time> is given in seconds
      • multiple paramters can be set at once separated by :
        Examples:
        set LC on : transitiontime 100
        set bulb on : bri 100 : color 4000

    Get
    • rgb
    • RGB
    • startup
      show startup behavior.
    • devStateIcon
      returns html code that can be used to create an icon that represents the device color in the room overview.

    Attributes
    • color-icon
      1 -> use lamp color as icon color and 100% shape as icon shape
      2 -> use lamp color scaled to full brightness as icon color and dim state as icon shape
    • createActionReadings
      create readings for the last action in group devices
    • createGroupReadings
      create 'artificial' readings for group devices. default depends on the createGroupReadings setting in the bridge device.
    • ignoreReachable
      ignore the reachable state that is reported by the hue bridge. assume the device is allways reachable.
    • setList
      The list of know set commands for sensor type devices. one command per line, eg.:
      attr mySensor setList present:{<json>}\
      absent:{<json>}
    • subType
      extcolordimmer -> device has rgb and color temperatur control
      colordimmer -> device has rgb controll
      ctdimmer -> device has color temperature control
      dimmer -> device has brightnes controll
      switch -> device has on/off controll
    • transitiontime
      default transitiontime for all set commands if not specified directly in the set.
    • delayedUpdate
      1 -> the update of the device status after a set command will be delayed for 1 second. usefull if multiple devices will be switched.
    • devStateIcon
      will be initialized to {(HUEDevice_devStateIcon($name),"toggle")} to show device color as default in room overview.
    • webCmd
      will be initialized to a device specific value according to subType.

=end html =cut