From 940c0d43af1d693a767ca7ee16b0c443708c5b18 Mon Sep 17 00:00:00 2001
From: Sebastian <gitlab@sebastianschwarz.eu>
Date: Sat, 29 May 2021 21:43:38 +0200
Subject: [PATCH] setter test

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

diff --git a/controls_HailoLibero.txt b/controls_HailoLibero.txt
index 91b1407..d01c8af 100644
--- a/controls_HailoLibero.txt
+++ b/controls_HailoLibero.txt
@@ -1,2 +1,2 @@
 UPD 2021-05-25_20:13:57 4394 FHEM/73_HailoLibero.pm
-UPD 2021-05-24_22:53:00 10892 lib/FHEM/Hailo/Libero.pm
+UPD 2021-05-29_21:43:21 11674 lib/FHEM/Hailo/Libero.pm
diff --git a/lib/FHEM/Hailo/Libero.pm b/lib/FHEM/Hailo/Libero.pm
index f04862e..075aac3 100644
--- a/lib/FHEM/Hailo/Libero.pm
+++ b/lib/FHEM/Hailo/Libero.pm
@@ -226,11 +226,21 @@ sub Set {
         getCookie($hash)
           if  (ReadingsVal( $name, 'cookie', 'none' ) eq 'none');
         
-        # sende befehl
+        # cmd = setter,  $aArg->[0] = value
+        if (lc $cmd ne 'open') {
+          $payload = 'led=' if (lc $cmd eq 'led_brightness');
+          $payload = 'pwr=' if (lc $cmd eq 'eject_power');
+          $payload = 'dist=' if (lc $cmd eq 'detection_area');
+          $payload = 'delay=' if (lc $cmd eq 'detection_sensitivity');
+          $payload = 'pdelay=' if (lc $cmd eq 'eject_delay');
 
-        # reade settings
-        getSettings($hash)
- 			if(lc $cmd ne 'open');
+          write($hash, $payload)
+
+          getSettings($hash)
+        }
+  
+        write($hash,undef)
+          if (lc $cmd eq 'open');
 
     } 
     else {
@@ -267,6 +277,23 @@ sub getCookie {
     )
 }
 
+sub openDoor {
+  #curl 'http://192.168.1.216:81/settings' \
+  # -H 'Referer: http://192.168.1.216:81/admin' \
+  # -H 'Accept-Language: de-DE,de;q=0.9,en-US;q=0.8,en;q=0.7' \
+  # -H 'Cookie: c=dm40qfdeulkw0phbl95rtcrt1sul4p66' \
+  # --data-raw 'led=6&pwr=5&dist=50&delay=1&pdelay=1&sbsettings=' \
+  # --compressed \
+  # --insecure
+}
+
+sub setSettings {
+  my $hash = shift;
+  my $name = $hash->{NAME};
+
+  Write( $hash, undef, undef, undef );
+
+}
 sub getSettings {
   my $hash = shift;
   my $name = $hash->{NAME};
@@ -357,24 +384,17 @@ sub createHttpValueStrings {
     if ( ReadingsVal( $name, 'cookie', 'none' ) eq 'none' ){
       $uri .= '/login';
       readingsSingleUpdate( $hash, 'state', 'fetch cookie', 1 );
-    } else {
+    } elsif ( defined($payload)){
+      $uri .= '/settings';
+    } elsif ( $payload eq '{}'){
+      uri .= '/open';
+    }else {
       $uri .= '/admin';
       $method = 'GET';
     }
     return ( $payload, $header, $uri, $method );
 }
 
-sub WriteReadings {
-    my $hash        = shift;
-    my $decode_json = shift;
-
-    my $name = $hash->{NAME};
-    
-        Log3 $name, 4, "HailoLibero ($name) - readings would be written";
-
-    return;
-}
-
 ####################################
 ####################################
 #### my little helpers Sub's #######