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

fixes, noch debug stuff inkl.

Browse Source
This commit is contained in:
Sebastian 2021-06-04 21:39:16 +02:00
parent 82603eb105
commit b8210c1bcf
2 changed files with 21 additions and 17 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-06-04_14:34:38 5174 FHEM/73_HailoLibero.pm
UPD 2021-06-04_14:34:26 12009 lib/FHEM/Hailo/Libero.pm
UPD 2021-06-04_21:35:27 12105 lib/FHEM/Hailo/Libero.pm

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

@ -241,7 +241,7 @@ sub Set {
Log3 $name, 3, "setter write $payload to libero";
Write($hash, $payload);
getSettings($hash);
#getSettings($hash);
}
# open door
write($hash,'open')
@ -291,6 +291,7 @@ sub setSettings {
Write( $hash, 'settings', undef, undef );
}
sub getSettings {
my $hash = shift;
my $name = $hash->{NAME};
@ -339,7 +340,7 @@ sub ErrorHandling {
my $name = $hash->{NAME};
my $dhash = $hash;
Log3 $name, 4, "HailoLibero ($name) - ErrorHandling ".Dumper($param);
Log3 $name, 4, "HailoLibero ($name) - ErrorHandling ".$data;
if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){
my ($logintry) = ($data =~ /(Invalid.+)<p/g);
@ -354,19 +355,22 @@ sub ErrorHandling {
} else {
# got cookie ... do something
#ledo pwro disto delayo sldrlbl
print $data;
my ($led_brightness) = ($data =~ /led'>(\d*)/g);
my ($eject_power) = ($data =~ /pwr'>(\d*)/g);
my ($detection_area) = ($data =~ /dist'>(\d*)/g);
my ($detection_sensitivity) = ($data =~ /delay'>(\d*)/g);
my ($eject_delay) = ($data =~ /pdelay'>(\d*)/g);
readingsBeginUpdate($hash);
readingsBulkUpdateIfChanged($hash, 'led_brightness', $led_brightness);
readingsBulkUpdateIfChanged($hash, 'eject_power', $eject_power);
readingsBulkUpdateIfChanged($hash, 'detection_area', $detection_area);
readingsBulkUpdateIfChanged($hash, 'detection_sensitivity', $detection_sensitivity);
readingsBulkUpdateIfChanged($hash, 'eject_delay', $eject_delay);
readingsEndUpdate( $hash, 1 );
if ($data eq 'OK'){
getSettings($hash);
}elsif (length($data) > 3 ){
my ($led_brightness) = ($data =~ /led'>(\d*)/g);
my ($eject_power) = ($data =~ /pwr'>(\d*)/g);
my ($detection_area) = ($data =~ /dist'>(\d*)/g);
my ($detection_sensitivity) = ($data =~ /delay'>(\d*)/g);
my ($eject_delay) = ($data =~ /pdelay'>(\d*)/g);
readingsBeginUpdate($hash);
readingsBulkUpdateIfChanged($hash, 'led_brightness', $led_brightness);
readingsBulkUpdateIfChanged($hash, 'eject_power', $eject_power);
readingsBulkUpdateIfChanged($hash, 'detection_area', $detection_area);
readingsBulkUpdateIfChanged($hash, 'detection_sensitivity', $detection_sensitivity);
readingsBulkUpdateIfChanged($hash, 'eject_delay', $eject_delay);
readingsEndUpdate( $hash, 1 );
}
}
return;
@ -390,7 +394,7 @@ sub createHttpValueStrings {
&& $payload ne ''){
$uri .= '/settings';
} elsif ( $payload eq 'open'){
$uri .= '/open';
$uri .= '/push';
}else {
$uri .= '/admin';
$method = 'GET';