diff --git a/controls_HailoLibero.txt b/controls_HailoLibero.txt index 2cdfac1..862e65c 100644 --- a/controls_HailoLibero.txt +++ b/controls_HailoLibero.txt @@ -1,2 +1,2 @@ -UPD 2021-06-05_19:18:40 5174 FHEM/73_HailoLibero.pm -UPD 2021-06-05_19:43:39 12804 lib/FHEM/Hailo/Libero.pm +UPD 2021-06-05_20:11:11 5174 FHEM/73_HailoLibero.pm +UPD 2021-06-06_19:45:32 12839 lib/FHEM/Hailo/Libero.pm diff --git a/lib/FHEM/Hailo/Libero.pm b/lib/FHEM/Hailo/Libero.pm index 6a1a99e..acef802 100644 --- a/lib/FHEM/Hailo/Libero.pm +++ b/lib/FHEM/Hailo/Libero.pm @@ -242,15 +242,16 @@ sub Set { Write($hash, $payload); #getSettings($hash); - } + } + # open door - write($hash,'open') + Write($hash,'open') if (lc $cmd eq 'open'); } else { 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 )) && AttrVal( $name, 'LiberoIP', 'none' ) ne 'none' ); @@ -307,7 +308,7 @@ sub Write { ( $payload, $header, $uri, $method ) = createHttpValueStrings( $hash, $payload ); - + HttpUtils_NonblockingGet( { url => $hash->{URL} . $uri, @@ -315,6 +316,7 @@ sub Write { hash => $hash, data => $payload, method => $method, + keepalive => 1, header => $header, ignoreredirects => 1, doTrigger => 1, @@ -340,7 +342,7 @@ sub ErrorHandling { my $name = $hash->{NAME}; my $dhash = $hash; - Log3 $name, 4, "HailoLibero ($name) - ErrorHandling ".$data; + Log3 $name, 4, "HailoLibero ($name) - ErrorHandling ".$data; if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){ my ($logintry) = ($data =~ /(Invalid.+)