# $Id$ ############################################################################## # # 10_RESIDENTS.pm # An FHEM Perl module to ease resident administration. # # Copyright by Julian Pawlowski # e-mail: julian.pawlowski at gmail.com # # This file is part of fhem. # # Fhem is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 2 of the License, or # (at your option) any later version. # # Fhem is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with fhem. If not, see . # # # Version: 1.2.3 # # Major Version History: # - 1.2.0 - 2015-03-11 # -- add RESIDENTStoolkit support # # - 1.1.0 - 2014-04-07 # -- new readings in computer readable format (*_cr) # -- format of readings durTimer readings changed from minutes to HH:MM:ss # # - 1.0.0 - 2014-02-08 # -- First release # ############################################################################## package main; use strict; use warnings; use Time::Local; use Data::Dumper; require RESIDENTStk; sub RESIDENTS_Set($@); sub RESIDENTS_Define($$); sub RESIDENTS_Notify($$); sub RESIDENTS_Undefine($$); ################################### sub RESIDENTS_Initialize($) { my ($hash) = @_; Log3 $hash, 5, "RESIDENTS_Initialize: Entering"; $hash->{SetFn} = "RESIDENTS_Set"; $hash->{DefFn} = "RESIDENTS_Define"; $hash->{NotifyFn} = "RESIDENTS_Notify"; $hash->{UndefFn} = "RESIDENTS_Undefine"; $hash->{AttrList} = "rgr_showAllStates:0,1 rgr_states:multiple-strict,home,gotosleep,asleep,awoken,absent,gone rgr_wakeupDevice " . $readingFnAttributes; } ################################### sub RESIDENTS_Define($$) { my ( $hash, $def ) = @_; my $name = $hash->{NAME}; my $name_attr; Log3 $name, 5, "RESIDENTS $name: called function RESIDENTS_Define()"; $hash->{TYPE} = "RESIDENTS"; # set default settings on first define if ($init_done) { $attr{$name}{alias} = "Residents"; $attr{$name}{devStateIcon} = '.*home:status_available:absent .*absent:status_away_1:home .*gone:status_standby:home .*none:control_building_empty .*gotosleep:status_night:asleep .*asleep:status_night:awoken .*awoken:status_available:home .*:user_unknown:home'; $attr{$name}{group} = "Home State"; $attr{$name}{icon} = "control_building_filled"; $attr{$name}{room} = "Residents"; $attr{$name}{webCmd} = "state"; } # Injecting AttrFn for use with RESIDENTS Toolkit if ( !defined( $modules{dummy}{AttrFn} ) ) { $modules{dummy}{AttrFn} = "RESIDENTStk_AttrFnDummy"; } elsif ( $modules{dummy}{AttrFn} ne "RESIDENTStk_AttrFnDummy" ) { Log3 $name, 5, "RESIDENTStk $name: concurrent AttrFn already defined for dummy module. Some attribute based functions like auto-creations will not be available."; } return undef; } ################################### sub RESIDENTS_Undefine($$) { my ( $hash, $name ) = @_; # delete child roommates if ( defined( $hash->{ROOMMATES} ) && $hash->{ROOMMATES} ne "" ) { my @registeredRoommates = split( /,/, $hash->{ROOMMATES} ); foreach my $child (@registeredRoommates) { fhem( "delete " . $child ); Log3 $name, 3, "RESIDENTS $name: deleted device $child"; } } # delete child guests if ( defined( $hash->{GUESTS} ) && $hash->{GUESTS} ne "" ) { my @registeredGuests = split( /,/, $hash->{GUESTS} ); foreach my $child (@registeredGuests) { fhem( "delete " . $child ); Log3 $name, 3, "RESIDENTS $name: deleted device $child"; } } return undef; } ################################### sub RESIDENTS_Notify($$) { my ( $hash, $dev ) = @_; my $devName = $dev->{NAME}; my $hashName = $hash->{NAME}; # process child notifies if ( $devName ne $hashName ) { my @registeredRoommates = split( /,/, $hash->{ROOMMATES} ) if ( defined( $hash->{ROOMMATES} ) && $hash->{ROOMMATES} ne "" ); my @registeredGuests = split( /,/, $hash->{GUESTS} ) if ( defined( $hash->{GUESTS} ) && $hash->{GUESTS} ne "" ); my @registeredWakeupdevs = split( /,/, $attr{$hashName}{rgr_wakeupDevice} ) if ( defined( $attr{$hashName}{rgr_wakeupDevice} ) && $attr{$hashName}{rgr_wakeupDevice} ne "" ); # process only registered ROOMMATE or GUEST devices if ( ( @registeredRoommates && $devName ~~ @registeredRoommates ) || ( @registeredGuests && $devName ~~ @registeredGuests ) ) { return if ( !$dev->{CHANGED} ); # Some previous notify deleted the array. foreach my $change ( @{ $dev->{CHANGED} } ) { Log3 $dev->{NAME}, 5, "RESIDENTS " . $dev->{NAME} . ": processing change $change"; # state changed if ( $change !~ /:/ || $change =~ /wayhome:/ || $change =~ /wakeup:/ ) { Log3 $hash, 4, "RESIDENTS " . $hashName . ": " . $devName . ": notify about change to $change"; RESIDENTS_UpdateReadings($hash); } # activity if ( $change !~ /:/ ) { # get user realname my $realnamesrc; if ( $dev->{TYPE} eq "GUEST" ) { $realnamesrc = ( defined( $attr{$devName}{rg_realname} ) && $attr{$devName}{rg_realname} ne "" ? $attr{$devName}{rg_realname} : "alias" ); } else { $realnamesrc = ( defined( $attr{$devName}{rr_realname} ) && $attr{$devName}{rr_realname} ne "" ? $attr{$devName}{rr_realname} : "group" ); } my $realname = ( defined( $attr{$devName}{$realnamesrc} ) && $attr{$devName}{$realnamesrc} ne "" ? $attr{$devName}{$realnamesrc} : $devName ); # update statistics readingsBeginUpdate($hash); readingsBulkUpdate( $hash, "lastActivity", $change ); readingsBulkUpdate( $hash, "lastActivityBy", $realname ); readingsBulkUpdate( $hash, "lastActivityByDev", $devName ); readingsEndUpdate( $hash, 1 ); } } return; } # if we have registered wakeup devices if (@registeredWakeupdevs) { # if this is a notification of a registered wakeup device if ( $devName ~~ @registeredWakeupdevs ) { # Some previous notify deleted the array. return if ( !$dev->{CHANGED} ); foreach my $change ( @{ $dev->{CHANGED} } ) { RESIDENTStk_wakeupSet( $devName, $change ); } return; } # process sub-child notifies: *_wakeupDevice foreach my $wakeupDev (@registeredWakeupdevs) { # if this is a notification of a registered sub dummy device # of one of our wakeup devices if ( defined( $attr{$wakeupDev}{wakeupResetSwitcher} ) && $attr{$wakeupDev}{wakeupResetSwitcher} eq $devName && $defs{$devName}{TYPE} eq "dummy" ) { # Some previous notify deleted the array. return if ( !$dev->{CHANGED} ); foreach my $change ( @{ $dev->{CHANGED} } ) { RESIDENTStk_wakeupSet( $wakeupDev, $change ) if ( $change ne "off" ); } last; } } } } return; } ################################### sub RESIDENTS_Set($@) { my ( $hash, @a ) = @_; my $name = $hash->{NAME}; my $state = ( defined( $hash->{READINGS}{state}{VAL} ) ) ? $hash->{READINGS}{state}{VAL} : "initialized"; my $roommates = ( $hash->{ROOMMATES} ? $hash->{ROOMMATES} : "" ); my $guests = ( $hash->{GUESTS} ? $hash->{GUESTS} : "" ); Log3 $name, 5, "RESIDENTS $name: called function RESIDENTS_Set()"; return "No Argument given" if ( !defined( $a[1] ) ); # depending on current FHEMWEB instance's allowedCommands, # restrict set commands if there is "set-user" in it my $adminMode = 1; my $FWallowedCommands = 0; $FWallowedCommands = AttrVal( $FW_wname, "allowedCommands", 0 ) if ( defined($FW_wname) ); if ( $FWallowedCommands && $FWallowedCommands =~ m/\bset-user\b/ ) { $adminMode = 0; return "Forbidden command: set " . $a[1] if ( lc( $a[1] ) eq "addroommate" || lc( $a[1] ) eq "addguest" || lc( $a[1] ) eq "removeroommate" || lc( $a[1] ) eq "removeguest" || lc( $a[1] ) eq "create" ); } # states my $states = ( defined( $attr{$name}{rgr_states} ) ? $attr{$name}{rgr_states} : ( defined( $attr{$name}{rgr_showAllStates} ) && $attr{$name}{rgr_showAllStates} == 1 ? "home,gotosleep,asleep,awoken,absent,gone" : "home,gotosleep,absent,gone" ) ); $states = $state . "," . $states if ( $state ne "initialized" && $states !~ /$state/ ); my $usage = "Unknown argument " . $a[1] . ", choose one of state:$states"; if ($adminMode) { $usage .= " addRoommate addGuest"; $usage .= " removeRoommate:" . $roommates if ( $roommates ne "" ); $usage .= " removeGuest:" . $guests if ( $guests ne "" ); $usage .= " create:wakeuptimer"; } # states if ( $a[1] eq "state" || $a[1] eq "home" || $a[1] eq "gotosleep" || $a[1] eq "asleep" || $a[1] eq "awoken" || $a[1] eq "absent" || $a[1] eq "gone" ) { my $newstate; my $presence = "absent"; # if not direct if ( $a[1] eq "state" && defined( $a[2] ) && ( $a[2] eq "home" || $a[2] eq "gotosleep" || $a[2] eq "asleep" || $a[2] eq "awoken" || $a[2] eq "absent" || $a[2] eq "gone" ) ) { $newstate = $a[2]; } elsif ( defined( $a[2] ) ) { return "Invalid 2nd argument, choose one of home gotosleep asleep awoken absent gone "; } else { $newstate = $a[1]; } Log3 $name, 2, "RESIDENTS set $name " . $newstate; # loop through every roommate if ( defined( $hash->{ROOMMATES} ) && $hash->{ROOMMATES} ne "" ) { my @registeredRoommates = split( /,/, $hash->{ROOMMATES} ); foreach my $roommate (@registeredRoommates) { if ( defined( $defs{$roommate} ) && $defs{$roommate}{READINGS}{state} ne $newstate ) { fhem "set $roommate silentSet state $newstate"; } } } # loop through every guest if ( defined( $hash->{GUESTS} ) && $hash->{GUESTS} ne "" ) { $newstate = "none" if ( $newstate eq "gone" ); my @registeredGuests = split( /,/, $hash->{GUESTS} ); foreach my $guest (@registeredGuests) { if ( defined( $defs{$guest} ) && $defs{$guest}{READINGS}{state}{VAL} ne "none" && $defs{$guest}{READINGS}{state}{VAL} ne $newstate ) { fhem "set $guest silentSet state $newstate"; } } } } # addRoommate elsif ( $a[1] eq "addRoommate" ) { Log3 $name, 2, "RESIDENTS set $name " . $a[1] . " " . $a[2] if ( defined( $a[2] ) ); my $rr_name; my $rr_name_attr; if ( $a[2] ne "" ) { $rr_name = "rr_" . $a[2]; # define roommate if ( !defined( $defs{$rr_name} ) ) { fhem( "define " . $rr_name . " ROOMMATE " . $name ); if ( defined( $defs{$rr_name} ) ) { fhem "set $rr_name silentSet state home"; Log3 $name, 3, "RESIDENTS $name: created new device $rr_name"; } } else { return "Can't create, device $rr_name already existing."; } } else { return "No Argument given, choose one of name "; } } # removeRoommate elsif ( $a[1] eq "removeRoommate" ) { Log3 $name, 2, "RESIDENTS set $name " . $a[1] . " " . $a[2] if ( defined( $a[2] ) ); if ( $a[2] ne "" ) { my $rr_name = $a[2]; # delete roommate if ( defined( $defs{$rr_name} ) ) { Log3 $name, 3, "RESIDENTS $name: deleted device $rr_name" if fhem( "delete " . $rr_name ); } } else { return "No Argument given, choose one of name "; } } # addGuest elsif ( $a[1] eq "addGuest" ) { Log3 $name, 2, "RESIDENTS set $name " . $a[1] . " " . $a[2] if ( defined( $a[2] ) ); my $rg_name; my $rg_name_attr; if ( $a[2] ne "" ) { $rg_name = "rg_" . $a[2]; # define guest if ( !defined( $defs{$rg_name} ) ) { fhem( "define " . $rg_name . " GUEST " . $name ); if ( defined( $defs{$rg_name} ) ) { fhem "set $rg_name silentSet state none"; Log3 $name, 3, "RESIDENTS $name: created new device $rg_name"; } } else { return "Can't create, device $rg_name already existing."; } } else { return "No Argument given, choose one of name "; } } # removeGuest elsif ( $a[1] eq "removeGuest" ) { Log3 $name, 2, "RESIDENTS set $name " . $a[1] . " " . $a[2] if ( defined( $a[2] ) ); if ( $a[2] ne "" ) { my $rg_name = $a[2]; # delete guest if ( defined( $defs{$rg_name} ) ) { Log3 $name, 3, "RESIDENTS $name: deleted device $rg_name" if fhem( "delete " . $rg_name ); } } else { return "No Argument given, choose one of name "; } } # register elsif ( $a[1] eq "register" ) { if ( defined( $a[2] ) && $a[2] ne "" ) { return "No such device " . $a[2] if ( !defined( $defs{ $a[2] } ) ); # ROOMMATE if ( $defs{ $a[2] }{TYPE} eq "ROOMMATE" ) { Log3 $name, 4, "RESIDENTS $name: " . $a[2] . " registered"; # update readings $roommates .= ( $roommates eq "" ? $a[2] : "," . $a[2] ) if ( $roommates !~ /$a[2]/ ); $hash->{ROOMMATES} = $roommates; } # GUEST elsif ( $defs{ $a[2] }{TYPE} eq "GUEST" ) { Log3 $name, 4, "RESIDENTS $name: " . $a[2] . " registered"; # update readings $guests .= ( $guests eq "" ? $a[2] : "," . $a[2] ) if ( $guests !~ /$a[2]/ ); $hash->{GUESTS} = $guests; } # unsupported else { return "Device type is not supported."; } } else { return "No Argument given, choose one of ROOMMATE GUEST "; } } # unregister elsif ( $a[1] eq "unregister" ) { if ( defined( $a[2] ) && $a[2] ne "" ) { return "No such device " . $a[2] if ( !defined( $defs{ $a[2] } ) ); # ROOMMATE if ( $defs{ $a[2] }{TYPE} eq "ROOMMATE" ) { Log3 $name, 4, "RESIDENTS $name: " . $a[2] . " unregistered"; # update readings my $replace = "," . $a[2]; $roommates =~ s/$replace//g; $replace = $a[2] . ","; $roommates =~ s/^$replace//g; $roommates =~ s/^$a[2]//g; $hash->{ROOMMATES} = $roommates; } # GUEST elsif ( $defs{ $a[2] }{TYPE} eq "GUEST" ) { Log3 $name, 4, "RESIDENTS $name: " . $a[2] . " unregistered"; # update readings my $replace = "," . $a[2]; $guests =~ s/$replace//g; $replace = $a[2] . ","; $guests =~ s/^$replace//g; $guests =~ s/^$a[2]//g; $hash->{GUESTS} = $guests; } # unsupported else { return "Device type is not supported."; } } else { return "No Argument given, choose one of ROOMMATE GUEST "; } RESIDENTS_UpdateReadings($hash); } # create elsif ( $a[1] eq "create" ) { if ( defined( $a[2] ) && $a[2] eq "wakeuptimer" ) { my $i = "1"; my $wakeuptimerName = $name . "_wakeuptimer" . $i; my $created = 0; until ($created) { if ( defined( $defs{$wakeuptimerName} ) ) { $i++; $wakeuptimerName = $name . "_wakeuptimer" . $i; } else { my $sortby = AttrVal( $name, "sortby", -1 ); $sortby++; # create new dummy device fhem "define $wakeuptimerName dummy"; fhem "attr $wakeuptimerName alias Wake-up Timer $i"; fhem "attr $wakeuptimerName comment Auto-created by RESIDENTS module for use with RESIDENTS Toolkit"; fhem "attr $wakeuptimerName devStateIcon OFF:general_aus\@red:reset running:general_an\@blue:stop .*:general_an\@green:nextRun%20OFF"; fhem "attr $wakeuptimerName group " . $attr{$name}{group} if ( defined( $attr{$name}{group} ) ); fhem "attr $wakeuptimerName icon time_timer"; fhem "attr $wakeuptimerName room " . $attr{$name}{room} if ( defined( $attr{$name}{room} ) ); fhem "attr $wakeuptimerName setList nextRun:OFF,00:00,00:15,00:30,00:45,01:00,01:15,01:30,01:45,02:00,02:15,02:30,02:45,03:00,03:15,03:30,03:45,04:00,04:15,04:30,04:45,05:00,05:15,05:30,05:45,06:00,06:15,06:30,06:45,07:00,07:15,07:30,07:45,08:00,08:15,08:30,08:45,09:00,09:15,09:30,09:45,10:00,10:15,10:30,10:45,11:00,11:15,11:30,11:45,12:00,12:15,12:30,12:45,13:00,13:15,13:30,13:45,14:00,14:15,14:30,14:45,15:00,15:15,15:30,15:45,16:00,16:15,16:30,16:45,17:00,17:15,17:30,17:45,18:00,18:15,18:30,18:45,19:00,19:15,19:30,19:45,20:00,20:15,20:30,20:45,21:00,21:15,21:30,21:45,22:00,22:15,22:30,22:45,23:00,23:15,23:30,23:45 reset:noArg trigger:noArg start:noArg stop:noArg end:noArg"; fhem "attr $wakeuptimerName userattr wakeupUserdevice"; fhem "attr $wakeuptimerName sortby " . $sortby if ($sortby); fhem "attr $wakeuptimerName wakeupUserdevice $name"; fhem "attr $wakeuptimerName webCmd nextRun"; # register slave device my $wakeupDevice = AttrVal( $name, "rgr_wakeupDevice", 0 ); if ( !$wakeupDevice ) { fhem "attr $name rgr_wakeupDevice $wakeuptimerName"; } elsif ( $wakeupDevice !~ /(.*,?)($wakeuptimerName)(.*,?)/ ) { fhem "attr $name rgr_wakeupDevice " . $wakeupDevice . ",$wakeuptimerName"; } # trigger first update fhem "set $wakeuptimerName nextRun OFF"; $created = 1; } } return "Dummy $wakeuptimerName and other pending devices created and pre-configured.\nYou may edit Macro_$wakeuptimerName to define your wake-up actions\nand at_$wakeuptimerName for optional at-device adjustments."; } else { return "Invalid 2nd argument, choose one of wakeuptimer "; } } # return usage hint else { return $usage; } return undef; } ############################################################################################################ # # Begin of helper functions # ############################################################################################################ sub RESIDENTS_UpdateReadings (@) { my ($hash) = @_; my $name = $hash->{NAME}; my $state = ( defined( $hash->{READINGS}{state}{VAL} ) ) ? $hash->{READINGS}{state}{VAL} : "none"; my $presence = ( defined( $hash->{READINGS}{presence}{VAL} ) ) ? $hash->{READINGS}{presence}{VAL} : "absent"; my $state_home = 0; my $state_gotosleep = 0; my $state_asleep = 0; my $state_awoken = 0; my $state_absent = 0; my $state_gone = 0; my $state_total = 0; my $state_totalPresent = 0; my $state_totalAbsent = 0; my $state_totalGuests = 0; my $state_totalGuestsPresent = 0; my $state_totalGuestsAbsent = 0; my $state_guestDev = 0; my $residentsDevs_home = "-"; my $residentsDevs_absent = "-"; my $residentsDevs_asleep = "-"; my $residentsDevs_awoken = "-"; my $residentsDevs_gone = "-"; my $residentsDevs_gotosleep = "-"; my $residentsDevs_wakeup = "-"; my $residentsDevs_wayhome = "-"; my $residentsDevs_totalAbsent = "-"; my $residentsDevs_totalPresent = "-"; my $residentsDevs_totalAbsentGuest = "-"; my $residentsDevs_totalPresentGuest = "-"; my $residents_home = "-"; my $residents_absent = "-"; my $residents_asleep = "-"; my $residents_awoken = "-"; my $residents_gone = "-"; my $residents_gotosleep = "-"; my $residents_wakeup = "-"; my $residents_wayhome = "-"; my $residents_totalAbsent = "-"; my $residents_totalPresent = "-"; my $residents_totalAbsentGuest = "-"; my $residents_totalPresentGuest = "-"; my $wayhome = 0; my $wakeup = 0; my $newstate; my @registeredRoommates = split( /,/, $hash->{ROOMMATES} ) if ( defined( $hash->{ROOMMATES} ) && $hash->{ROOMMATES} ne "" ); my @registeredGuests = split( /,/, $hash->{GUESTS} ) if ( defined( $hash->{GUESTS} ) && $hash->{GUESTS} ne "" ); # count child states for ROOMMATE devices foreach my $roommate (@registeredRoommates) { $state_total++; my $roommateName = AttrVal( $roommate, AttrVal( $roommate, "rr_realname", "alias" ), "" ); Log3 $name, 5, "RESIDENTS $name: considering $roommate for state change"; if ( defined( $defs{$roommate}{READINGS}{state}{VAL} ) ) { if ( $defs{$roommate}{READINGS}{state}{VAL} eq "home" ) { $state_home++; $residentsDevs_home .= "," . $roommate if ( $residentsDevs_home ne "-" ); $residentsDevs_home = $roommate if ( $residentsDevs_home eq "-" ); $residents_home .= "," . $roommateName if ( $roommateName ne "" && $residents_home ne "-" ); $residents_home = $roommateName if ( $roommateName ne "" && $residents_home eq "-" ); $state_totalPresent++; $residentsDevs_totalPresent .= "," . $roommate if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $roommate if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $roommateName if ( $roommateName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$roommate}{READINGS}{state}{VAL} eq "gotosleep" ) { $state_gotosleep++; $residentsDevs_gotosleep .= "," . $roommate if ( $residentsDevs_gotosleep ne "-" ); $residentsDevs_gotosleep = $roommate if ( $residentsDevs_gotosleep eq "-" ); $residents_gotosleep .= "," . $roommateName if ( $roommateName ne "" && $residents_gotosleep ne "-" ); $residents_gotosleep = $roommateName if ( $roommateName ne "" && $residents_gotosleep eq "-" ); $state_totalPresent++; $residentsDevs_totalPresent .= "," . $roommate if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $roommate if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $roommateName if ( $roommateName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$roommate}{READINGS}{state}{VAL} eq "asleep" ) { $state_asleep++; $residentsDevs_asleep .= "," . $roommate if ( $residentsDevs_asleep ne "-" ); $residentsDevs_asleep = $roommate if ( $residentsDevs_asleep eq "-" ); $residents_asleep .= "," . $roommateName if ( $roommateName ne "" && $residents_asleep ne "-" ); $residents_asleep = $roommateName if ( $roommateName ne "" && $residents_asleep eq "-" ); $state_totalPresent++; $residentsDevs_totalPresent .= "," . $roommate if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $roommate if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $roommateName if ( $roommateName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$roommate}{READINGS}{state}{VAL} eq "awoken" ) { $state_awoken++; $residentsDevs_awoken .= "," . $roommate if ( $residentsDevs_awoken ne "-" ); $residentsDevs_awoken = $roommate if ( $residentsDevs_awoken eq "-" ); $residents_awoken .= "," . $roommateName if ( $roommateName ne "" && $residents_awoken ne "-" ); $residents_awoken = $roommateName if ( $roommateName ne "" && $residents_awoken eq "-" ); $state_totalPresent++; $residentsDevs_totalPresent .= "," . $roommate if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $roommate if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $roommateName if ( $roommateName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$roommate}{READINGS}{state}{VAL} eq "absent" ) { $state_absent++; $residentsDevs_absent .= "," . $roommate if ( $residentsDevs_absent ne "-" ); $residentsDevs_absent = $roommate if ( $residentsDevs_absent eq "-" ); $residents_absent .= "," . $roommateName if ( $roommateName ne "" && $residents_absent ne "-" ); $residents_absent = $roommateName if ( $roommateName ne "" && $residents_absent eq "-" ); $state_totalAbsent++; $residentsDevs_totalAbsent .= "," . $roommate if ( $residentsDevs_totalAbsent ne "-" ); $residentsDevs_totalAbsent = $roommate if ( $residentsDevs_totalAbsent eq "-" ); $residents_totalAbsent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalAbsent ne "-" ); $residents_totalAbsent = $roommateName if ( $roommateName ne "" && $residents_totalAbsent eq "-" ); } elsif ( $defs{$roommate}{READINGS}{state}{VAL} eq "gone" ) { $state_gone++; $residentsDevs_gone .= "," . $roommate if ( $residentsDevs_gone ne "-" ); $residentsDevs_gone = $roommate if ( $residentsDevs_gone eq "-" ); $residents_gone .= "," . $roommateName if ( $roommateName ne "" && $residents_gone ne "-" ); $residents_gone = $roommateName if ( $roommateName ne "" && $residents_gone eq "-" ); $state_totalAbsent++; $residentsDevs_totalAbsent .= "," . $roommate if ( $residentsDevs_totalAbsent ne "-" ); $residentsDevs_totalAbsent = $roommate if ( $residentsDevs_totalAbsent eq "-" ); $residents_totalAbsent .= "," . $roommateName if ( $roommateName ne "" && $residents_totalAbsent ne "-" ); $residents_totalAbsent = $roommateName if ( $roommateName ne "" && $residents_totalAbsent eq "-" ); } } if ( defined( $defs{$roommate}{READINGS}{wakeup}{VAL} ) && $defs{$roommate}{READINGS}{wakeup}{VAL} > 0 ) { $wakeup += $defs{$roommate}{READINGS}{wakeup}{VAL}; $residentsDevs_wakeup .= "," . $roommate if ( $residentsDevs_wakeup ne "-" ); $residentsDevs_wakeup = $roommate if ( $residentsDevs_wakeup eq "-" ); $residents_wakeup .= "," . $roommateName if ( $roommateName ne "" && $residents_wakeup ne "-" ); $residents_wakeup = $roommateName if ( $roommateName ne "" && $residents_wakeup eq "-" ); } if ( defined( $defs{$roommate}{READINGS}{wayhome}{VAL} ) && $defs{$roommate}{READINGS}{wayhome}{VAL} > 0 ) { $wayhome += $defs{$roommate}{READINGS}{wayhome}{VAL}; $residents_wayhome .= "," . $roommate if ( $residents_wayhome ne "-" ); $residents_wayhome = $roommate if ( $residents_wayhome eq "-" ); $residents_wayhome .= "," . $roommateName if ( $roommateName ne "" && $residents_wayhome ne "-" ); $residents_wayhome = $roommateName if ( $roommateName ne "" && $residents_wayhome eq "-" ); } } # count child states for GUEST devices foreach my $guest (@registeredGuests) { $state_guestDev++; my $guestName = AttrVal( $guest, AttrVal( $guest, "rg_realname", "alias" ), "" ); Log3 $name, 5, "RESIDENTS $name: considering $guest for state change"; if ( defined( $defs{$guest}{READINGS}{state}{VAL} ) ) { if ( $defs{$guest}{READINGS}{state}{VAL} eq "home" ) { $state_home++; $state_totalPresent++; $state_totalGuestsPresent++; $state_totalGuests++; $state_total++; $residentsDevs_totalPresentGuest .= "," . $guest if ( $residentsDevs_totalPresentGuest ne "-" ); $residentsDevs_totalPresentGuest = $guest if ( $residentsDevs_totalPresentGuest eq "-" ); $residents_totalPresentGuest .= "," . $guestName if ( $guestName ne "" && $residents_totalPresentGuest ne "-" ); $residents_totalPresentGuest = $guestName if ( $guestName ne "" && $residents_totalPresentGuest eq "-" ); $residentsDevs_totalPresent .= "," . $guest if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $guest if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $guestName if ( $guestName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $guestName if ( $guestName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$guest}{READINGS}{state}{VAL} eq "gotosleep" ) { $state_gotosleep++; $state_totalPresent++; $state_totalGuestsPresent++; $state_totalGuests++; $state_total++; $residentsDevs_totalPresentGuest .= "," . $guest if ( $residentsDevs_totalPresentGuest ne "-" ); $residentsDevs_totalPresentGuest = $guest if ( $residentsDevs_totalPresentGuest eq "-" ); $residents_totalPresentGuest .= "," . $guestName if ( $guestName ne "" && $residents_totalPresentGuest ne "-" ); $residents_totalPresentGuest = $guestName if ( $guestName ne "" && $residents_totalPresentGuest eq "-" ); $residentsDevs_totalPresent .= "," . $guest if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $guest if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $guestName if ( $guestName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $guestName if ( $guestName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$guest}{READINGS}{state}{VAL} eq "asleep" ) { $state_asleep++; $state_totalPresent++; $state_totalGuestsPresent++; $state_totalGuests++; $state_total++; $residentsDevs_totalPresentGuest .= "," . $guest if ( $residentsDevs_totalPresentGuest ne "-" ); $residentsDevs_totalPresentGuest = $guest if ( $residentsDevs_totalPresentGuest eq "-" ); $residents_totalPresentGuest .= "," . $guestName if ( $guestName ne "" && $residents_totalPresentGuest ne "-" ); $residents_totalPresentGuest = $guestName if ( $guestName ne "" && $residents_totalPresentGuest eq "-" ); $residentsDevs_totalPresent .= "," . $guest if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $guest if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $guestName if ( $guestName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $guestName if ( $guestName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$guest}{READINGS}{state}{VAL} eq "awoken" ) { $state_awoken++; $state_totalPresent++; $state_totalGuestsPresent++; $state_totalGuests++; $state_total++; $residentsDevs_totalPresentGuest .= "," . $guest if ( $residentsDevs_totalPresentGuest ne "-" ); $residentsDevs_totalPresentGuest = $guest if ( $residentsDevs_totalPresentGuest eq "-" ); $residents_totalPresentGuest .= "," . $guestName if ( $guestName ne "" && $residents_totalPresentGuest ne "-" ); $residents_totalPresentGuest = $guestName if ( $guestName ne "" && $residents_totalPresentGuest eq "-" ); $residentsDevs_totalPresent .= "," . $guest if ( $residentsDevs_totalPresent ne "-" ); $residentsDevs_totalPresent = $guest if ( $residentsDevs_totalPresent eq "-" ); $residents_totalPresent .= "," . $guestName if ( $guestName ne "" && $residents_totalPresent ne "-" ); $residents_totalPresent = $guestName if ( $guestName ne "" && $residents_totalPresent eq "-" ); } elsif ( $defs{$guest}{READINGS}{state}{VAL} eq "absent" ) { $state_absent++; $state_totalAbsent++; $state_totalGuestsAbsent++; $state_totalGuests++; $state_total++; $residentsDevs_totalAbsentGuest .= "," . $guest if ( $residentsDevs_totalAbsentGuest ne "-" ); $residentsDevs_totalAbsentGuest = $guest if ( $residentsDevs_totalAbsentGuest eq "-" ); $residents_totalAbsentGuest .= "," . $guestName if ( $guestName ne "" && $residents_totalAbsentGuest ne "-" ); $residents_totalAbsentGuest = $guestName if ( $guestName ne "" && $residents_totalAbsentGuest eq "-" ); $residentsDevs_totalAbsent .= "," . $guest if ( $residentsDevs_totalAbsent ne "-" ); $residentsDevs_totalAbsent = $guest if ( $residentsDevs_totalAbsent eq "-" ); $residents_totalAbsent .= "," . $guestName if ( $guestName ne "" && $residents_totalAbsent ne "-" ); $residents_totalAbsent = $guestName if ( $guestName ne "" && $residents_totalAbsent eq "-" ); } } if ( defined( $defs{$guest}{READINGS}{wakeup}{VAL} ) && $defs{$guest}{READINGS}{wakeup}{VAL} > 0 ) { $wakeup += $defs{$guest}{READINGS}{wakeup}{VAL}; $residentsDevs_wakeup .= "," . $guest if ( $residentsDevs_wakeup ne "-" ); $residentsDevs_wakeup = $guest if ( $residentsDevs_wakeup eq "-" ); $residents_wakeup .= "," . $guestName if ( $guestName ne "" && $residents_wakeup ne "-" ); $residents_wakeup = $guestName if ( $guestName ne "" && $residents_wakeup eq "-" ); } if ( defined( $defs{$guest}{READINGS}{wayhome}{VAL} ) && $defs{$guest}{READINGS}{wayhome}{VAL} > 0 ) { $wayhome += $defs{$guest}{READINGS}{wayhome}{VAL}; $residents_wayhome .= "," . $guest if ( $residents_wayhome ne "-" ); $residents_wayhome = $guest if ( $residents_wayhome eq "-" ); $residents_wayhome .= "," . $guestName if ( $guestName ne "" && $residents_wayhome ne "-" ); $residents_wayhome = $guestName if ( $guestName ne "" && $residents_wayhome eq "-" ); $residentsDevs_totalAbsent .= "," . $guest if ( $residentsDevs_totalAbsent ne "-" ); $residentsDevs_totalAbsent = $guest if ( $residentsDevs_totalAbsent eq "-" ); $residents_totalAbsent .= "," . $guestName if ( $guestName ne "" && $residents_totalAbsent ne "-" ); $residents_totalAbsent = $guestName if ( $guestName ne "" && $residents_totalAbsent eq "-" ); } } # update counter readingsBeginUpdate($hash); readingsBulkUpdate( $hash, "residentsTotal", $state_total ) if ( !defined( $hash->{READINGS}{residentsTotal}{VAL} ) || $hash->{READINGS}{residentsTotal}{VAL} ne $state_total ); readingsBulkUpdate( $hash, "residentsTotalGuests", $state_totalGuests ) if ( !defined( $hash->{READINGS}{residentsTotalGuests}{VAL} ) || $hash->{READINGS}{residentsTotalGuests}{VAL} ne $state_totalGuests ); readingsBulkUpdate( $hash, "residentsTotalGuestsPresent", $state_totalGuestsPresent ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsPresent}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsPresent}{VAL} ne $state_totalGuestsPresent ); readingsBulkUpdate( $hash, "residentsTotalGuestsPresentDevs", $residentsDevs_totalPresentGuest ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsPresentDevs}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsPresentDevs}{VAL} ne $residentsDevs_totalPresentGuest ); readingsBulkUpdate( $hash, "residentsTotalGuestsPresentNames", $residents_totalPresentGuest ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsPresentNames}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsPresentNames}{VAL} ne $residents_totalPresentGuest ); readingsBulkUpdate( $hash, "residentsTotalGuestsAbsent", $state_totalGuestsAbsent ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsAbsent}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsAbsent}{VAL} ne $state_totalGuestsAbsent ); readingsBulkUpdate( $hash, "residentsTotalGuestsAbsentDevs", $residentsDevs_totalAbsentGuest ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsAbsentDevs}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsAbsentDevs}{VAL} ne $residentsDevs_totalAbsentGuest ); readingsBulkUpdate( $hash, "residentsTotalGuestsAbsentNames", $residents_totalAbsentGuest ) if ( !defined( $hash->{READINGS}{residentsTotalGuestsAbsentNames}{VAL} ) || $hash->{READINGS}{residentsTotalGuestsAbsentNames}{VAL} ne $residents_totalAbsentGuest ); readingsBulkUpdate( $hash, "residentsTotalPresent", $state_totalPresent ) if ( !defined( $hash->{READINGS}{residentsTotalPresent}{VAL} ) || $hash->{READINGS}{residentsTotalPresent}{VAL} ne $state_totalPresent ); readingsBulkUpdate( $hash, "residentsTotalPresentDevs", $residentsDevs_totalPresent ) if ( !defined( $hash->{READINGS}{residentsTotalPresentDevs}{VAL} ) || $hash->{READINGS}{residentsTotalPresentDevs}{VAL} ne $residentsDevs_totalPresent ); readingsBulkUpdate( $hash, "residentsTotalPresentNames", $residents_totalPresent ) if ( !defined( $hash->{READINGS}{residentsTotalPresentNames}{VAL} ) || $hash->{READINGS}{residentsTotalPresentNames}{VAL} ne $residents_totalPresent ); readingsBulkUpdate( $hash, "residentsTotalAbsent", $state_totalAbsent ) if ( !defined( $hash->{READINGS}{residentsTotalAbsent}{VAL} ) || $hash->{READINGS}{residentsTotalAbsent}{VAL} ne $state_totalAbsent ); readingsBulkUpdate( $hash, "residentsTotalAbsentDevs", $residentsDevs_totalAbsent ) if ( !defined( $hash->{READINGS}{residentsTotalAbsentDevs}{VAL} ) || $hash->{READINGS}{residentsTotalAbsentDevs}{VAL} ne $residentsDevs_totalAbsent ); readingsBulkUpdate( $hash, "residentsTotalAbsentNames", $residents_totalAbsent ) if ( !defined( $hash->{READINGS}{residentsTotalAbsentNames}{VAL} ) || $hash->{READINGS}{residentsTotalAbsentNames}{VAL} ne $residents_totalAbsent ); readingsBulkUpdate( $hash, "residentsHome", $state_home ) if ( !defined( $hash->{READINGS}{residentsHome}{VAL} ) || $hash->{READINGS}{residentsHome}{VAL} ne $state_home ); readingsBulkUpdate( $hash, "residentsHomeDevs", $residentsDevs_home ) if ( !defined( $hash->{READINGS}{residentsHomeDevs}{VAL} ) || $hash->{READINGS}{residentsHomeDevs}{VAL} ne $residentsDevs_home ); readingsBulkUpdate( $hash, "residentsHomeNames", $residents_home ) if ( !defined( $hash->{READINGS}{residentsHomeNames}{VAL} ) || $hash->{READINGS}{residentsHomeNames}{VAL} ne $residents_home ); readingsBulkUpdate( $hash, "residentsGotosleep", $state_gotosleep ) if ( !defined( $hash->{READINGS}{residentsGotosleep}{VAL} ) || $hash->{READINGS}{residentsGotosleep}{VAL} ne $state_gotosleep ); readingsBulkUpdate( $hash, "residentsGotosleepDevs", $residentsDevs_gotosleep ) if ( !defined( $hash->{READINGS}{residentsGotosleepDevs}{VAL} ) || $hash->{READINGS}{residentsGotosleepDevs}{VAL} ne $residentsDevs_gotosleep ); readingsBulkUpdate( $hash, "residentsGotosleepNames", $residents_gotosleep ) if ( !defined( $hash->{READINGS}{residentsGotosleepNames}{VAL} ) || $hash->{READINGS}{residentsGotosleepNames}{VAL} ne $residents_gotosleep ); readingsBulkUpdate( $hash, "residentsAsleep", $state_asleep ) if ( !defined( $hash->{READINGS}{residentsAsleep}{VAL} ) || $hash->{READINGS}{residentsAsleep}{VAL} ne $state_asleep ); readingsBulkUpdate( $hash, "residentsAsleepDevs", $residentsDevs_asleep ) if ( !defined( $hash->{READINGS}{residentsAsleepDevs}{VAL} ) || $hash->{READINGS}{residentsAsleepDevs}{VAL} ne $residentsDevs_asleep ); readingsBulkUpdate( $hash, "residentsAsleepNames", $residents_asleep ) if ( !defined( $hash->{READINGS}{residentsAsleepNames}{VAL} ) || $hash->{READINGS}{residentsAsleepNames}{VAL} ne $residents_asleep ); readingsBulkUpdate( $hash, "residentsAwoken", $state_awoken ) if ( !defined( $hash->{READINGS}{residentsAwoken}{VAL} ) || $hash->{READINGS}{residentsAwoken}{VAL} ne $state_awoken ); readingsBulkUpdate( $hash, "residentsAwokenDevs", $residentsDevs_awoken ) if ( !defined( $hash->{READINGS}{residentsAwokenDevs}{VAL} ) || $hash->{READINGS}{residentsAwokenDevs}{VAL} ne $residentsDevs_awoken ); readingsBulkUpdate( $hash, "residentsAwokenNames", $residents_awoken ) if ( !defined( $hash->{READINGS}{residentsAwokenNames}{VAL} ) || $hash->{READINGS}{residentsAwokenNames}{VAL} ne $residents_awoken ); readingsBulkUpdate( $hash, "residentsAbsent", $state_absent ) if ( !defined( $hash->{READINGS}{residentsAbsent}{VAL} ) || $hash->{READINGS}{residentsAbsent}{VAL} ne $state_absent ); readingsBulkUpdate( $hash, "residentsAbsentDevs", $residentsDevs_absent ) if ( !defined( $hash->{READINGS}{residentsAbsentDevs}{VAL} ) || $hash->{READINGS}{residentsAbsentDevs}{VAL} ne $residentsDevs_absent ); readingsBulkUpdate( $hash, "residentsAbsentNames", $residents_absent ) if ( !defined( $hash->{READINGS}{residentsAbsentNames}{VAL} ) || $hash->{READINGS}{residentsAbsentNames}{VAL} ne $residents_absent ); readingsBulkUpdate( $hash, "residentsGone", $state_gone ) if ( !defined( $hash->{READINGS}{residentsGone}{VAL} ) || $hash->{READINGS}{residentsGone}{VAL} ne $state_gone ); readingsBulkUpdate( $hash, "residentsGoneDevs", $residentsDevs_gone ) if ( !defined( $hash->{READINGS}{residentsGoneDevs}{VAL} ) || $hash->{READINGS}{residentsGoneDevs}{VAL} ne $residentsDevs_gone ); readingsBulkUpdate( $hash, "residentsGoneNames", $residents_gone ) if ( !defined( $hash->{READINGS}{residentsGoneNames}{VAL} ) || $hash->{READINGS}{residentsGoneNames}{VAL} ne $residents_gone ); readingsBulkUpdate( $hash, "residentsTotalWakeup", $wakeup ) if ( !defined( $hash->{READINGS}{residentsTotalWakeup}{VAL} ) || $hash->{READINGS}{residentsTotalWakeup}{VAL} ne $wakeup ); readingsBulkUpdate( $hash, "residentsTotalWakeupDevs", $residentsDevs_wakeup ) if ( !defined( $hash->{READINGS}{residentsTotalWakeupDevs}{VAL} ) || $hash->{READINGS}{residentsTotalWakeupDevs}{VAL} ne $residentsDevs_wakeup ); readingsBulkUpdate( $hash, "residentsTotalWakeupNames", $residents_wakeup ) if ( !defined( $hash->{READINGS}{residentsTotalWakeupNames}{VAL} ) || $hash->{READINGS}{residentsTotalWakeupNames}{VAL} ne $residents_wakeup ); readingsBulkUpdate( $hash, "residentsTotalWayhome", $wayhome ) if ( !defined( $hash->{READINGS}{residentsTotalWayhome}{VAL} ) || $hash->{READINGS}{residentsTotalWayhome}{VAL} ne $wayhome ); readingsBulkUpdate( $hash, "residentsTotalWayhomeDevs", $residentsDevs_wayhome ) if ( !defined( $hash->{READINGS}{residentsTotalWayhomeDevs}{VAL} ) || $hash->{READINGS}{residentsTotalWayhomeDevs}{VAL} ne $residentsDevs_wayhome ); readingsBulkUpdate( $hash, "residentsTotalWayhomeNames", $residents_wayhome ) if ( !defined( $hash->{READINGS}{residentsTotalWayhomeNames}{VAL} ) || $hash->{READINGS}{residentsTotalWayhomeNames}{VAL} ne $residents_wayhome ); # # state calculation # # gotosleep if ( $state_home == 0 && $state_gotosleep > 0 && $state_asleep >= 0 && $state_awoken == 0 ) { $newstate = "gotosleep"; } # asleep elsif ($state_home == 0 && $state_gotosleep == 0 && $state_asleep > 0 && $state_awoken == 0 ) { $newstate = "asleep"; } # awoken elsif ($state_home == 0 && $state_gotosleep >= 0 && $state_asleep >= 0 && $state_awoken > 0 ) { $newstate = "awoken"; } # general presence elsif ($state_home > 0 || $state_gotosleep > 0 || $state_asleep > 0 || $state_awoken > 0 ) { $newstate = "home"; } # absent elsif ($state_absent > 0 && $state_home == 0 && $state_gotosleep == 0 && $state_asleep == 0 && $state_awoken == 0 ) { $newstate = "absent"; } # gone elsif ($state_gone > 0 && $state_absent == 0 && $state_home == 0 && $state_gotosleep == 0 && $state_asleep == 0 && $state_awoken == 0 ) { $newstate = "gone"; } # none elsif ($state_totalGuests == 0 && $state_gone == 0 && $state_absent == 0 && $state_home == 0 && $state_gotosleep == 0 && $state_asleep == 0 && $state_awoken == 0 ) { $newstate = "none"; } # unspecified; this should not happen else { $newstate = "unspecified"; } # calculate presence state my $newpresence = ( $newstate ne "none" && $newstate ne "gone" && $newstate ne "absent" ) ? "present" : "absent"; Log3 $name, 4, "RESIDENTS $name: calculation result - residentsTotal:$state_total residentsTotalGuests:$state_totalGuests residentsTotalGuestsPresent:$state_totalGuestsPresent residentsTotalGuestsAbsent:$state_totalGuestsAbsent residentsTotalPresent:$state_totalPresent residentsTotalAbsent:$state_totalAbsent residentsHome:$state_home residentsGotosleep:$state_gotosleep residentsAsleep:$state_asleep residentsAwoken:$state_awoken residentsAbsent:$state_absent residentsGone:$state_gone presence:$newpresence state:$newstate"; # safe current time my $datetime = FmtDateTime(time); # if state changed if ( $state ne $newstate ) { # stop any running wakeup-timers in case state changed my $wakeupState = AttrVal( $name, "wakeup", 0 ); if ($wakeupState) { my $wakeupDeviceList = AttrVal( $name, "rgr_wakeupDevice", 0 ); for my $wakeupDevice ( split /,/, $wakeupDeviceList ) { next if !$wakeupDevice; if ( defined( $defs{$wakeupDevice} ) && $defs{$wakeupDevice}{TYPE} eq "dummy" ) { # forced-stop only if resident is not present anymore if ( $newpresence eq "present" ) { fhem "set $wakeupDevice:FILTER=running!=0 end"; } else { fhem "set $wakeupDevice:FILTER=running!=0 stop"; } } } } # if newstate is asleep, start sleep timer readingsBulkUpdate( $hash, "lastSleep", $datetime ) if ( $newstate eq "asleep" ); # if prior state was asleep, update sleep statistics if ( defined( $hash->{READINGS}{state}{VAL} ) && $state eq "asleep" ) { readingsBulkUpdate( $hash, "lastAwake", $datetime ); readingsBulkUpdate( $hash, "lastDurSleep", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastSleep}{VAL} ) ); readingsBulkUpdate( $hash, "lastDurSleep_cr", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastSleep}{VAL}, "min" ) ); } readingsBulkUpdate( $hash, "lastState", $hash->{READINGS}{state}{VAL} ); readingsBulkUpdate( $hash, "state", $newstate ); } # if presence changed if ( $newpresence ne $presence ) { readingsBulkUpdate( $hash, "presence", $newpresence ); # update statistics if ( $newpresence eq "present" ) { readingsBulkUpdate( $hash, "lastArrival", $datetime ); # absence duration if ( defined( $hash->{READINGS}{lastDeparture}{VAL} ) && $hash->{READINGS}{lastDeparture}{VAL} ne "-" ) { readingsBulkUpdate( $hash, "lastDurAbsence", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastDeparture}{VAL} ) ); readingsBulkUpdate( $hash, "lastDurAbsence_cr", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastDeparture}{VAL}, "min" ) ); } } else { readingsBulkUpdate( $hash, "lastDeparture", $datetime ); # presence duration if ( defined( $hash->{READINGS}{lastArrival}{VAL} ) && $hash->{READINGS}{lastArrival}{VAL} ne "-" ) { readingsBulkUpdate( $hash, "lastDurPresence", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastArrival}{VAL} ) ); readingsBulkUpdate( $hash, "lastDurPresence_cr", RESIDENTStk_TimeDiff( $datetime, $hash->{READINGS}{lastArrival}{VAL}, "min" ) ); } } } readingsEndUpdate( $hash, 1 ); } 1; =pod =begin html

RESIDENTS

Define
define <rgr_ResidentsName> RESIDENTS

Provides a special dummy device to represent a group of individuals living at your home.
It locically combines individual states of ROOMMATE and GUEST devices and allows state changes for all members.
Based on the current state and other readings, you may trigger other actions within FHEM.

Example:
# Standalone
define rgr_Residents RESIDENTS


Set
set <rgr_ResidentsName> <command> [<parameter>]

Currently, the following commands are defined.
  • addGuest   -   creates a new GUEST device and adds it to the current RESIDENTS group. Just enter the dummy name and there you go.
  • addRoommate   -   creates a new ROOMMATE device and adds it to the current RESIDENTS group. Just enter the first name and there you go.
  • removeGuest   -   shows all GUEST members and allows to delete their dummy devices easily.
  • removeRoommate   -   shows all ROOMMATE members and allows to delete their dummy devices easily.
  • state   home,gotosleep,asleep,awoken,absent,gone   switch between states for all group members at once; see attribute rgr_states to adjust list shown in FHEMWEB
  • create   wakeuptimer   add several pre-configurations provided by RESIDENTS Toolkit. See separate section for details.
    Note: If you would like to restrict access to admin set-commands (-> addGuest, addRoommate, removeGuest, create) you may set your FHEMWEB instance's attribute allowedCommands like 'set,set-user'. The string 'set-user' will ensure only non-admin set-commands can be executed when accessing FHEM using this FHEMWEB instance.


Possible states and their meaning

This module differs between 7 states:

  • home - residents are present at home and at least one of them is not asleep
  • gotosleep - present residents are on their way to bed (if they are not asleep already)
  • asleep - all present residents are currently sleeping
  • awoken - at least one resident just woke up from sleep
  • absent - no resident is currently at home but at least one will be back shortly
  • gone - all residents left home for longer period
  • none - no active member


Note: State 'none' cannot explicitly be set. Setting state to 'gone' will be handled as 'none' for GUEST member devices.


Attributes
  • rgr_showAllStates - states 'asleep' and 'awoken' are hidden by default to allow simple gotosleep process via devStateIcon; defaults to 0
  • rgr_states - list of states to be shown in FHEMWEB; separate entries by comma only and do NOT use spaces; unsupported states will lead to errors though
  • rgr_wakeupDevice - reference to enslaved DUMMY devices used as a wake-up timer (part of RESIDENTS Toolkit's wakeuptimer)



Generated Readings/Events:
  • lastActivity - the last state change of one of the group members
  • lastActivityBy - the realname of the last group member with changed state
  • lastArrival - timestamp of last arrival at home
  • lastAwake - timestamp of last sleep cycle end
  • lastDeparture - timestamp of last departure from home
  • lastDurAbsence - duration of last absence from home in human readable format (hours:minutes:seconds)
  • lastDurAbsence_cr - duration of last absence from home in computer readable format (minutes)
  • lastDurPresence - duration of last presence at home in human readable format (hours:minutes:seconds)
  • lastDurPresence_cr - duration of last presence at home in computer readable format (minutes)
  • lastDurSleep - duration of last sleep in human readable format (hours:minutes:seconds)
  • lastDurSleep_cr - duration of last sleep in computer readable format (minutes)
  • lastSleep - timestamp of last sleep cycle begin
  • lastState - the prior state
  • lastWakeup - time of last wake-up timer run
  • lastWakeupDev - device name of last wake-up timer
  • nextWakeup - time of next wake-up program run
  • nextWakeupDev - device name for next wake-up program run
  • presence - reflects the home presence state, depending on value of reading 'state' (can be 'present' or 'absent')
  • residentsAbsent - number of residents with state 'absent'
  • residentsAbsentDevs - device name of residents with state 'absent'
  • residentsAbsentNames - device alias of residents with state 'absent'
  • residentsAsleep - number of residents with state 'asleep'
  • residentsAsleepDevs - device name of residents with state 'asleep'
  • residentsAsleepNames - device alias of residents with state 'asleep'
  • residentsAwoken - number of residents with state 'awoken'
  • residentsAwokenDevs - device name of residents with state 'awoken'
  • residentsAwokenNames - device alias of residents with state 'awoken'
  • residentsGone - number of residents with state 'gone'
  • residentsGoneDevs - device name of residents with state 'gone'
  • residentsGoneNames - device alias of residents with state 'gone'
  • residentsGotosleep - number of residents with state 'gotosleep'
  • residentsGotosleepDevs - device name of residents with state 'gotosleep'
  • residentsGotosleepNames - device alias of residents with state 'gotosleep'
  • residentsHome - number of residents with state 'home'
  • residentsHomeDevs - device name of residents with state 'home'
  • residentsHomeNames - device alias of residents with state 'home'
  • residentsTotal - total number of all active residents despite their current state
  • residentsTotalAbsent - number of all residents who are currently underway
  • residentsTotalAbsentDevs - device name of all residents who are currently underway
  • residentsTotalAbsentNames - device alias of all residents who are currently underway
  • residentsTotalGuests - number of active guests who are currently treated as part of the residents scope
  • residentsTotalGuestsAbsent - number of all active guests who are currently underway
  • residentsTotalGuestsAbsentDevs - device name of all active guests who are currently underway
  • residentsTotalGuestsAbsentNames - device alias of all active guests who are currently underway
  • residentsTotalGuestsPresent - number of all active guests who are currently at home
  • residentsTotalGuestsPresentDevs - device name of all active guests who are currently at home
  • residentsTotalGuestsPresentNames - device alias of all active guests who are currently at home
  • residentsTotalPresent - number of all residents who are currently at home
  • residentsTotalPresentDevs - device name of all residents who are currently at home
  • residentsTotalPresentNames - device alias of all residents who are currently at home
  • residentsTotalWakeup - number of all residents which currently have a wake-up program being executed
  • residentsTotalWakeupDevs - device name of all residents which currently have a wake-up program being executed
  • residentsTotalWakeupNames - device alias of all residents which currently have a wake-up program being executed
  • residentsTotalWayhome - number of all active residents who are currently on their way back home
  • residentsTotalWayhomeDevs - device name of all active residents who are currently on their way back home
  • residentsTotalWayhomeNames - device alias of all active residents who are currently on their way back home
  • state - reflects the current state
  • wakeup - becomes '1' while a wake-up program of this resident group is being executed


RESIDENTS Toolkit
    Using set-command create you may add pre-configured configurations to your RESIDENTS, ROOMMATE or GUEST devices for your convenience.
    The following commands are currently available:

  • wakeuptimer   -   adds a wake-up timer dummy device with enhanced functions to start with wake-up automations
      A notify device is created to be used as a Macro to carry out your actual automations. The macro is triggered by a normal at device you may customize as well. However, a special RESIDENTS Toolkit function is handling the wake-up trigger event for you.

      The wake-up behaviour may be influenced by the following device attributes:
    • wakeupAtdevice - backlink the at device (mandatory)
    • wakeupDays - only trigger macro at these days. Mon=1,Tue=2,Wed=3,Thu=4,Fri=5,Sat=6,Sun=0 (optional)
    • wakeupDefaultTime - after triggering macro reset the wake-up time to this default value (optional)
    • wakeupEnforced - Enforce wake-up (optional; 0=no, 1=yes, 2=if wake-up time is not wakeupDefaultTime)
    • wakeupHolidays - May trigger macro on holidays or non-holidays (optional; andHoliday=on holidays also considering wakeupDays, orHoliday=on holidays independently of wakeupDays, andNoHoliday=on non-holidays also considering wakeupDays, orNoHoliday=on non-holidays independently of wakeupDays)
    • wakeupMacro - name of the notify macro device (mandatory)
    • wakeupOffset - value in minutes to trigger your macro earlier than the user requested to be woken up, e.g. if you have a complex wake-up program over 30 minutes (defaults to 0)
    • wakeupResetSwitcher - DUMMY device to quickly turn on/off reset function (optional, device will be auto-created)
    • wakeupResetdays - if wakeupDefaultTime is set you may restrict timer reset to specific days only. Mon=1,Tue=2,Wed=3,Thu=4,Fri=5,Sat=6,Sun=0 (optional)
    • wakeupUserdevice - backlink to RESIDENTS, ROOMMATE or GUEST device to check it's status (mandatory)
    • wakeupWaitPeriod - waiting period threshold in minutes until wake-up program may be triggered again, e.g. if you manually set an earlier wake-up time than normal while using wakeupDefaultTime. Does not apply in case wake-up time was changed during this period; defaults to 360 minutes / 6h (optional)
=end html =begin html_DE

RESIDENTS

Define
define <rgr_ResidentsName> RESIDENTS

Stellt ein spezielles Dummy-Device bereit, um eine Gruppe von Personen zu repräsentieren, die zusammen wohnen.
Es kombiniert dabei logisch die individuellen Status von ROOMMATE und GUEST Devices und erlaubt den Status für alle Mitglieder zeitgleich zu ändern. Basierend auf dem aktuellen Status und anderen Readings können andere Aktionen innerhalb von FHEM angestoßen werden.

Beispiele:
# Einzeln
define rgr_Residents RESIDENTS


Set
set <rgr_ResidentsName> <command> [<parameter>]

Momentan sind die folgenden Kommandos definiert.
  • addGuest   -   erstellt ein neues GUEST Device und fügt es der aktuellen RESIDENTS Gruppe hinzu. Einfach den Platzhalternamen eingeben und das wars.
  • addRoommate   -   erstellt ein neues ROOMMATE Device und fügt es der aktuellen RESIDENTS Gruppe hinzu. Einfach den Vornamen eingeben und das wars.
  • removeGuest   -   zeigt alle Mitglieder vom Typ GUEST an und ermöglicht ein einfaches löschen des dazugehörigen Dummy Devices.
  • removeRoommate   -   zeigt alle Mitglieder vom Typ ROOMMATE an und ermöglicht ein einfaches löschen des dazugehörigen Dummy Devices.
  • state   home,gotosleep,asleep,awoken,absent,gone   wechselt den Status für alle Gruppenmitglieder gleichzeitig; siehe Attribut rgr_states, um die angezeigte Liste in FHEMWEB abzuändern
  • create   wakeuptimer   fügt diverse Vorkonfigurationen auf Basis von RESIDENTS Toolkit hinzu. Siehe separate Sektion.
    Hinweis: Sofern der Zugriff auf administrative set-Kommandos (-> addGuest, addRoommate, removeGuest, create) eingeschränkt werden soll, kann in einer FHEMWEB Instanz das Attribut allowedCommands ähnlich wie 'set,set-user' erweitert werden. Die Zeichenfolge 'set-user' stellt dabei sicher, dass beim Zugriff auf FHEM über diese FHEMWEB Instanz nur nicht-administrative set-Kommandos ausgeführt werden können.


Mögliche Status und ihre Bedeutung

Dieses Modul unterscheidet 7 verschiedene Status:

  • home - Bewohner sind zu Hause und mindestens einer schläft nicht
  • gotosleep - alle anwesenden Bewohner sind auf dem Weg ins Bett (wenn sie nicht schon schlafen)
  • asleep - alle anwesenden Bewohner schlafen
  • awoken - mindestens einer der anwesenden Bewohner ist gerade aufgewacht
  • absent - keiner der Bewohner ist momentan zu Hause; mindestens einer ist aber in Kürze zurück
  • gone - alle Bewohner sind für längere Zeit verreist
  • none - kein Mitglied aktiv


Hinweis: Der Status 'none' kann nicht explizit gesetzt werden. Das setzen von 'gone' wird bei Mitgliedern vom Typ GUEST als 'none' behandelt.


Attribute
  • rgr_showAllStates - die Status 'asleep' und 'awoken' sind normalerweise nicht immer sichtbar, um einen einfachen Zubettgeh-Prozess über das devStateIcon Attribut zu ermöglichen; Standard ist 0
  • rgr_states - Liste aller in FHEMWEB angezeigter Status; Eintrage nur mit Komma trennen und KEINE Leerzeichen benutzen; nicht unterstützte Status führen zu Fehlern
  • rgr_wakeupDevice - Referenz zu versklavten DUMMY Geräten, welche als Wecker benutzt werden (Teil von RESIDENTS Toolkit's wakeuptimer)



Generierte Readings/Events:
  • lastActivity - der letzte Status Wechsel eines Gruppenmitglieds
  • lastActivityBy - der Name des Gruppenmitglieds, dessen Status zuletzt geändert wurde
  • lastArrival - Zeitstempel der letzten Ankunft zu Hause
  • lastAwake - Zeitstempel des Endes des letzten Schlafzyklus
  • lastDeparture - Zeitstempel des letzten Verlassens des Zuhauses
  • lastDurAbsence - Dauer der letzten Abwesenheit in normal lesbarem Format (Stunden:Minuten:Sekunden)
  • lastDurAbsence_cr - Dauer der letzten Abwesenheit in Computer lesbarem Format (Minuten)
  • lastDurPresence - Dauer der letzten Anwesenheit in normal lesbarem Format (Stunden:Minuten:Sekunden)
  • lastDurPresence_cr - Dauer der letzten Anwesenheit in Computer lesbarem Format (Minuten)
  • lastDurSleep - Dauer des letzten Schlafzyklus in normal lesbarem Format (Stunden:Minuten:Sekunden)
  • lastDurSleep_cr - Dauer des letzten Schlafzyklus in Computer lesbarem Format (Minuten)
  • lastSleep - Zeitstempel des Beginns des letzten Schlafzyklus
  • lastState - der vorherige Status
  • lastWakeup - Zeit der letzten Wake-up Timer Ausführing
  • lastWakeupDev - Device Name des zuletzt verwendeten Wake-up Timers
  • nextWakeup - Zeit der nächsten Wake-up Timer Ausführung
  • nextWakeupDev - Device Name des als nächstes ausgefährten Wake-up Timer
  • presence - gibt den zu Hause Status in Abhängigkeit des Readings 'state' wieder (kann 'present' oder 'absent' sein)
  • residentsAbsent - Anzahl der Bewohner mit Status 'absent'
  • residentsAbsentDevs - Gerätename der Bewohner mit Status 'absent'
  • residentsAbsentNames - Gerätealias der Bewohner mit Status 'absent'
  • residentsAsleep - Anzahl der Bewohner mit Status 'asleep'
  • residentsAsleepDevs - Gerätename der Bewohner mit Status 'asleep'
  • residentsAsleepNames - Gerätealias der Bewohner mit Status 'asleep'
  • residentsAwoken - Anzahl der Bewohner mit Status 'awoken'
  • residentsAwokenDevs - Gerätename der Bewohner mit Status 'awoken'
  • residentsAwokenNames - Gerätealias der Bewohner mit Status 'awoken'
  • residentsGone - Anzahl der Bewohner mit Status 'gone'
  • residentsGoneDevs - Gerätename der Bewohner mit Status 'gone'
  • residentsGoneNames - Gerätealias der Bewohner mit Status 'gone'
  • residentsGotosleep - Anzahl der Bewohner mit Status 'gotosleep'
  • residentsGotosleepDevs - Gerätename der Bewohner mit Status 'gotosleep'
  • residentsGotosleepNames - Gerätealias der Bewohner mit Status 'gotosleep'
  • residentsHome - Anzahl der Bewohner mit Status 'home'
  • residentsHomeDevs - Gerätename der Bewohner mit Status 'home'
  • residentsHomeNames - Gerätealias der Bewohner mit Status 'home'
  • residentsTotal - Summe aller aktiven Bewohner unabhängig von ihrem aktuellen Status
  • residentsTotalAbsent - Summe aller aktiven Bewohner, die unterwegs sind
  • residentsTotalAbsentDevs - Gerätename aller aktiven Bewohner, die unterwegs sind
  • residentsTotalAbsentNames - Gerätealias aller aktiven Bewohner, die unterwegs sind
  • residentsTotalGuests - Anzahl der aktiven Gäste, welche momentan du den Bewohnern dazugezählt werden
  • residentsTotalGuestsAbsent - Anzahl der aktiven Gäste, die momentan unterwegs sind
  • residentsTotalGuestsAbsentDevs - Gerätename der aktiven Gäste, die momentan unterwegs sind
  • residentsTotalGuestsAbsentNames - Gerätealias der aktiven Gäste, die momentan unterwegs sind
  • residentsTotalGuestsPresent - Anzahl der aktiven Gäste, die momentan zu Hause sind
  • residentsTotalGuestsPresentDevs - Gerätename der aktiven Gäste, die momentan zu Hause sind
  • residentsTotalGuestsPresentNames - Gerätealias der aktiven Gäste, die momentan zu Hause sind
  • residentsTotalPresent - Summe aller aktiven Bewohner, die momentan zu Hause sind
  • residentsTotalPresentDevs - Gerätename aller aktiven Bewohner, die momentan zu Hause sind
  • residentsTotalPresentNames - Gerätealias aller aktiven Bewohner, die momentan zu Hause sind
  • residentsTotalWakeup - Summe aller Bewohner, bei denen aktuell ein Weckprogramm ausgeführt wird
  • residentsTotalWakeupDevs - Gerätename aller Bewohner, bei denen aktuell ein Weckprogramm ausgeführt wird
  • residentsTotalWakeupNames - Gerätealias aller Bewohner, bei denen aktuell ein Weckprogramm ausgeführt wird
  • residentsTotalWayhome - Summe aller aktiven Bewohner, die momentan auf dem Weg zurück nach Hause sind
  • residentsTotalWayhomeDevs - Gerätename aller aktiven Bewohner, die momentan auf dem Weg zurück nach Hause sind
  • residentsTotalWayhomeNames - Gerätealias aller aktiven Bewohner, die momentan auf dem Weg zurück nach Hause sind
  • state - gibt den aktuellen Status wieder
  • wakeup - hat den Wert '1' während ein Weckprogramm dieser Bewohner-Gruppe ausgeführt wird


RESIDENTS Toolkit
    Mit dem set-Kommando create können zur Vereinfachung vorkonfigurierte Konfigurationen zu RESIDENTS, ROOMMATE oder GUEST Geräten hinzugefügt werden.
    Die folgenden Kommandos sind momentan verfügbar:

  • wakeuptimer   -   fügt ein Dummy Gerät mit erweiterten Funktionen als Wecker hinzu, um darauf Weck-Automationen aufzubauen.
      Ein notify Gerät wird als Makro erstellt, um die eigentliche Automation auszuführen. Das Makro wird durch ein normales at-Gerät ausgelöst und kann ebenfalls angepasst werden. Die Hauptfunktion wird dabei trotzdem von einer speziellen RESIDENTS Toolkit funktion gehandhabt.

      Die Weckfunktion kann wie folgt über Attribute beinflusst werden:
    • wakeupAtdevice - Backlink zum at Gerät (notwendig)
    • wakeupDays - Makro nur an bestimmten Tagen auslösen. Mon=1,Di=2,Mi=3,Do=4,Fr=5,Sa=6,So=0 (optional)
    • wakeupDefaultTime - Stellt die Weckzeit nach dem auslösen zurück auf diesen Standardwert (optional)
    • wakeupEnforced - Forciertes wecken (optional; 0=nein, 1=ja, 2=wenn Weckzeit ungleich wakeupDefaultTime)
    • wakeupHolidays - Makro u.U. an Feiertagen oder Nicht-Feiertagen ausführen (optional; andHoliday=an Feiertagen ggf. zusammen mit wakeupDays, orHoliday=an Feiertagen unabhängig von wakeupDays, andNoHoliday=an Nicht-Feiertagen ggf. zusammen mit wakeupDays, orNoHoliday=an Nicht-Feiertagen unabhängig von wakeupDays)
    • wakeupMacro - Name des notify Makro Gerätes (notwendig)
    • wakeupOffset - Wert in Minuten, die das Makro früher ausgelöst werden soll, z.B. bei komplexen Weckprogrammen über einen Zeitraum von 30 Minuten (Standard ist 0)
    • wakeupResetSwitcher - das DUMMY Device, welches zum schnellen ein/aus schalten der Resetfunktion verwendet wird (optional, Device wird automatisch angelegt)
    • wakeupResetdays - sofern wakeupDefaultTime gesetzt ist, kann der Reset hier auf betimmte Tage begrenzt werden. Mon=1,Di=2,Mi=3,Do=4,Fr=5,Sa=6,So=0 (optional)
    • wakeupUserdevice - Backlink zum RESIDENTS, ROOMMATE oder GUEST Gerät, um dessen Status zu prüfen (notwendig)
    • wakeupWaitPeriod - Schwelle der Wartezeit in Minuten bis das Weckprogramm erneut ausgeführt werden kann, z.B. wenn manuell eine frühere Weckzeit gesetzt wurde als normal während wakeupDefaultTime verwendet wird. Greift nicht, wenn die Weckzeit während dieser Zeit geändert wurde; Standard ist 360 Minuten / 6h (optional)
=end html_DE =cut