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

final version

Browse Source
This commit is contained in:
Sebastian 2021-05-29 22:44:58 +02:00
parent 4e99a7c561
commit 7510899262
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
controls_HailoLibero.txt
View File

@ -1,2 +1,2 @@
UPD 2021-05-29_22:33:07 5192 FHEM/73_HailoLibero.pm UPD 2021-05-29_22:33:07 5192 FHEM/73_HailoLibero.pm
UPD 2021-05-29_22:30:58 11337 lib/FHEM/Hailo/Libero.pm UPD 2021-05-29_22:44:28 11357 lib/FHEM/Hailo/Libero.pm

12
lib/FHEM/Hailo/Libero.pm
View File

@ -187,7 +187,7 @@ sub Notify {
{ {
getSettings($hash); getSettings($hash);
#InternalTimer( gettimeofday() + $hash->{INTERVAL}, #InternalTimer( gettimeofday() + $hash->{INTERVAL},
# "FHEM::GardenaSmartBridge::getDevices", $hash ); # "FHEM::HailoLibero::getSettings", $hash );
Log3 $name, 4, Log3 $name, 4,
"HailoLibero ($name) - set internal timer function for recall getSettings sub"; "HailoLibero ($name) - set internal timer function for recall getSettings sub";
} }
@ -230,8 +230,8 @@ sub Set {
$payload = 'dist='.$aArg->[0] if (lc $cmd eq 'detection_area'); $payload = 'dist='.$aArg->[0] if (lc $cmd eq 'detection_area');
$payload = 'delay='.$aArg->[0] if (lc $cmd eq 'detection_sensitivity'); $payload = 'delay='.$aArg->[0] if (lc $cmd eq 'detection_sensitivity');
$payload = 'pdelay='.$aArg->[0] if (lc $cmd eq 'eject_delay'); $payload = 'pdelay='.$aArg->[0] if (lc $cmd eq 'eject_delay');
Log3 $name, 3, "setter write $payload to libero";
write($hash, $payload); Write($hash, $payload);
getSettings($hash); getSettings($hash);
} }
@ -341,8 +341,7 @@ sub ErrorHandling {
# got cookie ... do something # got cookie ... do something
#ledo pwro disto delayo sldrlbl #ledo pwro disto delayo sldrlbl
print $data; print $data;
my ($led_brightness) = ($data =~ /led'>(\d*)/g); my ($led_brightness) = ($data =~ /led'>(\d*)/g);
Log3 $name, 1, "Libero $name read led $led_brightness";
my ($eject_power) = ($data =~ /pwr'>(\d*)/g); my ($eject_power) = ($data =~ /pwr'>(\d*)/g);
my ($detection_area) = ($data =~ /dist'>(\d*)/g); my ($detection_area) = ($data =~ /dist'>(\d*)/g);
my ($detection_sensitivity) = ($data =~ /delay'>(\d*)/g); my ($detection_sensitivity) = ($data =~ /delay'>(\d*)/g);
@ -371,7 +370,8 @@ sub createHttpValueStrings {
if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){ if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){
$uri .= '/login'; $uri .= '/login';
readingsSingleUpdate( $hash, 'state', 'fetch cookie', 1 ); readingsSingleUpdate( $hash, 'state', 'fetch cookie', 1 );
} elsif ( $payload eq 'settings'){ } elsif ( $payload ne 'open'
&& $payload ne ''){
$uri .= '/settings'; $uri .= '/settings';
} elsif ( $payload eq 'open'){ } elsif ( $payload eq 'open'){
$uri .= '/open'; $uri .= '/open';