modul-XiaomiSmartHome/71_XiaomiSmartHome_Device.pm

###############################################################################
#
#  03.2017 torte
#  All rights reserved
#
#  This script 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
#  any later version.
#
#  The GNU General Public License can be found at
#  http://www.gnu.org/copyleft/gpl.html.
#  A copy is found in the textfile GPL.txt and important notices to the license
#  from the author is found in LICENSE.txt distributed with these scripts.
#
#  This script 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.
#
#
###############################################################################
package main;

use strict;
use warnings;

my $version = "0.02";
sub XiaomiSmartHome_Device_updateSReading($);

#####################################

sub XiaomiSmartHome_Device_Initialize($)
{
  my ($hash) = @_;
  
  $hash->{Match}     = "^.+magnet|motion|sensor_ht|switch";
  $hash->{DefFn}     = "XiaomiSmartHome_Device_Define";
  #$hash->{SetFn}     = "XiaomiSmartHome_Device_Set";
  $hash->{UndefFn}   = "XiaomiSmartHome_Device_Undef";
  $hash->{ParseFn}   = "XiaomiSmartHome_Device_Parse";

  $hash->{AttrList}  = "IODev follow-on-for-timer:1,0 follow-on-timer ".
                       "do_not_notify:1,0 ignore:1,0 dummy:1,0 showtime:1,0 valueFn:textField-long motionOffTimer:1,5,10 ".
                       $readingFnAttributes ;
}
#####################################

sub XiaomiSmartHome_Device_mot($$)
{
	my ($hash, $mot) = @_;

	InternalTimer(gettimeofday()+$mot, "XiaomiSmartHome_Device_on_timeout",$hash, 0);
	# on-for-timer is now a on.


}
#####################################

sub XiaomiSmartHome_Device_on_timeout($){
	my ($hash) = @_;
	my $name = $hash->{LASTInputDev};
	if ($hash->{STATE} eq 'motion') {
		readingsSingleUpdate($hash, "state", "off", 1 );
		Log3 $name, 3, "$name>" . " SID: " . $hash->{SID} . " Type: " . $hash->{MODEL}  . " Status: off";
		}
}
#####################################
sub XiaomiSmartHome_Device_Read($$$){
	my ($hash, $msg, $name) = @_;
	my $decoded = decode_json($msg);
	
	my $sid = $decoded->{'sid'};
	my $model = $decoded->{'model'};
	Log3 $name, 5, "$name: SID: " . $hash->{SID} . " " . $hash->{TYPE};
	my @status = split('\"', $decoded->{'data'});
	if ($status[1] eq 'status'){
		Log3 $name, 3, "$name>" . " SID: " . $sid . " Type: " . $hash->{MODEL}  . " Status: " . $status[3];
		readingsSingleUpdate($hash, "state", "$status[3]", 1 );
		}
	elsif($status[1] eq 'voltage'){
		Log3 $name, 3, "$name>" . " SID: " . $sid . " Type: " . $hash->{MODEL}  . " Voltage: " . $status[3];
		readingsSingleUpdate($hash, "voltage", "$status[3]", 1 );
		}
	elsif($status[1] eq 'temperature'){
		Log3 $name, 3, "$name>" . " SID: " . $sid . " Type: " . $hash->{MODEL}  . " Temperature: " . $status[3];
		$status[3] =~ s/(^[-+]?\d+?(?=(?>(?:\d{2})+)(?!\d))|\G\d{2}(?=\d))/$1./g;
		readingsSingleUpdate($hash, "temperature", "$status[3]", 1 );
		}
	elsif($status[1] eq 'humidity'){
		Log3 $name, 3, "$name>" . " SID: " . $sid . " Type: " . $hash->{MODEL}  . " Humidity: " . $status[3];
		$status[3] =~ s/(^[-+]?\d+?(?=(?>(?:\d{2})+)(?!\d))|\G\d{2}(?=\d))/$1./g;
		readingsSingleUpdate($hash, "humidity", "$status[3]", 1 );
		}
	elsif ($decoded->{'cmd'} eq 'heartbeat'){
		readingsSingleUpdate($hash, $decoded->{'sid'}, 'heartbeat', 1 );
		}
	XiaomiSmartHome_Device_update($hash);
	return $hash->{NAME};


}
#####################################

sub XiaomiSmartHome_Device_Parse($$) {
	my ($io_hash, $msg) = @_;
	my $decoded = decode_json($msg);
	
	my $sid = $decoded->{'sid'};
	my $model = $decoded->{'model'};
	my $name = $io_hash->{NAME};
	
	if (my $hash = $modules{XiaomiSmartHome_Device}{defptr}{$sid})
	{
		Log3 $name, 4, "$name>  IS DEFINED " . $model . " : " .$sid;
		XiaomiSmartHome_Device_Read($hash, $msg, $name);
	}
	else
	{

		Log3 $name, 4, "$name> UNDEFINED " . $model . " : " .$sid;
		return "UNDEFINED $sid XiaomiSmartHome_Device $model $name";
	}
}
#####################################

sub XiaomiSmartHome_Device_update($){
  my ($hash) = @_;
  my $model = $hash->{MODEL};
  my $name = $hash->{NAME};
  my $value_fn = AttrVal( $name, "valueFn", "" );
  my $mot =  AttrVal( $name, "motionOffTimer", "" );
  if( $value_fn =~ m/^{.*}$/s ) {

    my $LASTCMD = ReadingsVal($name,"lastCmd",undef);

    my $value_fn = eval $value_fn;
    Log3 $name, 3, $name .": valueFn: ". $@ if($@);
    return undef if( !defined($value_fn) );
  }
  if( $model eq 'motion') {
	XiaomiSmartHome_Device_mot($hash, $mot) if( $mot);
	}
}
#####################################
 

sub XiaomiSmartHome_Device_Define($$) {
	my ($hash, $def) = @_;
	my ($name, $modul, $type, $iodev) = split("[ \t]+", $def);
	#Log3 "test", 3, "Define status = " . $status;
  	$hash->{TYPE} = $modul;
	$hash->{MODEL} = $type;
	$hash->{SID} = $name;
	$hash->{NAME} = $name;
	$hash->{VERSION}  = $version;
	$hash->{STATE} = 'initialized';
	$modules{XiaomiSmartHome_Device}{defptr}{$name} = $hash;
	AssignIoPort($hash,$iodev);
	
	if(defined($hash->{IODev}->{NAME})) {
        my $IOname = $hash->{IODev}->{NAME};
		Log3 $name, 3, $IOname . "> " .$name. ": " . $type . " I/O device is " . $hash->{IODev}->{NAME};
      } else {
           Log3 $name, 1, "$name $type - no I/O device";
    }
    $iodev = $hash->{IODev}->{NAME};
       
    my $d = $modules{XiaomiSmartHome_Device}{defptr}{$name};
    
    return "XiaomiSmartHome device $hash->{SID} on XiaomiSmartHome $iodev already defined as $d->{NAME}." if( defined($d) && $d->{IODev} == $hash->{IODev} && $d->{NAME} ne $name );

    Log3 $name, 3, $iodev . "> " . $name . "- defined with Code: ". $hash->{DEV};
    $attr{$name}{room} = "MiSmartHome" if( !defined( $attr{$name}{room} ) );
    if( $type eq 'motion') {
		$attr{$name}{devStateIcon}  = 'motion:motion_detector@red off:motion_detector@green' if( !defined( $attr{$name}{devStateIcon} ) );
	}
	elsif ( $type eq 'magnet') {
		$attr{$name}{devStateIcon}  = 'open:fts_door_open@red close:fts_door@green' if( !defined( $attr{$name}{devStateIcon} ) );
	}
	elsif ( $type eq 'sensor_ht') {
		$attr{$name}{stateFormat}  = 'temperature °C, humidity %' if( !defined( $attr{$name}{stateFormat} ) );
	}		
	
	if( $init_done ) {
		InternalTimer( gettimeofday()+int(rand(2)), "XiaomiSmartHome_Device_updateSReading", $hash, 0 );
		Log3 $name, 4, $iodev . "> " . $name . " Init Done set InternalTimer for Update";
	}
}
#####################################
sub XiaomiSmartHome_Device_updateSReading($) {

    my $hash        = shift;
	#my $name = $hash->{NAME};
	#Log3 $name, 3, $name . " Updae SR";
    IOWrite($hash,'read',"$hash->{SID}");
}
#####################################

#####################################
sub XiaomiSmartHome_Device_Undef($)
{
	my ($hash, $arg) = @_; 
	my $name = $hash->{NAME};
	RemoveInternalTimer($hash);
	delete($modules{XiaomiSmartHome_Device}{defptr}{$hash->{SID}});
    my $code = $hash->{IODev}->{NAME} if( defined($hash->{IODev}->{NAME}) );
    delete($modules{HEOSPlayer}{defptr}{$code});
    
    Log3 $name, 3, "$code> $name - device deleted";
    return undef;

}
1;
#####################################
=pod
=begin html

<a name="XiaomiSmartHome_Device"></a>
<h3>XiaomiSmartHome_Device</h3>


=end html

=cut