From 7510899262d897e25da3e8b79da78a09e5c22951 Mon Sep 17 00:00:00 2001
From: Sebastian <gitlab@sebastianschwarz.eu>
Date: Sat, 29 May 2021 22:44:58 +0200
Subject: [PATCH] final version

---
 controls_HailoLibero.txt |  2 +-
 lib/FHEM/Hailo/Libero.pm | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/controls_HailoLibero.txt b/controls_HailoLibero.txt
index 62c6697..b5eaa7d 100644
--- a/controls_HailoLibero.txt
+++ b/controls_HailoLibero.txt
@@ -1,2 +1,2 @@
 UPD 2021-05-29_22:33:07 5192 FHEM/73_HailoLibero.pm
-UPD 2021-05-29_22:30:58 11337 lib/FHEM/Hailo/Libero.pm
+UPD 2021-05-29_22:44:28 11357 lib/FHEM/Hailo/Libero.pm
diff --git a/lib/FHEM/Hailo/Libero.pm b/lib/FHEM/Hailo/Libero.pm
index 9a7fbca..3fe0fda 100644
--- a/lib/FHEM/Hailo/Libero.pm
+++ b/lib/FHEM/Hailo/Libero.pm
@@ -187,7 +187,7 @@ sub Notify {
     {
         getSettings($hash);
         #InternalTimer( gettimeofday() + $hash->{INTERVAL},
-         #   "FHEM::GardenaSmartBridge::getDevices", $hash );
+         #   "FHEM::HailoLibero::getSettings", $hash );
         Log3 $name, 4,
 "HailoLibero ($name) - set internal timer function for recall getSettings sub";
     }
@@ -230,8 +230,8 @@ sub Set {
           $payload = 'dist='.$aArg->[0]  if (lc $cmd eq 'detection_area');
           $payload = 'delay='.$aArg->[0]  if (lc $cmd eq 'detection_sensitivity');
           $payload = 'pdelay='.$aArg->[0]  if (lc $cmd eq 'eject_delay');
-
-          write($hash, $payload);
+          Log3 $name, 3, "setter write $payload to libero";
+          Write($hash, $payload);
 
           getSettings($hash);
         }
@@ -341,8 +341,7 @@ sub ErrorHandling {
       # got cookie ... do something
       #ledo pwro disto delayo sldrlbl
       print $data;
-      my ($led_brightness) = ($data =~ /led'>(\d*)/g);
-      Log3 $name, 1, "Libero $name read led $led_brightness";
+      my ($led_brightness) = ($data =~ /led'>(\d*)/g); 
       my ($eject_power) = ($data =~ /pwr'>(\d*)/g);
       my ($detection_area) = ($data =~ /dist'>(\d*)/g);
       my ($detection_sensitivity) = ($data =~ /delay'>(\d*)/g);
@@ -371,7 +370,8 @@ sub createHttpValueStrings {
     if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){
       $uri .= '/login';
       readingsSingleUpdate( $hash, 'state', 'fetch cookie', 1 );
-    } elsif ( $payload eq 'settings'){
+    } elsif ( $payload ne 'open'
+              && $payload ne ''){
       $uri .= '/settings';
     } elsif ( $payload eq 'open'){
       $uri .= '/open';