FHEM/mod-XiaomiBTLESens
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change to

Browse Source
This commit is contained in:
Marko Oldenburg 2020-05-10 14:30:44 +02:00
parent 1cd9dbeb96
commit 7c2327104d
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
74_XiaomiBTLESens.pm
View File

@ -231,20 +231,20 @@ sub Initialize {
} }
sub Define { sub Define {
my $hash = shift; my $hash = shift;
my $a = shift; my $arg_ref = shift;
return $@ if ( !FHEM::Meta::SetInternals($hash) ); return $@ if ( !FHEM::Meta::SetInternals($hash) );
use version 0.60; our $VERSION = FHEM::Meta::Get( $hash, 'version' ); use version 0.60; our $VERSION = FHEM::Meta::Get( $hash, 'version' );
return 'too few parameters: define <name> XiaomiBTLESens <BTMAC>' return 'too few parameters: define <name> XiaomiBTLESens <BTMAC>'
if ( scalar( @{$a} ) != 3 ); if ( scalar( @{$arg_ref} ) != 3 );
return return
"Cannot define XiaomiBTLESens device. Perl modul ${missingModul}is missing." "Cannot define XiaomiBTLESens device. Perl modul ${missingModul}is missing."
if ($missingModul); if ($missingModul);
my $name = $a->[0]; my $name = $arg_ref->[0];
my $mac = $a->[2]; my $mac = $arg_ref->[2];
$hash->{BTMAC} = $mac; $hash->{BTMAC} = $mac;
$hash->{VERSION} = version->parse($VERSION)->normal; $hash->{VERSION} = version->parse($VERSION)->normal;
@ -506,25 +506,25 @@ sub stateRequestTimer {
} }
sub Set($$@) { sub Set($$@) {
my $hash = shift; my $hash = shift;
my $a = shift; my $arg_ref = shift;
my $name = shift @$a; my $name = shift @$arg_ref;
my $cmd = shift @$a // return qq{"set $name" needs at least one argument}; my $cmd = shift @$arg_ref // return qq{"set $name" needs at least one argument};
my $mod; my $mod;
my $handle; my $handle;
my $value = 'write'; my $value = 'write';
if ( $cmd eq 'devicename' ) { if ( $cmd eq 'devicename' ) {
return 'usage: devicename <name>' if ( scalar( @{$a} ) < 1 ); return 'usage: devicename <name>' if ( scalar( @{$arg_ref} ) < 1 );
$mod = 'write'; $mod = 'write';
$handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{devicename}; $handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{devicename};
$value = CreateDevicenameHEX( makeDeviceName( $a->[0] ) ); $value = CreateDevicenameHEX( makeDeviceName( $arg_ref->[0] ) );
} }
elsif ( $cmd eq 'resetBatteryTimestamp' ) { elsif ( $cmd eq 'resetBatteryTimestamp' ) {
return 'usage: resetBatteryTimestamp' if ( scalar( @{$a} ) != 0 ); return 'usage: resetBatteryTimestamp' if ( scalar( @{$arg_ref} ) != 0 );
$hash->{helper}{updateTimeCallBattery} = 0; $hash->{helper}{updateTimeCallBattery} = 0;
return; return;
@ -548,29 +548,29 @@ sub Set($$@) {
} }
sub Get { sub Get {
my $hash = shift; my $hash = shift;
my $a = shift; my $arg_ref = shift;
my $name = shift @$a; my $name = shift @$arg_ref;
my $cmd = shift @$a // return qq{"set $name" needs at least one argument}; my $cmd = shift @$arg_ref // return qq{"set $name" needs at least one argument};
my $mod = 'read'; my $mod = 'read';
my $handle; my $handle;
if ( $cmd eq 'sensorData' ) { if ( $cmd eq 'sensorData' ) {
return 'usage: sensorData' if ( scalar( @{$a} ) != 0 ); return 'usage: sensorData' if ( scalar( @{$arg_ref} ) != 0 );
stateRequest($hash); stateRequest($hash);
} }
elsif ( $cmd eq 'firmware' ) { elsif ( $cmd eq 'firmware' ) {
return 'usage: firmware' if ( scalar( @{$a} ) != 0 ); return 'usage: firmware' if ( scalar( @{$arg_ref} ) != 0 );
$mod = 'read'; $mod = 'read';
$handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{firmware}; $handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{firmware};
} }
elsif ( $cmd eq 'devicename' ) { elsif ( $cmd eq 'devicename' ) {
return "usage: devicename" if ( scalar( @{$a} ) != 0 ); return "usage: devicename" if ( scalar( @{$arg_ref} ) != 0 );
$mod = 'read'; $mod = 'read';
$handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{devicename}; $handle = $XiaomiModels{ AttrVal( $name, 'model', '' ) }{devicename};