fix push door

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

View File

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

View File

@ -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.+)<p/g);