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: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

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

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