fix push door
This commit is contained in:
parent
381526d2fa
commit
b3edfcb145
@ -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
|
||||
|
@ -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);
|
||||
|
Loading…
x
Reference in New Issue
Block a user