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

fix push door

Browse Source
This commit is contained in:
Sebastian 2021-06-06 19:46:25 +02:00
parent 381526d2fa
commit b3edfcb145
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
controls_HailoLibero.txt
View File

@ -1,2 +1,2 @@
UPD 2021-06-05_19:18:40 5174 FHEM/73_HailoLibero.pm UPD 2021-06-05_20:11:11 5174 FHEM/73_HailoLibero.pm
UPD 2021-06-05_19:43:39 12804 lib/FHEM/Hailo/Libero.pm UPD 2021-06-06_19:45:32 12839 lib/FHEM/Hailo/Libero.pm

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

@ -242,15 +242,16 @@ sub Set {
Write($hash, $payload); Write($hash, $payload);
#getSettings($hash); #getSettings($hash);
} }
# open door # open door
write($hash,'open') Write($hash,'open')
if (lc $cmd eq 'open'); if (lc $cmd eq 'open');
} }
else { else {
my $list = 'password '; my $list = 'password ';
$list .= 'open:noArg led_brightness:slider,1,1,10 eject_power:slider,1,1,10 eject_delay:slider,0,1,5 detection_area:slider,31,1,100 detection_sensitivity:slider,1,1,50' $list .= 'open:noArg led_brightness:slider,0,1,10 eject_power:slider,1,1,10 eject_delay:slider,0,1,5 detection_area:slider,31,1,100 detection_sensitivity:slider,1,1,50'
if ( defined(ReadPassword( $hash, $name )) if ( defined(ReadPassword( $hash, $name ))
&& AttrVal( $name, 'LiberoIP', 'none' ) ne 'none' && AttrVal( $name, 'LiberoIP', 'none' ) ne 'none'
); );
@ -307,7 +308,7 @@ sub Write {
( $payload, $header, $uri, $method ) = ( $payload, $header, $uri, $method ) =
createHttpValueStrings( $hash, $payload ); createHttpValueStrings( $hash, $payload );
HttpUtils_NonblockingGet( HttpUtils_NonblockingGet(
{ {
url => $hash->{URL} . $uri, url => $hash->{URL} . $uri,
@ -315,6 +316,7 @@ sub Write {
hash => $hash, hash => $hash,
data => $payload, data => $payload,
method => $method, method => $method,
keepalive => 1,
header => $header, header => $header,
ignoreredirects => 1, ignoreredirects => 1,
doTrigger => 1, doTrigger => 1,
@ -340,7 +342,7 @@ sub ErrorHandling {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $dhash = $hash; my $dhash = $hash;
Log3 $name, 4, "HailoLibero ($name) - ErrorHandling ".$data; 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);