From b7afd2ebdad0acc3af046f73c807cbc49f0cb9ca Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Tue, 26 Mar 2019 23:19:54 +0100
Subject: [PATCH 1/7] change AMADDevice modul to package

---
 73_AMADCommBridge.pm |  12 +-
 74_AMADDevice.pm     | 372 +++++++++++++++++++++++++------------------
 2 files changed, 219 insertions(+), 165 deletions(-)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index d475646..fba1061 100755
--- a/73_AMADCommBridge.pm
+++ b/73_AMADCommBridge.pm
@@ -76,8 +76,8 @@ eval "use JSON;1" or $missingModul .= "JSON ";
 
 
 
-my $modulversion = "4.2.3";
-my $flowsetversion = "4.2.5";
+my $modulversion = "4.4.0";
+my $flowsetversion = "4.4.0";
 
 
 
@@ -235,13 +235,9 @@ sub AMADCommBridge_Set($@) {
     } elsif( $cmd eq 'close' ) {
     
         AMADCommBridge_Close($hash);
-        
-    } elsif( $cmd eq 'fhemServerIP' ) {
-    
-        readingsSingleUpdate($hash,$cmd,$arg,1);
     
     } else {
-        my $list = "open:noArg close:noArg fhemServerIP";
+        my $list = "open:noArg close:noArg";
         return "Unknown argument $cmd, choose one of $list";
     }
 }
@@ -1068,7 +1064,6 @@ sub AMADCommBridge_ParseMsg($$) {
   <ul><br>
     <li>JSON_ERROR - JSON Error message reported by Perl</li>
     <li>JSON_ERROR_STRING - The string that caused the JSON error message</li>
-    <li>fhemServerIP - The IP address of the FHEM server, is set by the module based on the JSON string from the installation wizard. Can also be set by user using set command</li>
     <li>receiveFhemCommand - is set the fhemControlMode attribute to trigger, the reading is set as soon as an FHEM command is sent. A notification can then be triggered.</br>
     If set instead of trigger setControl as value for fhemControlMode, the reading is not executed but the set command executed immediately.</li>
     <li>receiveVoiceCommand - The speech control is activated by AMAD (set DEVICE activateVoiceInput), the last recognized voice command is written into this reading.</li>
@@ -1141,7 +1136,6 @@ sub AMADCommBridge_ParseMsg($$) {
   <ul><br>
     <li>JSON_ERROR - JSON Fehlermeldung welche von Perl gemeldet wird</li>
     <li>JSON_ERROR_STRING - der String welcher die JSON Fehlermeldung verursacht hat</li>
-    <li>fhemServerIP - die Ip-Adresse des FHEM Servers, wird vom Modul auf Basis des JSON Strings vom Installationsassistenten gesetzt. Kann aber auch mittels set Befehles vom User gesetzt werden</li>
     <li>receiveFhemCommand - ist das Attribut fhemControlMode auf trigger gestellt, wird das Reading gesetzt sobald ein FHEM Befehl übersendet wird. Hierauf kann dann ein Notify triggern.</br>
     Wird anstelle von trigger setControl als Wert für fhemControlMode eingestellt, wird das Reading nicht gestzt sondern der set Befehl sofort ausgeführt.</li>
     <li>receiveVoiceCommand - wird die Sprachsteuerung von AMAD aktiviert (set DEVICE activateVoiceInput) so wird der letzte erkannten Sprachbefehle in dieses Reading geschrieben.</li>
diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index baf56a7..b88b709 100755
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -44,49 +44,14 @@
 #
 #
 
-
-
-
 package main;
 
-
-my $missingModul = "";
-
 use strict;
 use warnings;
+use FHEM::Meta;
 
-eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode ";
-eval "use JSON;1" or $missingModul .= "JSON ";
-
-
-
-my $modulversion = "4.2.7";
-my $flowsetversion = "4.2.5";
-
-
-
-
-# Declare functions
-sub AMADDevice_Attr(@);
-sub AMADDevice_Notify($$);
-sub AMADDevice_checkDeviceState($);
-sub AMADDevice_decrypt($);
-sub AMADDevice_Define($$);
-sub AMADDevice_encrypt($);
-sub AMADDevice_GetUpdate($);
-sub AMADDevice_Initialize($);
-sub AMADDevice_WriteReadings($$);
-sub AMADDevice_Set($$@);
-sub AMADDevice_Undef($$);
-sub AMADDevice_Parse($$);
-sub AMADDevice_statusRequest($);
-sub AMADDevice_CreateVolumeValue($$@);
-sub AMADDevice_CreateTtsMsgValue($@);
-sub AMADDevice_CreateScreenValue($$);
-sub AMADDevice_CreateChangeBtDeviceValue($$);
-
-
-
+my $modulversion = '4.4.0';
+my $flowsetversion = '4.4.0';
 
 sub AMADDevice_Initialize($) {
 
@@ -95,40 +60,40 @@ sub AMADDevice_Initialize($) {
     $hash->{Match}          = '{"amad": \{"amad_id":.+}}';
 
 
-    $hash->{SetFn}      = "AMADDevice_Set";
-    $hash->{DefFn}      = "AMADDevice_Define";
-    $hash->{UndefFn}    = "AMADDevice_Undef";
-    $hash->{AttrFn}     = "AMADDevice_Attr";
-    $hash->{NotifyFn}   = "AMADDevice_Notify";
-    $hash->{ParseFn}    = "AMADDevice_Parse";
+    $hash->{SetFn}      = 'FHEM::AMADDevice::Set';
+    $hash->{DefFn}      = 'FHEM::AMADDevice::Define';
+    $hash->{UndefFn}    = 'FHEM::AMADDevice::Undef';
+    $hash->{AttrFn}     = 'FHEM::AMADDevice::Attr';
+    $hash->{NotifyFn}   = 'FHEM::AMADDevice::Notify';
+    $hash->{ParseFn}    = 'FHEM::AMADDevice::Parse';
     
-    $hash->{AttrList}   = "setOpenApp ".
-                "checkActiveTask ".
-                "setFullscreen:0,1 ".
-                "setScreenOrientation:0,1 ".
-                "setScreenBrightness:noArg ".
-                "setBluetoothDevice ".
-                "setScreenlockPIN ".
-                "setScreenOnForTimer ".
-                "setOpenUrlBrowser ".
-                "setNotifySndFilePath ".
-                "setTtsMsgSpeed ".
-                "setTtsMsgLang:de,en ".
-                "setTtsMsgVol ".
-                "setUserFlowState ".
-                "setVolUpDownStep:1,2,4,5 ".
-                "setVolMax ".
-                "setVolFactor:2,3,4,5 ".
-                "setNotifyVolMax ".
-                "setRingSoundVolMax ".
-                "setAPSSID ".
-                "root:0,1 ".
-                "disable:1 ".
-                "IODev ".
-                "remoteServer:Automagic,Autoremote,TNES,other ".
-                "setTakeScreenshotResolution:1280x720,1920x1080,1920x1200 ".
-                "setTakePictureResolution:800x600,1024x768,1280x720,1600x1200,1920x1080 ".
-                "setTakePictureCamera:Back,Front ".
+    $hash->{AttrList}   = 'setOpenApp '.
+                'checkActiveTask '.
+                'setFullscreen:0,1 '.
+                'setScreenOrientation:0,1 '.
+                'setScreenBrightness:noArg '.
+                'setBluetoothDevice '.
+                'setScreenlockPIN '.
+                'setScreenOnForTimer '.
+                'setOpenUrlBrowser '.
+                'setNotifySndFilePath '.
+                'setTtsMsgSpeed '.
+                'setTtsMsgLang:de,en '.
+                'setTtsMsgVol '.
+                'setUserFlowState '.
+                'setVolUpDownStep:1,2,4,5 '.
+                'setVolMax '.
+                'setVolFactor:2,3,4,5 '.
+                'setNotifyVolMax '.
+                'setRingSoundVolMax '.
+                'setAPSSID '.
+                'root:0,1 '.
+                'disable:1 '.
+                'IODev '.
+                'remoteServer:Automagic,Autoremote,TNES,other '.
+                'setTakeScreenshotResolution:1280x720,1920x1080,1920x1200 '.
+                'setTakePictureResolution:800x600,1024x768,1280x720,1600x1200,1920x1080 '.
+                'setTakePictureCamera:Back,Front '.
                 $readingFnAttributes;
     
     foreach my $d(sort keys %{$modules{AMADDevice}{defptr}}) {
@@ -137,15 +102,63 @@ sub AMADDevice_Initialize($) {
         $hash->{VERSIONMODUL}      = $modulversion;
         $hash->{VERSIONFLOWSET}    = $flowsetversion;
     }
+    
+    return FHEM::Meta::InitMod( __FILE__, $hash );
 }
 
-sub AMADDevice_Define($$) {
+## unserer packagename
+package FHEM::AMADDevice;
+
+use strict;
+use warnings;
+use POSIX;
+use FHEM::Meta;
+
+use GPUtils qw(GP_Import)
+  ;    # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
+
+my $missingModul = '';
+
+eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
+eval "use JSON;1" or $missingModul .= 'JSON ';
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(readingsSingleUpdate
+          readingsBulkUpdate
+          readingsBulkUpdateIfChanged
+          readingsBeginUpdate
+          readingsEndUpdate
+          CommandDeleteReading
+          defs
+          modules
+          Log3
+          CommandAttr
+          attr
+          AttrVal
+          ReadingsVal
+          IsDisabled
+          deviceEvents
+          init_done
+          gettimeofday
+          InternalTimer
+          RemoveInternalTimer
+          IOWrite
+          ReadingsAge
+          urlEncode
+          AssignIoPort)
+    );
+}
+
+sub Define($$) {
 
     my ( $hash, $def ) = @_;
-    my @a = split( "[ \t]+", $def );
+    my @a = split( '[ \t]+', $def );
     
-    return "too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>" if( @a != 5 );
-    return "Cannot define a AMADDevice device. Perl modul $missingModul is missing." if ( $missingModul );
+    return $@ unless ( FHEM::Meta::SetInternals($hash) );
+    return 'too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>' if( @a != 5 );
+    return 'Cannot define a AMADDevice device. Perl modul ' . $missingModul . ' is missing.' if ( $missingModul );
 
 
     my $name                                    = $a[0];
@@ -157,7 +170,8 @@ sub AMADDevice_Define($$) {
     $hash->{AMAD_ID}                            = $amad_id;
     $hash->{VERSIONMODUL}                       = $modulversion;
     $hash->{VERSIONFLOWSET}                     = $flowsetversion;
-    $hash->{NOTIFYDEV}                          = "global,$name";
+    $hash->{NOTIFYDEV}                          = 'global,'.$name;
+    $hash->{MODEL}                              = $remoteServer;
     
     $hash->{PORT}                               = 8090 if($remoteServer eq 'Automagic');
     $hash->{PORT}                               = 1817 if($remoteServer eq 'Autoremote');
@@ -172,16 +186,18 @@ sub AMADDevice_Define($$) {
 
 
 
-    CommandAttr(undef,"$name IODev $modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME}") if(AttrVal($name,'IODev','none') eq 'none');
+    CommandAttr(undef,$name . ' IODev ' . $modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME})
+      if(   defined($modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME})
+        and AttrVal($name,'IODev','none') eq 'none');
 
     my $iodev           = AttrVal($name,'IODev','none');
     
     AssignIoPort($hash,$iodev) if( !$hash->{IODev} );
     
     if(defined($hash->{IODev}->{NAME})) {
-        Log3 $name, 3, "AMADDevice ($name) - I/O device is " . $hash->{IODev}->{NAME};
+        Log3($name, 3, "AMADDevice ($name) - I/O device is " . $hash->{IODev}->{NAME});
     } else {
-        Log3 $name, 1, "AMADDevice ($name) - no I/O device";
+        Log3($name, 1, "AMADDevice ($name) - no I/O device");
     }
 
 
@@ -189,21 +205,21 @@ sub AMADDevice_Define($$) {
     
     my $d = $modules{AMADDevice}{defptr}{$amad_id};
     
-    return "AMADDevice device $name on AMADCommBridge $iodev already defined."
+    return 'AMADDevice device ' . $name . ' on AMADCommBridge ' . $iodev . ' already defined.'
     if( defined($d) and $d->{IODev} == $hash->{IODev} and $d->{NAME} ne $name );
 
     
 
-    CommandAttr(undef,"$name room AMAD") if(AttrVal($name,'room','none') eq 'none');
-    CommandAttr(undef,"$name remoteServer $remoteServer") if(AttrVal($name,'remoteServer','none') eq 'none');
+    CommandAttr(undef,$name . ' room AMAD') if(AttrVal($name,'room','none') eq 'none');
+    CommandAttr(undef,$name . ' remoteServer ' . $remoteServer) if(AttrVal($name,'remoteServer','none') eq 'none');
         
     readingsBeginUpdate($hash);
-    readingsBulkUpdateIfChanged( $hash, "state", "initialized",1);
-    readingsBulkUpdateIfChanged( $hash, "deviceState", "unknown",1);
+    readingsBulkUpdateIfChanged( $hash, 'state', 'initialized',1);
+    readingsBulkUpdateIfChanged( $hash, 'deviceState', 'unknown',1);
     readingsEndUpdate($hash,1);
     
     
-    Log3 $name, 3, "AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}";
+    Log3($name, 3, "AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}");
 
 
     $modules{AMADDevice}{defptr}{$amad_id} = $hash;
@@ -211,7 +227,7 @@ sub AMADDevice_Define($$) {
     return undef;
 }
 
-sub AMADDevice_Undef($$) {
+sub Undef($$) {
 
     my ( $hash, $arg )  = @_;
     my $name            = $hash->{NAME};
@@ -224,95 +240,93 @@ sub AMADDevice_Undef($$) {
     return undef;
 }
 
-sub AMADDevice_Attr(@) {
+sub Attr(@) {
 
     my ( $cmd, $name, $attrName, $attrVal ) = @_;
     my $hash = $defs{$name};
     
     my $orig = $attrVal;
 
-    if( $attrName eq "remoteServer" ) {
-        if( $cmd eq "set" ) {
-            if( $attrVal eq "Automagic" ) {
+    if( $attrName eq 'remoteServer' ) {
+        if( $cmd eq 'set' ) {
+            if( $attrVal eq 'Automagic' ) {
                 $hash->{PORT}   = 8090;
-                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to Automagic";
+                Log3($name, 3, "AMADDevice ($name) - set remoteServer to Automagic");
             
-            } elsif( $attrVal eq "Autoremote" ) {
+            } elsif( $attrVal eq 'Autoremote' ) {
                 $hash->{PORT}   = 1817;
-                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to Autoremote";
+                Log3($name, 3, "AMADDevice ($name) - set remoteServer to Autoremote");
             
-            } elsif( $attrVal eq "TNES" ) {
+            } elsif( $attrVal eq 'TNES' ) {
                 $hash->{PORT}   = 8765;
-                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to TNES";
+                Log3($name, 3, "AMADDevice ($name) - set remoteServer to TNES");
             
-            } elsif( $attrVal eq "other" ) {
+            } elsif( $attrVal eq 'other' ) {
                 $hash->{PORT}   = 1111;
-                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to other";
+                Log3($name, 3, "AMADDevice ($name) - set remoteServer to other");
             }
             
-            $hash->{DEF} = "$hash->{HOST} $hash->{AMAD_ID} $attrVal";
+            $hash->{DEF} = $hash->{HOST} . ' ' . $hash->{AMAD_ID} . ' ' . $attrVal;
         }
     }
     
-    elsif( $attrName eq "disable" ) {
-        if( $cmd eq "set" ) {
-            if( $attrVal eq "0" ) {
-                readingsSingleUpdate ( $hash, "state", "active", 1 );
-                Log3 $name, 3, "AMADDevice ($name) - enabled";
+    elsif( $attrName eq 'disable' ) {
+        if( $cmd eq 'set' ) {
+            if( $attrVal eq '0' ) {
+                readingsSingleUpdate ( $hash, 'state', 'active', 1 );
+                Log3($name, 3, "AMADDevice ($name) - enabled");
             } else {
                 RemoveInternalTimer($hash);
-                readingsSingleUpdate ( $hash, "state", "disabled", 1 );
-                Log3 $name, 3, "AMADDevice ($name) - disabled";
+                readingsSingleUpdate ( $hash, 'state', 'disabled', 1 );
+                Log3($name, 3, "AMADDevice ($name) - disabled");
             }
             
         } else {
-            readingsSingleUpdate ( $hash, "state", "active", 1 );
-            Log3 $name, 3, "AMADDevice ($name) - enabled";
+            readingsSingleUpdate ( $hash, 'state', 'active', 1 );
+            Log3($name, 3, "AMADDevice ($name) - enabled");
         }
     }
     
-    elsif( $attrName eq "checkActiveTask" ) {
-        if( $cmd eq "del" ) {
-            CommandDeleteReading( undef, "$name checkActiveTask" ); 
+    elsif( $attrName eq 'checkActiveTask' ) {
+        if( $cmd eq 'del' ) {
+            CommandDeleteReading( undef, $name . ' checkActiveTask' ); 
         }
         
-        Log3 $name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest";
+        Log3($name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest");
     }
     
-    elsif( $attrName eq "setScreenlockPIN" ) {
-        if( $cmd eq "set" and $attrVal ) {
+    elsif( $attrName eq 'setScreenlockPIN' ) {
+        if( $cmd eq 'set' and $attrVal ) {
         
-            $attrVal = AMADDevice_encrypt($attrVal);
+            $attrVal = encrypt($attrVal);
             
         } else {
         
-            CommandDeleteReading( undef, "$name screenLock" );
+            CommandDeleteReading( undef, $name . ' screenLock' );
         }
     }
     
-    elsif( $attrName eq "setUserFlowState" ) {
-        if( $cmd eq "del" ) {
+    elsif( $attrName eq 'setUserFlowState' ) {
+        if( $cmd eq 'del' ) {
         
-            CommandDeleteReading( undef, "$name userFlowState" ); 
+            CommandDeleteReading( undef, $name . ' userFlowState' ); 
         }
         
-        Log3 $name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest";
+        Log3($name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest");
     }
-    
-    
-    
-    if( $cmd eq "set" ) {
+
+    if( $cmd eq 'set' ) {
         if( $attrVal and $orig ne $attrVal ) {
         
             $attr{$name}{$attrName} = $attrVal;
-            return $attrName ." set to ". $attrVal if( $init_done );
+            return $attrName . ' set to ' . $attrVal if( $init_done );
         }
     }
     
     return undef;
 }
 
-sub AMADDevice_Notify($$) {
+sub Notify($$) {
 
     my ($hash,$dev) = @_;
     my $name = $hash->{NAME};
@@ -324,7 +338,7 @@ sub AMADDevice_Notify($$) {
     return if (!$events);
 
 
-    AMADDevice_statusRequest($hash) if( (grep /^DELETEATTR.$name.setAPSSID$/,@{$events}
+    statusRequest($hash) if( (grep /^DELETEATTR.$name.setAPSSID$/,@{$events}
                                                     or grep /^ATTR.$name.setAPSSID.*/,@{$events}
                                                     or grep /^DELETEATTR.$name.checkActiveTask$/,@{$events}
                                                     or grep /^ATTR.$name.checkActiveTask.*/,@{$events}
@@ -332,19 +346,19 @@ sub AMADDevice_Notify($$) {
                                                     or grep /^ATTR.$name.setUserFlowState.*/,@{$events})
                                                     and $init_done and $devname eq 'global' );
 
-    AMADDevice_GetUpdate($hash) if( (grep /^DEFINED.$name$/,@{$events}
+    GetUpdate($hash) if( (grep /^DEFINED.$name$/,@{$events}
                                                     or grep /^INITIALIZED$/,@{$events}
                                                     or grep /^MODIFIED.$name$/,@{$events})
                                                     and $devname eq 'global' and $init_done  );
                                                     
-    AMADDevice_checkDeviceState($hash) if( (grep /^DELETEATTR.$name.disable$/,@{$events}
+    checkDeviceState($hash) if( (grep /^DELETEATTR.$name.disable$/,@{$events}
                                                     or grep /^ATTR.$name.disable.0$/,@{$events})
                                                     and $devname eq 'global' and $init_done );
 
     return;
 }
 
-sub AMADDevice_GetUpdate($) {
+sub GetUpdate($) {
 
     my ( $hash ) = @_;
     my $name    = $hash->{NAME};
@@ -355,19 +369,19 @@ sub AMADDevice_GetUpdate($) {
     
     if( $init_done and ( ReadingsVal( $name, "deviceState", "unknown" ) eq "unknown" or ReadingsVal( $name, "deviceState", "online" ) eq "online" ) and AttrVal( $name, "disable", 0 ) ne "1" and ReadingsVal( $bname, "fhemServerIP", "not set" ) ne "not set" ) {
 
-        AMADDevice_statusRequest($hash);
-        AMADDevice_checkDeviceState( $hash );
+        statusRequest($hash);
+        checkDeviceState( $hash );
         
     } else {
 
         Log3 $name, 4, "AMADDevice ($name) - GetUpdate, FHEM or Device not ready yet";
-        Log3 $name, 3, "AMADDevice ($bname) - GetUpdate, Please set $bname fhemServerIP <IP-FHEM> NOW!" if( ReadingsVal( $bname, "fhemServerIP", "none" ) eq "none" );
+#         Log3 $name, 3, "AMADDevice ($bname) - GetUpdate, Please set $bname fhemServerIP <IP-FHEM> NOW!" if( ReadingsVal( $bname, "fhemServerIP", "null" ) eq "null" );
 
-        InternalTimer( gettimeofday()+30, "AMADDevice_GetUpdate", $hash, 0 );
+        InternalTimer( gettimeofday()+30, "FHEM::AMADDevice::GetUpdate", $hash, 0 );
     }
 }
 
-sub AMADDevice_statusRequest($) {
+sub statusRequest($) {
 
     my $hash        = shift;
     my $name        = $hash->{NAME};
@@ -384,7 +398,7 @@ sub AMADDevice_statusRequest($) {
     my $activetask      = AttrVal( $name, "checkActiveTask", "none" );
     my $userFlowState   = AttrVal( $name, "setUserFlowState", "none" );
     my $apssid          = AttrVal( $name, "setAPSSID", "none" );
-    my $fhemip          = ReadingsVal($hash->{IODev}->{NAME}, "fhemServerIP", "none");
+    my $fhemip          = ReadingsVal($hash->{IODev}->{NAME}, 'fhemServerIP', 'none');
     my $fhemCtlMode     = AttrVal($hash->{IODev}->{NAME},'fhemControlMode','none' );
     my $bport           = $hash->{IODev}->{PORT};
 
@@ -400,7 +414,7 @@ sub AMADDevice_statusRequest($) {
     Log3 $name, 5, "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}";
 }
 
-sub AMADDevice_WriteReadings($$) {
+sub WriteReadings($$) {
 
     my ( $hash, $decode_json ) = @_;
     
@@ -468,7 +482,7 @@ sub AMADDevice_WriteReadings($$) {
     return undef;
 }
 
-sub AMADDevice_Set($$@) {
+sub Set($$@) {
 
     my ($hash, $name, @aa)  = @_;
     my ($cmd, @args)        = @aa;
@@ -496,7 +510,7 @@ sub AMADDevice_Set($$@) {
     }
     
     elsif( lc $cmd eq 'ttsmsg' ) {
-        my ($msg,$speed,$lang,$ttsmsgvol)   = AMADDevice_CreateTtsMsgValue($hash,@args);
+        my ($msg,$speed,$lang,$ttsmsgvol)   = CreateTtsMsgValue($hash,@args);
         
         $path   = "/fhem-amad/setCommands/ttsMsg?message=".urlEncode($msg)."&msgspeed=".$speed."&msglang=".$lang."&msgvol=".$ttsmsgvol;
         $method                             = "POST";
@@ -518,7 +532,7 @@ sub AMADDevice_Set($$@) {
     }
     
     elsif( lc $cmd eq 'volume' or $cmd eq 'mute' or $cmd =~ 'volume[Down|Up]' ) {
-        my $vol     = AMADDevice_CreateVolumeValue($hash,$cmd,@args);
+        my $vol     = CreateVolumeValue($hash,$cmd,@args);
     
         $path   = "/fhem-amad/setCommands/setVolume?volume=$vol";
         $method     = "POST";
@@ -563,7 +577,7 @@ sub AMADDevice_Set($$@) {
         my $mod = join( " ", @args );
 
 
-        $path        = AMADDevice_CreateScreenValue($hash,$mod);
+        $path        = CreateScreenValue($hash,$mod);
         return "Please set \"setScreenlockPIN\" Attribut first"
         unless($path ne 'NO PIN');
         $method     = "POST";
@@ -616,7 +630,7 @@ sub AMADDevice_Set($$@) {
 
     elsif( lc $cmd eq 'statusrequest' ) {
 
-       AMADDevice_statusRequest($hash);
+       statusRequest($hash);
        return;
     }
 
@@ -668,7 +682,7 @@ sub AMADDevice_Set($$@) {
     elsif( lc $cmd eq 'changetobtdevice' ) {
         my $swToBtDevice = join( " ", @args );    
 
-        my ($swToBtMac,$btDeviceOne,$btDeviceTwo) = AMADDevice_CreateChangeBtDeviceValue($hash,$swToBtDevice);
+        my ($swToBtMac,$btDeviceOne,$btDeviceTwo) = CreateChangeBtDeviceValue($hash,$swToBtDevice);
         $path   = "/fhem-amad/setCommands/setbtdevice?swToBtDeviceMac=".$swToBtMac."&btDeviceOne=".$btDeviceOne."&btDeviceTwo=".$btDeviceTwo;
         $method = "POST";
     }
@@ -806,7 +820,7 @@ sub AMADDevice_Set($$@) {
     return undef;
 }
 
-sub AMADDevice_Parse($$) {
+sub Parse($$) {
 
     my ($io_hash,$json) = @_;
     my $name            = $io_hash->{NAME};
@@ -828,7 +842,7 @@ sub AMADDevice_Parse($$) {
     if( my $hash        = $modules{AMADDevice}{defptr}{$amad_id} ) {        
         my $name        = $hash->{NAME};
                         
-        AMADDevice_WriteReadings($hash,$decode_json);
+        WriteReadings($hash,$decode_json);
         Log3 $name, 4, "AMADDevice ($name) - find logical device: $hash->{NAME}";
                         
         return $hash->{NAME};
@@ -843,27 +857,27 @@ sub AMADDevice_Parse($$) {
 ##################################
 #### my little helpers ###########
 
-sub AMADDevice_checkDeviceState($) {
+sub checkDeviceState($) {
 
     my ( $hash ) = @_;
     my $name = $hash->{NAME};
 
-    Log3 $name, 4, "AMADDevice ($name) - AMADDevice_checkDeviceState: run Check";
+    Log3 $name, 4, "AMADDevice ($name) - checkDeviceState: run Check";
 
     
     if( ReadingsAge( $name, ".deviceState", 240 ) > 240 ) {
     
-        AMADDevice_statusRequest( $hash ) if( $hash->{helper}{deviceStateErrorCounter} == 0 );
+        statusRequest( $hash ) if( $hash->{helper}{deviceStateErrorCounter} == 0 );
         readingsSingleUpdate( $hash, "deviceState", "offline", 1 ) if( ReadingsAge( $name, ".deviceState", 300) > 300 and $hash->{helper}{deviceStateErrorCounter} > 0 and ReadingsVal($name,'deviceState','online') ne 'offline' );
         $hash->{helper}{deviceStateErrorCounter} = ( $hash->{helper}{deviceStateErrorCounter} + 1 );
     }
     
-    InternalTimer( gettimeofday()+240, "AMADDevice_checkDeviceState", $hash, 0 );
+    InternalTimer( gettimeofday()+240, "FHEM::AMADDevice::checkDeviceState", $hash, 0 );
     
-    Log3 $name, 4, "AMADDevice ($name) - AMADDevice_checkDeviceState: set new Timer";
+    Log3 $name, 4, "AMADDevice ($name) - checkDeviceState: set new Timer";
 }
 
-sub AMADDevice_encrypt($) {
+sub encrypt($) {
 
     my ($decodedPIN) = @_;
     my $key = getUniqueId();
@@ -880,7 +894,7 @@ sub AMADDevice_encrypt($) {
     return 'crypt:'. $encodedPIN;
 }
 
-sub AMADDevice_decrypt($) {
+sub decrypt($) {
 
     my ($encodedPIN) = @_;
     my $key = getUniqueId();
@@ -897,7 +911,7 @@ sub AMADDevice_decrypt($) {
     return $decodedPIN;
 }
 
-sub AMADDevice_CreateVolumeValue($$@) {
+sub CreateVolumeValue($$@) {
 
     my ($hash,$cmd,@args)       = @_;
     
@@ -942,7 +956,7 @@ sub AMADDevice_CreateVolumeValue($$@) {
     return $vol;
 }
 
-sub AMADDevice_CreateTtsMsgValue($@) {
+sub CreateTtsMsgValue($@) {
 
     my ($hash,@args)       = @_;
     
@@ -970,7 +984,7 @@ sub AMADDevice_CreateTtsMsgValue($@) {
     return ($msg,$speed,$lang,$ttsmsgvol);
 }
 
-sub AMADDevice_CreateScreenValue($$) {
+sub CreateScreenValue($$) {
 
     my ($hash,$mod)     = @_;
 
@@ -986,13 +1000,13 @@ sub AMADDevice_CreateScreenValue($$) {
         return "NO PIN"
         unless( AttrVal( $name, "setScreenlockPIN", "none" ) ne "none" );
         my $PIN = AttrVal( $name, "setScreenlockPIN", undef );
-        $PIN = AMADDevice_decrypt($PIN);
+        $PIN = decrypt($PIN);
 
         return ("/fhem-amad/setCommands/screenlock?lockmod=".$mod."&lockPIN=".$PIN);
     }
 }
 
-sub AMADDevice_CreateChangeBtDeviceValue($$) {
+sub CreateChangeBtDeviceValue($$) {
 
     my ($hash,$swToBtDevice)    = @_;
 
@@ -1403,4 +1417,50 @@ sub AMADDevice_CreateChangeBtDeviceValue($$) {
 </ul>
 
 =end html_DE
+
+=for :application/json;q=META.json 74_AMADDevice.pm
+{
+  "abstract": "Integrates Android devices into FHEM and displays several settings",
+  "x_lang": {
+    "de": {
+      "abstract": "Integriert Android-Geräte in FHEM und zeigt verschiedene Einstellungen an"
+    }
+  },
+  "keywords": [
+    "fhem-mod-device",
+    "fhem-core",
+    "Android",
+    "Tablet",
+    "Handy",
+    "AMAD"
+  ],
+  "release_status": "stable",
+  "license": "GPL_2",
+  "author": [
+    "Marko Oldenburg <leongaultier@gmail.com>"
+  ],
+  "x_fhem_maintainer": [
+    "CoolTux"
+  ],
+  "x_fhem_maintainer_github": [
+    "LeonGaultier"
+  ],
+  "prereqs": {
+    "runtime": {
+      "requires": {
+        "FHEM": 5.00918799,
+        "perl": 5.016, 
+        "Meta": 0,
+        "Encode": 0,
+        "JSON": 0
+      },
+      "recommends": {
+      },
+      "suggests": {
+      }
+    }
+  }
+}
+=end :application/json;q=META.json
+
 =cut

From 1df64edb94026cc84e9d8fae71b0e9ea883bc860 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Tue, 26 Mar 2019 23:23:47 +0100
Subject: [PATCH 2/7] change automagic flowset

---
 ...5.xml => 74_AMADautomagicFlowset_4.4.0.xml | 710 +++++++++---------
 1 file changed, 355 insertions(+), 355 deletions(-)
 rename 74_AMADautomagicFlowset_4.2.5.xml => 74_AMADautomagicFlowset_4.4.0.xml (91%)

diff --git a/74_AMADautomagicFlowset_4.2.5.xml b/74_AMADautomagicFlowset_4.4.0.xml
similarity index 91%
rename from 74_AMADautomagicFlowset_4.2.5.xml
rename to 74_AMADautomagicFlowset_4.4.0.xml
index b369469..ac66719 100644
--- a/74_AMADautomagicFlowset_4.2.5.xml
+++ b/74_AMADautomagicFlowset_4.4.0.xml
@@ -2725,25 +2725,25 @@ Connection: close</customHTTPHeaders>
 if (global_bridgeport != {header_bport}) {
     global_bridgeport = {header_bport} }
 
-if (header_fhemctlmode != null or header_fhemctlmode != {global_fhemctlmode}) {
+if (header_fhemctlmode != null and header_fhemctlmode != {global_fhemctlmode}) {
    global_fhemctlmode = {header_fhemctlmode} }
 
-if (header_fhemip != null or header_fhemip != {global_fhemip}) {
+if (header_fhemip != null and header_fhemip != "none" and header_fhemip != {global_fhemip}) {
    global_fhemip = {header_fhemip} }
 
-if (header_fhemdevice != null or header_fhemdevice != {global_fhemdevice}) {
+if (header_fhemdevice != null and header_fhemdevice != {global_fhemdevice}) {
    global_fhemdevice = {header_fhemdevice} }
 
-if (header_activetask != null or header_activetask != {global_activetask}) {
+if (header_activetask != null and header_activetask != {global_activetask}) {
    global_activetask = {header_activetask} }
 
-if (header_apssid != null or header_apssid != {global_apssid}) {
+if (header_apssid != null and header_apssid != {global_apssid}) {
    global_apssid = {header_apssid} }
 
-if (header_dport != null or header_dport != {global_deviceport}) {
+if (header_dport != null and header_dport != {global_deviceport}) {
    global_deviceport = {header_dport} }
 
-if (header_userflowstate != null or header_userflowstate != {global_userflowstate}) {
+if (header_userflowstate != null and header_userflowstate != {global_userflowstate}) {
    global_userflowstate = {header_userflowstate} }</script>
   </action>
   <action type="turn_screen_on">
@@ -3418,7 +3418,7 @@ fhemcmd = "setreading";</script>
   <action type="script">
     <useDefaultName>false</useDefaultName>
     <name>Script: Set FHEMDATA JSON</name>
-    <script>fhemdata = "\"flowsetVersionAtDevice\": \"4.2.5\",";
+    <script>fhemdata = "\"flowsetVersionAtDevice\": \"4.4.0\",";
 
 
 
@@ -3830,7 +3830,7 @@ else if(param_mplayer == "MXPlayerPro")
     <settingCategory>SYSTEM</settingCategory>
     <settingName>screen_brightness_mode</settingName>
     <value>{param_brightnessmode}</value>
-    <verified>false</verified>
+    <verified>true</verified>
   </action>
   <action type="set_timer">
     <useDefaultName>false</useDefaultName>
@@ -4155,7 +4155,7 @@ Soll der Assistent gelöscht werden?</text>
   </action>
   <flow type="flow">
     <name>First Run Assistant</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>false</enabled>
     <executionPolicy>PARALLEL</executionPolicy>
     <triggercontainer id="t1" x="35.0" y="-2292.5">
@@ -4328,7 +4328,7 @@ Soll der Assistent gelöscht werden?</actioncontainer>
   </flow>
   <flow type="flow">
     <name>Informations</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>QUEUE</executionPolicy>
     <emergencyStopCount>900</emergencyStopCount>
@@ -4436,140 +4436,140 @@ Soll der Assistent gelöscht werden?</actioncontainer>
     <actioncontainer id="t53" x="35.0" y="1207.5">Script: volume = {volumeBT}</actioncontainer>
     <actioncontainer id="t54" x="-770.0" y="-3342.5">Pause: 2s (Gerät wach halten)</actioncontainer>
     <conditioncontainer id="t55" x="-770.0" y="-3167.5">Musik Aktiv</conditioncontainer>
-    <actioncontainer id="t56" x="735.0" y="1417.5">Benachrichtigung auf Bildschirm: [AMAD2] Nicht mehr benötigte AMAD Flows wurden entfernt! (lange)</actioncontainer>
-    <actioncontainer id="t57" x="35.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeMusikBluetooth.2</actioncontainer>
-    <actioncontainer id="t58" x="175.0" y="1207.5">Script: volume = {volumeSP}</actioncontainer>
-    <actioncontainer id="t59" x="175.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeMusikSpeaker.2</actioncontainer>
-    <conditioncontainer id="t60" x="-2940.0" y="-2782.5">Expression: trigger == "Unterbrechnungen-Modus: Alle / Immer unterbrechen" or trigger == "Unterbrechnungen-Modus: Keine / Nicht unterbrechen" or trigger == "Unterbrechnungen-Modus: Nur Wecker (Android 6+)" or trigger == "Unterbrechnungen-Modus: Wichtig / Nur wichtige Unterbrechnungen zulassen" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <conditioncontainer id="t61" x="-2940.0" y="-3097.5">Expression: getAndroidSDKVersion() &gt;= "21"</conditioncontainer>
-    <actioncontainer id="t62" x="-1120.0" y="-3097.5">Script: airpcount = 0</actioncontainer>
-    <conditioncontainer id="t63" x="-1225.0" y="-3342.5">Host erreichbar: {global_fhemip}:{global_bridgeport}</conditioncontainer>
-    <actioncontainer id="t64" x="3885.0" y="-997.5">WLAN Reassoziieren</actioncontainer>
-    <conditioncontainer id="t65" x="1015.0" y="157.5">Expression: global_fhemip != null or global_bridgeport != null</conditioncontainer>
-    <actioncontainer id="t66" x="-875.0" y="997.5">Initialisiere Variable Systemeinstellung: screenBrightness</actioncontainer>
-    <actioncontainer id="t67" x="-455.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeNotification</actioncontainer>
-    <conditioncontainer id="t68" x="-770.0" y="-2782.5">Expression: trigger == "Medien Session verändert" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <conditioncontainer id="t69" x="3885.0" y="-1592.5">WLAN verfügbar: {global_apssid}</conditioncontainer>
-    <actioncontainer id="t70" x="2800.0" y="-3832.5">Script: dockingState = "\"dockingState\":" + " \"" + {dock_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t71" x="1855.0" y="-3832.5">Script: screenOrientation = "\"screenOrientation\":" + " \"" + {screen_orientation} + "\"" + "," + "\"screenOrientationMode\":" + " \"" + {screen_orientation_mode} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t72" x="-1120.0" y="-3832.5">Script: airplanemode = "\"airplanemode\":" + " \"" + {airplanemode} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t73" x="3220.0" y="-2467.5">Script: checkActiveTask = "\"checkActiveTask\":" + " \"" + {runTask} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t74" x="595.0" y="1417.5">Expression: Leon == "Gaultier"</conditioncontainer>
-    <actioncontainer id="t75" x="665.0" y="1207.5">Flows löschen: MultimediaControl</actioncontainer>
-    <conditioncontainer id="t76" x="2310.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: ch.gridvision.ppam.androidautomagic" or trigger == "Benachrichtigung in Statusbar entfernt: ch.gridvision.ppam.androidautomagic" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <conditioncontainer id="t77" x="2310.0" y="-3027.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
-    <actioncontainer id="t78" x="2170.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
-    <conditioncontainer id="t79" x="2310.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: Automagic</conditioncontainer>
-    <actioncontainer id="t80" x="4270.0" y="-892.5">Script: deviceState = "\"deviceState\": \"online\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t81" x="2800.0" y="-2782.5">Expression: trigger == "Dock Event: Docked" or trigger == "Dock Event: Undocked" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <actioncontainer id="t82" x="1015.0" y="-4602.5">Flows ausführen: Send Data to AMADCommBridge</actioncontainer>
-    <actioncontainer id="t83" x="-455.0" y="-3832.5">Script: bluetooth = "\"bluetooth\":" + " \"" + {bluetooth_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t84" x="-315.0" y="-3552.5">Script: connected_devices_names = "none"; connected_devices_addresses = "none"</actioncontainer>
-    <actioncontainer id="t85" x="-315.0" y="-3832.5">Script: btdeviceinfo = "\"connectedBTdevices\":" + " \"" + {connected_devices_names} + "\"" + "," + "\"connectedBTdevicesMAC\":" + " \"" + {connected_devices_addresses} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t86" x="-315.0" y="-3097.5">Bluetooth Gerät verbunden: Beliebiges Geräte</conditioncontainer>
-    <conditioncontainer id="t87" x="-420.0" y="-2782.5">Expression: trigger == "Bluetooth Status: Schaltet aus, Aus" or trigger == "Bluetooth Gerät verbunden: Alle Geräte" or trigger == "Bluetooth Gerät getrennt: Alle Geräte" or trigger == "Bluetooth Status: Schaltet ein, Ein" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <actioncontainer id="t88" x="-1120.0" y="-2327.5">Script: flow_SetCommands = "\"flow_SetCommands\":" + " \"" + {setCommandFlow_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t89" x="-1120.0" y="-2152.5">Setze Flow Status: Aktivieren SetCommands</actioncontainer>
-    <actioncontainer id="t90" x="-1015.0" y="-1977.5">Script: setCommandFlow_state = "aktiv"</actioncontainer>
-    <actioncontainer id="t91" x="-1225.0" y="-1977.5">Script: setCommandFlow_state = "inaktiv"</actioncontainer>
-    <conditioncontainer id="t92" x="-1120.0" y="-1802.5">Flow Aktiv: SetCommands</conditioncontainer>
-    <conditioncontainer id="t93" x="-1120.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
-    <conditioncontainer id="t94" x="-1855.0" y="-1802.5">Expression: global_userflowstate != "none"</conditioncontainer>
-    <conditioncontainer id="t95" x="-1855.0" y="-1977.5">Flow Aktiv: {global_userflowstate}</conditioncontainer>
-    <actioncontainer id="t96" x="-1925.0" y="-2152.5">Script: flowState = "inactive"</actioncontainer>
-    <actioncontainer id="t97" x="-1785.0" y="-2152.5">Script: flowState = "active"</actioncontainer>
-    <actioncontainer id="t98" x="-1855.0" y="-2327.5">Script: flow_informations = "\"userFlowState\":" + " \"" + {flowState} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t99" x="-1855.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <conditioncontainer id="t100" x="-2485.0" y="-1802.5">Flow Aktiv: Send Data to AMADCommBridge</conditioncontainer>
-    <actioncontainer id="t101" x="-2450.0" y="-2292.5">Setze Flow Status: Aktivieren Send Data to AMADCommBridge</actioncontainer>
-    <conditioncontainer id="t102" x="-2485.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
-    <actioncontainer id="t103" x="2310.0" y="-3832.5">Script: automagicState = "\"automagicState\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t104" x="-1050.0" y="-3342.5">Pause: 2s (Gerät wach halten)</actioncontainer>
-    <actioncontainer id="t105" x="-1050.0" y="-3517.5">Script: airpcount = airpcount + 1</actioncontainer>
-    <conditioncontainer id="t106" x="-1050.0" y="-3657.5">Expression: airpcount &lt; 11</conditioncontainer>
-    <actioncontainer id="t107" x="2450.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
-    <actioncontainer id="t108" x="-770.0" y="-3832.5">Script: currentMusic = "\"currentMusicTrack\":" + " \"" + {title} + "\"" + "," + "\"currentMusicAlbum\":" + " \"" + {description} + "\"" + "," + "\"currentMusicArtist\":" + " \"" + {subtitle} + "\"" + "," + "\"currentMusicApp\":" + " \"" + {musicapp} + "\"" + "," + "\"currentMusicIcon\":" + " \"" + {icon} + "\"" + "," + "\"currentMusicState\":" + " \"" + {playback_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t109" x="210.0" y="-3832.5">Script: volumevalue = "\"volume\":" + " \"" + {volume} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t110" x="525.0" y="-3832.5">Script: nextAlarm = "\"nextAlarmTime\":" + " \"" + {next_alarmtime} + "\"" + "," + "\"nextAlarmDay\":" + " \"" + {next_alarmday} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t111" x="3255.0" y="-1802.5">Expression: package_name == {global_activetask}</conditioncontainer>
-    <conditioncontainer id="t112" x="4270.0" y="-1592.5">Expression: trigger == "Periodischer Timer: alle 120s" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <conditioncontainer id="t113" x="1015.0" y="-227.5">Expression: trigger == "App Task Beendet" or trigger == "App Task Gestartet"</conditioncontainer>
-    <conditioncontainer id="t114" x="3255.0" y="-1592.5">Expression: trigger == "App Task Gestartet" or trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
-    <conditioncontainer id="t115" x="-2450.0" y="-2782.5">Expression: trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_ALERT" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DISMISS" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DONE" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_SNOOZE" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <actioncontainer id="t116" x="-2450.0" y="-3552.5">Script: if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_ALERT") { nextalarmstate = "alert" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DISMISS") { nextalarmstate = "dismiss" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DONE") { nextalarmstate = "done" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_SNOOZE") { nextalarmstate = "snooze" }</actioncontainer>
-    <conditioncontainer id="t117" x="525.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System next_alarm" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <actioncontainer id="t118" x="525.0" y="-3097.5">Initialisiere Variable Nächster Alarm: next_alarm</actioncontainer>
-    <actioncontainer id="t119" x="630.0" y="-3587.5">Script: next_alarmtime = "{next_alarm,dateformat,HH:mm}"</actioncontainer>
-    <actioncontainer id="t120" x="420.0" y="-3587.5">Script: next_alarmday = "{next_alarm,dateformat,c}"</actioncontainer>
-    <actioncontainer id="t121" x="-665.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeRingSound</actioncontainer>
-    <conditioncontainer id="t122" x="-3430.0" y="-2782.5">Expression: trigger == "SMS Empfangen: Alle"</conditioncontainer>
-    <actioncontainer id="t123" x="-2450.0" y="-3867.5">Script: nextAlarmState = "\"nextAlarmState\":" + " \"" + {nextalarmstate} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t124" x="-2975.0" y="-3867.5">Script: doNotDisturb = "\"doNotDisturb\":" + " \"" + {dndValue} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t125" x="-2170.0" y="-3832.5">Script: screen_state = "on"</actioncontainer>
-    <actioncontainer id="t126" x="-1680.0" y="-3517.5">Script: keyguard = "locked"</actioncontainer>
-    <actioncontainer id="t127" x="-1540.0" y="-3517.5">Script: keyguard = "unlocked"</actioncontainer>
-    <actioncontainer id="t128" x="-1610.0" y="-3097.5">Script: scrcount = 0</actioncontainer>
-    <actioncontainer id="t129" x="-1855.0" y="-4007.5">Script: screen = "\"screen\":" + " \"" + {screen_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t130" x="3150.0" y="-3482.5">Script: keyguardset = "1"</actioncontainer>
-    <actioncontainer id="t131" x="3290.0" y="-3482.5">Script: keyguardset = "0"</actioncontainer>
-    <conditioncontainer id="t132" x="3220.0" y="-2782.5">Expression: udef_trigger == "setLockPin" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
-    <actioncontainer id="t133" x="3290.0" y="-3132.5">Script: keyguardset = "not supported from your device"</actioncontainer>
-    <actioncontainer id="t134" x="3220.0" y="-3832.5">Script: keyguardSet = "\"keyguardSet\":" + " \"" + {keyguardset} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t135" x="1155.0" y="-3832.5">Script: daydream = "\"daydream\":" + " \"" + {daydream_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t136" x="1015.0" y="1417.5">Prüfe und setze globale Variable</actioncontainer>
-    <conditioncontainer id="t137" x="1015.0" y="682.5">Expression: trigger == "HTTP Request: /fhem-amad/deviceInfo/" and header_amadid == {global_amadid}</conditioncontainer>
-    <actioncontainer id="t138" x="-3430.0" y="-3867.5">Script: incomingSmsMessage = "\"incomingSmsMessage\":" + " \"" + {sms_sender} + " - " + replaceAll({sms_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t139" x="-770.0" y="-2992.5">Script: if(package_name == "com.google.android.music") { musicapp = "Google Musik" } else if(package_name == "com.amazon.mp3") { musicapp = "Amazon Musik" } else if(package_name == "com.google.android.videos") { musicapp = "Google Video" } else if(package_name == "com.spotify.music") { musicapp = "Spotify Musik" } else if(package_name == "com.google.android.youtube") { musicapp = "YouTube" } else if(package_name == "com.google.android.apps.youtube.kids") { musicapp = "YouTube Kids" } else if(package_name == "tunein.player") { musicapp = "TuneIn Player" } else if(package_name == "com.rhapsody.alditalk") { musicapp = "Aldi Life Musik" } else if(package_name == "org.videolan.vlc") { musicapp = "VLC Player" } else if(package_name == "com.sec.android.app.music") { musicapp = "Samsung Music Player" } else if(package_name == "deezer.android.app") { musicapp = "Deezer" } else if(package_name == "com.maxmpz.audioplayer") { musicapp = "Poweramp" } else if(package_name == "com.mxtech.videoplayer.pro") { musicapp = "MXPlayerPro" }</actioncontainer>
-    <actioncontainer id="t140" x="-770.0" y="-3517.5">Script: subtitle = "no player active"; title = "no player active"; description = "no player active"; musicapp = "no player active"; icon = "no player active"</actioncontainer>
-    <actioncontainer id="t141" x="-770.0" y="-3657.5">Script: if(playback_state == 0) { playback_state = "none" } else if(playback_state == 1) { playback_state = "stopped" } else if(playback_state == 2) { playback_state = "pause" } else if(playback_state == 3) { playback_state = "play" } else if(playback_state == 4) { playback_state = "fast forward" } else if(playback_state == 5) { playback_state = "fast backward" } else if(playback_state == 6) { playback_state = "buffert" } else if(playback_state == 7) { playback_state = "error" } else if(playback_state == 8) { playback_state = "connect" } else if(playback_state == 9) { playback_state = "skip forward" } else if(playback_state == 10) { playback_state = "skip backward" } else if(playback_state == 11) { playback_state = "jump to position in playlist" }</actioncontainer>
-    <conditioncontainer id="t142" x="1505.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System screen_brightness"</conditioncontainer>
-    <actioncontainer id="t143" x="1505.0" y="-3832.5">Script: screenBrightness = "\"screenBrightness\":" + " \"" + {screenBrightness} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t144" x="840.0" y="-3832.5">Script: powerinfo = "\"batteryPercent\":" + " \"" + "{battery_percentage,numberformat,0}" + "\"" + "," + "\"powerPlugged\":" + " \"" + {battery_plugged} + "\"" + "," + "\"batteryTemperature\":" + " \"" + "{battery_temperature/10.0,numberformat.0.0}" + "\"" + "," + "\"batteryHealth\":" + " \"" + {battery_health} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t145" x="0.0" y="-3832.5">Script: volumeNotification = "\"volumeNotification\":" + " \"" + {volumeNotification} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t146" x="210.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_music_bt_a2dp" or trigger == "Systemeinstellung verändert: System volume_music_speaker" or trigger == "Systemeinstellung verändert: System volume_music_headphone" or trigger == "Systemeinstellung verändert: System volume_music_headset"</conditioncontainer>
-    <conditioncontainer id="t147" x="0.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_ring_speaker"</conditioncontainer>
-    <actioncontainer id="t148" x="4095.0" y="-3832.5">Script: incomingWhatsAppMessage = "\"incomingWhatsAppMessage\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t149" x="3955.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
-    <actioncontainer id="t150" x="4235.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
-    <conditioncontainer id="t151" x="4095.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: WhatsApp</conditioncontainer>
-    <conditioncontainer id="t152" x="4095.0" y="-3132.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
-    <conditioncontainer id="t153" x="4095.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: com.whatsapp"</conditioncontainer>
-    <actioncontainer id="t154" x="4620.0" y="-3832.5">Script: incomingTelegramMessage = "\"incomingTelegramMessage\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t155" x="4480.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
-    <conditioncontainer id="t156" x="4620.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: Telegram Messenger</conditioncontainer>
-    <actioncontainer id="t157" x="4760.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
-    <conditioncontainer id="t158" x="4620.0" y="-3132.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
-    <conditioncontainer id="t159" x="4620.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: org.telegram.messenger"</conditioncontainer>
-    <actioncontainer id="t160" x="5005.0" y="-3832.5">Script: intentRadioState = "\"intentRadioState\":" + " \"" + {irstate} + "\"" + "," + "\"intentRadioName\":" + " \"" + {irname} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t161" x="5250.0" y="-3832.5">Script: volumeRingSound = "\"volumeRingSound\":" + " \"" + {volumeRingSound} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t162" x="5005.0" y="-2782.5">Expression: trigger == "Genereller Broadcast: wenn org.smblott.intentradio.STATE"</conditioncontainer>
-    <actioncontainer id="t163" x="5530.0" y="-3832.5">Script: wiredHeadsetPlugged = "\"wiredHeadsetPlugged\":" + " \"" + {headsetValue} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t164" x="5600.0" y="-3482.5">Script: headsetValue = 0</actioncontainer>
-    <actioncontainer id="t165" x="5460.0" y="-3482.5">Script: headsetValue = 1</actioncontainer>
-    <conditioncontainer id="t166" x="5530.0" y="-3132.5">Kabelgebundenes Headset verbunden</conditioncontainer>
-    <conditioncontainer id="t167" x="5530.0" y="-2782.5">Expression: trigger == "Kabelgebundenes Headset Verbunden" or trigger == "Kabelgebundenes Headset Getrennt"</conditioncontainer>
-    <conditioncontainer id="t168" x="5250.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_ring"</conditioncontainer>
-    <actioncontainer id="t169" x="5880.0" y="-3832.5">Script: screenBrightnessMode = "\"screenBrightnessMode\":" + " \"" + {screenBrightnessMode} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t170" x="5880.0" y="-3482.5">Script: if(screenBrightnessMode == 1) { screenBrightnessMode = "on"; } else { screenBrightnessMode = "off"; }</actioncontainer>
-    <conditioncontainer id="t171" x="5880.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System screen_brightness_mode"</conditioncontainer>
-    <conditioncontainer id="t172" x="3535.0" y="-2782.5">Expression: trigger == "Eingehender Anruf. Status: Klingelt, Abgenommen, Beendet, Nummern: Alle"</conditioncontainer>
-    <actioncontainer id="t173" x="3535.0" y="-3832.5">Script: incomingCaller = "\"incomingCallerName\":" + " \"" + {contact_name} + "\"" + "," + "\"incomingCallerNumber\":" + " \"" + {incoming_number} + "\"" + "," + "\"incomingCallerStatus\":" + " \"" + {call_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t174" x="3780.0" y="-2782.5">Expression: trigger == "Ausgehender Anruf: Alle, Abgenommen, Beendet"</conditioncontainer>
-    <actioncontainer id="t175" x="3780.0" y="-3832.5">Script: outgoingCaller = "\"outgoingCallerName\":" + " \"" + {contact_name} + "\"" + "," + "\"outgoingCallerNumber\":" + " \"" + {called_number} + "\"" + "," + "\"outgoingCallerStatus\":" + " \"" + {call_state} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <conditioncontainer id="t176" x="1015.0" y="-1242.5">Host erreichbar: {global_fhemip}:{global_bridgeport}</conditioncontainer>
-    <actioncontainer id="t177" x="1330.0" y="1417.5">Script: androidVersion = "\"androidVersion\":" + " \"" + {androidVersion} + "\""; fhemcmd = "setreading";</actioncontainer>
-    <actioncontainer id="t178" x="1260.0" y="1207.5">Script: androidVersion = "not supported funktion"</actioncontainer>
-    <actioncontainer id="t179" x="1295.0" y="997.5">Get Android Version</actioncontainer>
-    <connection from="t1" to="t113" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t2" to="t135" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t3" to="t135" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <actioncontainer id="t56" x="35.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeMusikBluetooth.2</actioncontainer>
+    <actioncontainer id="t57" x="175.0" y="1207.5">Script: volume = {volumeSP}</actioncontainer>
+    <actioncontainer id="t58" x="175.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeMusikSpeaker.2</actioncontainer>
+    <conditioncontainer id="t59" x="-2940.0" y="-2782.5">Expression: trigger == "Unterbrechnungen-Modus: Alle / Immer unterbrechen" or trigger == "Unterbrechnungen-Modus: Keine / Nicht unterbrechen" or trigger == "Unterbrechnungen-Modus: Nur Wecker (Android 6+)" or trigger == "Unterbrechnungen-Modus: Wichtig / Nur wichtige Unterbrechnungen zulassen" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <conditioncontainer id="t60" x="-2940.0" y="-3097.5">Expression: getAndroidSDKVersion() &gt;= "21"</conditioncontainer>
+    <actioncontainer id="t61" x="-1120.0" y="-3097.5">Script: airpcount = 0</actioncontainer>
+    <conditioncontainer id="t62" x="-1225.0" y="-3342.5">Host erreichbar: {global_fhemip}:{global_bridgeport}</conditioncontainer>
+    <actioncontainer id="t63" x="3885.0" y="-997.5">WLAN Reassoziieren</actioncontainer>
+    <conditioncontainer id="t64" x="1015.0" y="157.5">Expression: global_fhemip != null or global_bridgeport != null</conditioncontainer>
+    <actioncontainer id="t65" x="-875.0" y="997.5">Initialisiere Variable Systemeinstellung: screenBrightness</actioncontainer>
+    <actioncontainer id="t66" x="-455.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeNotification</actioncontainer>
+    <conditioncontainer id="t67" x="-770.0" y="-2782.5">Expression: trigger == "Medien Session verändert" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <conditioncontainer id="t68" x="3885.0" y="-1592.5">WLAN verfügbar: {global_apssid}</conditioncontainer>
+    <actioncontainer id="t69" x="2800.0" y="-3832.5">Script: dockingState = "\"dockingState\":" + " \"" + {dock_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t70" x="1855.0" y="-3832.5">Script: screenOrientation = "\"screenOrientation\":" + " \"" + {screen_orientation} + "\"" + "," + "\"screenOrientationMode\":" + " \"" + {screen_orientation_mode} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t71" x="-1120.0" y="-3832.5">Script: airplanemode = "\"airplanemode\":" + " \"" + {airplanemode} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t72" x="3220.0" y="-2467.5">Script: checkActiveTask = "\"checkActiveTask\":" + " \"" + {runTask} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t73" x="2310.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: ch.gridvision.ppam.androidautomagic" or trigger == "Benachrichtigung in Statusbar entfernt: ch.gridvision.ppam.androidautomagic" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <conditioncontainer id="t74" x="2310.0" y="-3027.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
+    <actioncontainer id="t75" x="2170.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
+    <conditioncontainer id="t76" x="2310.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: Automagic</conditioncontainer>
+    <actioncontainer id="t77" x="4270.0" y="-892.5">Script: deviceState = "\"deviceState\": \"online\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t78" x="2800.0" y="-2782.5">Expression: trigger == "Dock Event: Docked" or trigger == "Dock Event: Undocked" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <actioncontainer id="t79" x="1015.0" y="-4602.5">Flows ausführen: Send Data to AMADCommBridge</actioncontainer>
+    <actioncontainer id="t80" x="-455.0" y="-3832.5">Script: bluetooth = "\"bluetooth\":" + " \"" + {bluetooth_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t81" x="-315.0" y="-3552.5">Script: connected_devices_names = "none"; connected_devices_addresses = "none"</actioncontainer>
+    <actioncontainer id="t82" x="-315.0" y="-3832.5">Script: btdeviceinfo = "\"connectedBTdevices\":" + " \"" + {connected_devices_names} + "\"" + "," + "\"connectedBTdevicesMAC\":" + " \"" + {connected_devices_addresses} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t83" x="-315.0" y="-3097.5">Bluetooth Gerät verbunden: Beliebiges Geräte</conditioncontainer>
+    <conditioncontainer id="t84" x="-420.0" y="-2782.5">Expression: trigger == "Bluetooth Status: Schaltet aus, Aus" or trigger == "Bluetooth Gerät verbunden: Alle Geräte" or trigger == "Bluetooth Gerät getrennt: Alle Geräte" or trigger == "Bluetooth Status: Schaltet ein, Ein" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <actioncontainer id="t85" x="-1120.0" y="-2327.5">Script: flow_SetCommands = "\"flow_SetCommands\":" + " \"" + {setCommandFlow_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t86" x="-1120.0" y="-2152.5">Setze Flow Status: Aktivieren SetCommands</actioncontainer>
+    <actioncontainer id="t87" x="-1015.0" y="-1977.5">Script: setCommandFlow_state = "aktiv"</actioncontainer>
+    <actioncontainer id="t88" x="-1225.0" y="-1977.5">Script: setCommandFlow_state = "inaktiv"</actioncontainer>
+    <conditioncontainer id="t89" x="-1120.0" y="-1802.5">Flow Aktiv: SetCommands</conditioncontainer>
+    <conditioncontainer id="t90" x="-1120.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
+    <conditioncontainer id="t91" x="-1855.0" y="-1802.5">Expression: global_userflowstate != "none"</conditioncontainer>
+    <conditioncontainer id="t92" x="-1855.0" y="-1977.5">Flow Aktiv: {global_userflowstate}</conditioncontainer>
+    <actioncontainer id="t93" x="-1925.0" y="-2152.5">Script: flowState = "inactive"</actioncontainer>
+    <actioncontainer id="t94" x="-1785.0" y="-2152.5">Script: flowState = "active"</actioncontainer>
+    <actioncontainer id="t95" x="-1855.0" y="-2327.5">Script: flow_informations = "\"userFlowState\":" + " \"" + {flowState} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t96" x="-1855.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <conditioncontainer id="t97" x="-2485.0" y="-1802.5">Flow Aktiv: Send Data to AMADCommBridge</conditioncontainer>
+    <actioncontainer id="t98" x="-2450.0" y="-2292.5">Setze Flow Status: Aktivieren Send Data to AMADCommBridge</actioncontainer>
+    <conditioncontainer id="t99" x="-2485.0" y="-1557.5">Expression: trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
+    <actioncontainer id="t100" x="2310.0" y="-3832.5">Script: automagicState = "\"automagicState\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t101" x="-1050.0" y="-3342.5">Pause: 2s (Gerät wach halten)</actioncontainer>
+    <actioncontainer id="t102" x="-1050.0" y="-3517.5">Script: airpcount = airpcount + 1</actioncontainer>
+    <conditioncontainer id="t103" x="-1050.0" y="-3657.5">Expression: airpcount &lt; 11</conditioncontainer>
+    <actioncontainer id="t104" x="2450.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
+    <actioncontainer id="t105" x="-770.0" y="-3832.5">Script: currentMusic = "\"currentMusicTrack\":" + " \"" + {title} + "\"" + "," + "\"currentMusicAlbum\":" + " \"" + {description} + "\"" + "," + "\"currentMusicArtist\":" + " \"" + {subtitle} + "\"" + "," + "\"currentMusicApp\":" + " \"" + {musicapp} + "\"" + "," + "\"currentMusicIcon\":" + " \"" + {icon} + "\"" + "," + "\"currentMusicState\":" + " \"" + {playback_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t106" x="210.0" y="-3832.5">Script: volumevalue = "\"volume\":" + " \"" + {volume} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t107" x="525.0" y="-3832.5">Script: nextAlarm = "\"nextAlarmTime\":" + " \"" + {next_alarmtime} + "\"" + "," + "\"nextAlarmDay\":" + " \"" + {next_alarmday} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t108" x="3255.0" y="-1802.5">Expression: package_name == {global_activetask}</conditioncontainer>
+    <conditioncontainer id="t109" x="4270.0" y="-1592.5">Expression: trigger == "Periodischer Timer: alle 120s" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <conditioncontainer id="t110" x="1015.0" y="-227.5">Expression: trigger == "App Task Beendet" or trigger == "App Task Gestartet"</conditioncontainer>
+    <conditioncontainer id="t111" x="3255.0" y="-1592.5">Expression: trigger == "App Task Gestartet" or trigger == "Periodischer Timer: alle 120s"</conditioncontainer>
+    <conditioncontainer id="t112" x="-2450.0" y="-2782.5">Expression: trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_ALERT" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DISMISS" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DONE" or trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_SNOOZE" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <actioncontainer id="t113" x="-2450.0" y="-3552.5">Script: if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_ALERT") { nextalarmstate = "alert" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DISMISS") { nextalarmstate = "dismiss" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_DONE") { nextalarmstate = "done" } if(trigger == "Genereller Broadcast: wenn com.android.deskclock.ALARM_SNOOZE") { nextalarmstate = "snooze" }</actioncontainer>
+    <conditioncontainer id="t114" x="525.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System next_alarm" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <actioncontainer id="t115" x="525.0" y="-3097.5">Initialisiere Variable Nächster Alarm: next_alarm</actioncontainer>
+    <actioncontainer id="t116" x="630.0" y="-3587.5">Script: next_alarmtime = "{next_alarm,dateformat,HH:mm}"</actioncontainer>
+    <actioncontainer id="t117" x="420.0" y="-3587.5">Script: next_alarmday = "{next_alarm,dateformat,c}"</actioncontainer>
+    <actioncontainer id="t118" x="-665.0" y="997.5">Initialisiere Variable Systemeinstellung: volumeRingSound</actioncontainer>
+    <conditioncontainer id="t119" x="-3430.0" y="-2782.5">Expression: trigger == "SMS Empfangen: Alle"</conditioncontainer>
+    <actioncontainer id="t120" x="-2450.0" y="-3867.5">Script: nextAlarmState = "\"nextAlarmState\":" + " \"" + {nextalarmstate} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t121" x="-2975.0" y="-3867.5">Script: doNotDisturb = "\"doNotDisturb\":" + " \"" + {dndValue} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t122" x="-2170.0" y="-3832.5">Script: screen_state = "on"</actioncontainer>
+    <actioncontainer id="t123" x="-1680.0" y="-3517.5">Script: keyguard = "locked"</actioncontainer>
+    <actioncontainer id="t124" x="-1540.0" y="-3517.5">Script: keyguard = "unlocked"</actioncontainer>
+    <actioncontainer id="t125" x="-1610.0" y="-3097.5">Script: scrcount = 0</actioncontainer>
+    <actioncontainer id="t126" x="-1855.0" y="-4007.5">Script: screen = "\"screen\":" + " \"" + {screen_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t127" x="3150.0" y="-3482.5">Script: keyguardset = "1"</actioncontainer>
+    <actioncontainer id="t128" x="3290.0" y="-3482.5">Script: keyguardset = "0"</actioncontainer>
+    <conditioncontainer id="t129" x="3220.0" y="-2782.5">Expression: udef_trigger == "setLockPin" or trigger == "HTTP Request: /fhem-amad/deviceInfo/"</conditioncontainer>
+    <actioncontainer id="t130" x="3290.0" y="-3132.5">Script: keyguardset = "not supported from your device"</actioncontainer>
+    <actioncontainer id="t131" x="3220.0" y="-3832.5">Script: keyguardSet = "\"keyguardSet\":" + " \"" + {keyguardset} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t132" x="1155.0" y="-3832.5">Script: daydream = "\"daydream\":" + " \"" + {daydream_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t133" x="1015.0" y="682.5">Expression: trigger == "HTTP Request: /fhem-amad/deviceInfo/" and header_amadid == {global_amadid}</conditioncontainer>
+    <actioncontainer id="t134" x="-3430.0" y="-3867.5">Script: incomingSmsMessage = "\"incomingSmsMessage\":" + " \"" + {sms_sender} + " - " + replaceAll({sms_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t135" x="-770.0" y="-2992.5">Script: if(package_name == "com.google.android.music") { musicapp = "Google Musik" } else if(package_name == "com.amazon.mp3") { musicapp = "Amazon Musik" } else if(package_name == "com.google.android.videos") { musicapp = "Google Video" } else if(package_name == "com.spotify.music") { musicapp = "Spotify Musik" } else if(package_name == "com.google.android.youtube") { musicapp = "YouTube" } else if(package_name == "com.google.android.apps.youtube.kids") { musicapp = "YouTube Kids" } else if(package_name == "tunein.player") { musicapp = "TuneIn Player" } else if(package_name == "com.rhapsody.alditalk") { musicapp = "Aldi Life Musik" } else if(package_name == "org.videolan.vlc") { musicapp = "VLC Player" } else if(package_name == "com.sec.android.app.music") { musicapp = "Samsung Music Player" } else if(package_name == "deezer.android.app") { musicapp = "Deezer" } else if(package_name == "com.maxmpz.audioplayer") { musicapp = "Poweramp" } else if(package_name == "com.mxtech.videoplayer.pro") { musicapp = "MXPlayerPro" }</actioncontainer>
+    <actioncontainer id="t136" x="-770.0" y="-3517.5">Script: subtitle = "no player active"; title = "no player active"; description = "no player active"; musicapp = "no player active"; icon = "no player active"</actioncontainer>
+    <actioncontainer id="t137" x="-770.0" y="-3657.5">Script: if(playback_state == 0) { playback_state = "none" } else if(playback_state == 1) { playback_state = "stopped" } else if(playback_state == 2) { playback_state = "pause" } else if(playback_state == 3) { playback_state = "play" } else if(playback_state == 4) { playback_state = "fast forward" } else if(playback_state == 5) { playback_state = "fast backward" } else if(playback_state == 6) { playback_state = "buffert" } else if(playback_state == 7) { playback_state = "error" } else if(playback_state == 8) { playback_state = "connect" } else if(playback_state == 9) { playback_state = "skip forward" } else if(playback_state == 10) { playback_state = "skip backward" } else if(playback_state == 11) { playback_state = "jump to position in playlist" }</actioncontainer>
+    <conditioncontainer id="t138" x="1505.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System screen_brightness"</conditioncontainer>
+    <actioncontainer id="t139" x="1505.0" y="-3832.5">Script: screenBrightness = "\"screenBrightness\":" + " \"" + {screenBrightness} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t140" x="840.0" y="-3832.5">Script: powerinfo = "\"batteryPercent\":" + " \"" + "{battery_percentage,numberformat,0}" + "\"" + "," + "\"powerPlugged\":" + " \"" + {battery_plugged} + "\"" + "," + "\"batteryTemperature\":" + " \"" + "{battery_temperature/10.0,numberformat.0.0}" + "\"" + "," + "\"batteryHealth\":" + " \"" + {battery_health} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t141" x="0.0" y="-3832.5">Script: volumeNotification = "\"volumeNotification\":" + " \"" + {volumeNotification} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t142" x="210.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_music_bt_a2dp" or trigger == "Systemeinstellung verändert: System volume_music_speaker" or trigger == "Systemeinstellung verändert: System volume_music_headphone" or trigger == "Systemeinstellung verändert: System volume_music_headset"</conditioncontainer>
+    <conditioncontainer id="t143" x="0.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_ring_speaker"</conditioncontainer>
+    <actioncontainer id="t144" x="4095.0" y="-3832.5">Script: incomingWhatsAppMessage = "\"incomingWhatsAppMessage\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t145" x="3955.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
+    <actioncontainer id="t146" x="4235.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
+    <conditioncontainer id="t147" x="4095.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: WhatsApp</conditioncontainer>
+    <conditioncontainer id="t148" x="4095.0" y="-3132.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
+    <conditioncontainer id="t149" x="4095.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: com.whatsapp"</conditioncontainer>
+    <actioncontainer id="t150" x="4620.0" y="-3832.5">Script: incomingTelegramMessage = "\"incomingTelegramMessage\":" + " \"" + replaceAll({notification_text}, "\\n", " ") + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t151" x="4480.0" y="-3482.5">Script: notification_text = "Aktiviere Automagic unter Einstellungen -&gt; Benachrichtigungen -&gt; Benachrichtigungszugriff"</actioncontainer>
+    <conditioncontainer id="t152" x="4620.0" y="-3482.5">Benachrichtigung in Statusbar angezeigt: Telegram Messenger</conditioncontainer>
+    <actioncontainer id="t153" x="4760.0" y="-3482.5">Script: notification_text = "not supported from your device"</actioncontainer>
+    <conditioncontainer id="t154" x="4620.0" y="-3132.5">Expression: getAndroidSDKVersion() &gt;= "19"</conditioncontainer>
+    <conditioncontainer id="t155" x="4620.0" y="-2782.5">Expression: trigger == "Benachrichtigung in Statusbar angezeigt: org.telegram.messenger"</conditioncontainer>
+    <actioncontainer id="t156" x="5005.0" y="-3832.5">Script: intentRadioState = "\"intentRadioState\":" + " \"" + {irstate} + "\"" + "," + "\"intentRadioName\":" + " \"" + {irname} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t157" x="5250.0" y="-3832.5">Script: volumeRingSound = "\"volumeRingSound\":" + " \"" + {volumeRingSound} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t158" x="5005.0" y="-2782.5">Expression: trigger == "Genereller Broadcast: wenn org.smblott.intentradio.STATE"</conditioncontainer>
+    <actioncontainer id="t159" x="5530.0" y="-3832.5">Script: wiredHeadsetPlugged = "\"wiredHeadsetPlugged\":" + " \"" + {headsetValue} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t160" x="5600.0" y="-3482.5">Script: headsetValue = 0</actioncontainer>
+    <actioncontainer id="t161" x="5460.0" y="-3482.5">Script: headsetValue = 1</actioncontainer>
+    <conditioncontainer id="t162" x="5530.0" y="-3132.5">Kabelgebundenes Headset verbunden</conditioncontainer>
+    <conditioncontainer id="t163" x="5530.0" y="-2782.5">Expression: trigger == "Kabelgebundenes Headset Verbunden" or trigger == "Kabelgebundenes Headset Getrennt"</conditioncontainer>
+    <conditioncontainer id="t164" x="5250.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System volume_ring"</conditioncontainer>
+    <actioncontainer id="t165" x="5880.0" y="-3832.5">Script: screenBrightnessMode = "\"screenBrightnessMode\":" + " \"" + {screenBrightnessMode} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t166" x="5880.0" y="-3482.5">Script: if(screenBrightnessMode == 1) { screenBrightnessMode = "on"; } else { screenBrightnessMode = "off"; }</actioncontainer>
+    <conditioncontainer id="t167" x="5880.0" y="-2782.5">Expression: trigger == "Systemeinstellung verändert: System screen_brightness_mode"</conditioncontainer>
+    <conditioncontainer id="t168" x="3535.0" y="-2782.5">Expression: trigger == "Eingehender Anruf. Status: Klingelt, Abgenommen, Beendet, Nummern: Alle"</conditioncontainer>
+    <actioncontainer id="t169" x="3535.0" y="-3832.5">Script: incomingCaller = "\"incomingCallerName\":" + " \"" + {contact_name} + "\"" + "," + "\"incomingCallerNumber\":" + " \"" + {incoming_number} + "\"" + "," + "\"incomingCallerStatus\":" + " \"" + {call_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t170" x="3780.0" y="-2782.5">Expression: trigger == "Ausgehender Anruf: Alle, Abgenommen, Beendet"</conditioncontainer>
+    <actioncontainer id="t171" x="3780.0" y="-3832.5">Script: outgoingCaller = "\"outgoingCallerName\":" + " \"" + {contact_name} + "\"" + "," + "\"outgoingCallerNumber\":" + " \"" + {called_number} + "\"" + "," + "\"outgoingCallerStatus\":" + " \"" + {call_state} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <conditioncontainer id="t172" x="1015.0" y="-1242.5">Host erreichbar: {global_fhemip}:{global_bridgeport}</conditioncontainer>
+    <actioncontainer id="t173" x="1330.0" y="1417.5">Script: androidVersion = "\"androidVersion\":" + " \"" + {androidVersion} + "\""; fhemcmd = "setreading";</actioncontainer>
+    <actioncontainer id="t174" x="1260.0" y="1207.5">Script: androidVersion = "not supported funktion"</actioncontainer>
+    <actioncontainer id="t175" x="1295.0" y="997.5">Get Android Version</actioncontainer>
+    <conditioncontainer id="t176" x="595.0" y="1417.5">Expression: Leon == "Gaultier"</conditioncontainer>
+    <actioncontainer id="t177" x="735.0" y="1417.5">Benachrichtigung auf Bildschirm: [AMAD2] Nicht mehr benötigte AMAD Flows wurden entfernt! (lange)</actioncontainer>
+    <actioncontainer id="t178" x="665.0" y="1207.5">Flows löschen: MultimediaControl</actioncontainer>
+    <actioncontainer id="t179" x="1015.0" y="1417.5">Prüfe und setze globale Variable</actioncontainer>
+    <connection from="t1" to="t110" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t2" to="t132" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t3" to="t132" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t4" to="t5" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t4" to="t6" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t5" to="t14" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t6" to="t14" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t7" to="t70" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t8" to="t70" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t9" to="t71" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t7" to="t69" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t8" to="t69" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t9" to="t70" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t10" to="t11" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t11" to="t12" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t12" to="t18" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
@@ -4581,246 +4581,246 @@ Soll der Assistent gelöscht werden?</actioncontainer>
     <connection from="t15" to="t3" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t16" to="t35" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t16" to="t49" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t17" to="t127" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t17" to="t126" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t17" to="t124" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t17" to="t123" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t18" to="t17" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t19" to="t50" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t19" to="t133" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t19" to="t130" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t20" to="t32" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t20" to="t33" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t20" to="t10" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t21" to="t125" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t21" to="t122" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t21" to="t31" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t22" to="t128" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t22" to="t125" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t22" to="t21" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t23" to="t30" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t24" to="t29" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t25" to="t28" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t26" to="t27" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t27" to="t124" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t28" to="t124" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t29" to="t124" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t30" to="t124" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t31" to="t129" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t32" to="t129" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t33" to="t129" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t34" to="t72" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t35" to="t83" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t27" to="t121" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t28" to="t121" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t29" to="t121" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t30" to="t121" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t31" to="t126" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t32" to="t126" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t33" to="t126" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t34" to="t71" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t35" to="t80" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t36" to="t37" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t36" to="t38" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t37" to="t73" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t38" to="t73" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t37" to="t72" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t38" to="t72" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t39" to="t36" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t39" to="t40" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t39" to="t40" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t40" to="t73" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t41" to="t73" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t40" to="t72" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t41" to="t72" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t42" to="t41" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t42" to="t39" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t43" to="t22" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t44" to="t15" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t45" to="t4" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t46" to="t144" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t47" to="t144" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t47" to="t144" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t48" to="t71" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t49" to="t83" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t50" to="t130" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t50" to="t131" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t51" to="t62" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t46" to="t140" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t47" to="t140" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t47" to="t140" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t48" to="t70" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t49" to="t80" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t50" to="t127" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t50" to="t128" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t51" to="t61" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t52" to="t53" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t52" to="t58" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t53" to="t109" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t54" to="t140" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t52" to="t57" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t53" to="t106" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t54" to="t136" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t55" to="t54" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t55" to="t141" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t57" to="t52" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t58" to="t109" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t59" to="t52" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t60" to="t61" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t61" to="t26" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t61" to="t25" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t61" to="t24" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t61" to="t23" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t62" to="t63" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t63" to="t34" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t63" to="t106" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t65" to="t137" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t65" to="t176" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t65" to="t137" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t66" to="t143" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t67" to="t145" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t68" to="t139" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t69" to="t64" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t70" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t71" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t72" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t73" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t75" to="t56" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t75" to="t74" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t76" to="t77" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t77" to="t79" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t77" to="t107" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t77" to="t107" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t78" to="t103" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t79" to="t78" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t79" to="t103" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t80" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t81" to="t13" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t83" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t84" to="t85" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t85" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t86" to="t85" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t86" to="t84" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t87" to="t16" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t87" to="t86" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t88" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t90" to="t88" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t91" to="t89" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t91" to="t88" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t92" to="t90" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t92" to="t91" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t93" to="t92" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t94" to="t95" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t95" to="t96" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t95" to="t97" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t96" to="t98" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t97" to="t98" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t98" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t99" to="t94" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t100" to="t101" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t102" to="t100" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t103" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t104" to="t63" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t105" to="t104" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t106" to="t105" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t107" to="t103" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t108" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t109" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t110" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t55" to="t137" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t56" to="t52" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t57" to="t106" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t58" to="t52" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t59" to="t60" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t60" to="t26" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t60" to="t25" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t60" to="t24" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t60" to="t23" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t61" to="t62" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t62" to="t34" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t62" to="t103" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t64" to="t133" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t64" to="t172" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t64" to="t133" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t65" to="t139" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t66" to="t141" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t67" to="t135" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t68" to="t63" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t69" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t70" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t71" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t72" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t73" to="t74" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t74" to="t76" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t74" to="t104" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t74" to="t104" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t75" to="t100" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t76" to="t75" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t76" to="t100" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t77" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t78" to="t13" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t80" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t81" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t82" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t83" to="t82" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t83" to="t81" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t84" to="t16" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t84" to="t83" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t85" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t87" to="t85" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t88" to="t86" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t88" to="t85" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t89" to="t87" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t89" to="t88" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t90" to="t89" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t91" to="t92" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t92" to="t93" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t92" to="t94" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t93" to="t95" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t94" to="t95" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t95" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t96" to="t91" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t97" to="t98" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t99" to="t97" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t100" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t101" to="t62" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t102" to="t101" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t103" to="t102" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t104" to="t100" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t105" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t106" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t107" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t108" to="t42" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t109" to="t77" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t110" to="t64" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t110" to="t51" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t110" to="t111" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t111" to="t42" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t112" to="t80" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t113" to="t65" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t113" to="t51" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t113" to="t114" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t114" to="t42" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t114" to="t111" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t115" to="t116" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t116" to="t123" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t117" to="t118" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t118" to="t120" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t118" to="t119" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t119" to="t110" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t120" to="t110" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t121" to="t161" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t122" to="t138" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t123" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t124" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t125" to="t129" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t126" to="t20" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t127" to="t20" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t128" to="t17" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t129" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t130" to="t134" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t131" to="t134" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t132" to="t19" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t133" to="t134" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t134" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t135" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t59" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t57" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t67" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t47" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t66" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t179" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t75" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t136" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t121" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t137" to="t166" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t138" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t139" to="t55" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t140" to="t141" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t141" to="t108" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t142" to="t143" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t143" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t144" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t145" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t146" to="t109" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t147" to="t145" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t148" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t149" to="t148" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t150" to="t148" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t151" to="t149" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t151" to="t148" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t152" to="t150" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t152" to="t151" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t153" to="t152" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t154" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t155" to="t154" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t156" to="t155" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t156" to="t154" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t157" to="t154" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t158" to="t157" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t111" to="t108" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t112" to="t113" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t113" to="t120" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t114" to="t115" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t115" to="t117" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t115" to="t116" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t116" to="t107" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t117" to="t107" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t118" to="t157" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t119" to="t134" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t120" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t121" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t122" to="t126" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t123" to="t20" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t124" to="t20" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t125" to="t17" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t126" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t127" to="t131" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t128" to="t131" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t129" to="t19" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t130" to="t131" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t131" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t132" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t58" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t56" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t66" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t47" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t65" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t175" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t178" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t179" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t118" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t133" to="t162" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t134" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t135" to="t55" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t136" to="t137" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t137" to="t105" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t138" to="t139" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t139" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t140" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t141" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t142" to="t106" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t143" to="t141" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t144" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t145" to="t144" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t146" to="t144" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t147" to="t145" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t147" to="t144" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t148" to="t146" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t148" to="t147" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t149" to="t148" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t150" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t151" to="t150" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t152" to="t151" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t152" to="t150" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t153" to="t150" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t154" to="t153" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t154" to="t152" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t155" to="t154" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t156" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t157" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t158" to="t156" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t159" to="t158" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t160" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t161" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t162" to="t160" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t163" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t164" to="t163" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t165" to="t163" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t166" to="t165" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t166" to="t164" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t159" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t160" to="t159" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t161" to="t159" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t162" to="t161" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t162" to="t160" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t163" to="t162" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t164" to="t157" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t165" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t166" to="t165" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t167" to="t166" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t168" to="t161" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t169" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t170" to="t169" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t171" to="t170" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t172" to="t173" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t173" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t174" to="t175" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t175" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t117" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t146" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t142" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t147" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t43" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t87" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t76" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t46" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t45" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t44" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t81" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t68" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t132" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t172" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t153" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t115" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t162" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t112" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t60" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t69" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t93" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t99" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t99" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t168" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t159" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t93" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t102" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t102" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t114" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t167" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t122" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t171" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t176" to="t174" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t177" to="t82" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t168" to="t169" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t169" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t170" to="t171" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t171" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t114" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t142" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t138" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t143" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t43" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t84" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t73" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t46" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t45" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t44" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t78" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t67" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t129" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t168" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t149" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t112" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t158" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t109" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t59" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t68" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t90" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t96" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t96" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t164" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t155" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t90" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t99" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t99" type="FALSE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t111" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t163" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t119" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t167" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t172" to="t170" type="TRUE" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t173" to="t79" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t174" to="t173" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t175" to="t174" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t175" to="t173" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
     <connection from="t178" to="t177" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t179" to="t178" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
-    <connection from="t179" to="t177" type="NORMAL" sourcePosition="SOUTH" targetPosition="NORTH" />
+    <connection from="t178" to="t176" type="EXCEPTION" sourcePosition="SOUTH" targetPosition="NORTH" />
   </flow>
   <flow type="flow">
     <name>NFC Tag Support</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>PARALLEL</executionPolicy>
     <triggercontainer id="t1" x="70.0" y="52.5">
@@ -4834,7 +4834,7 @@ Soll der Assistent gelöscht werden?</actioncontainer>
   </flow>
   <flow type="flow">
     <name>Send Data to AMADCommBridge</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>PARALLEL</executionPolicy>
     <emergencyStopCount>900</emergencyStopCount>
@@ -4908,7 +4908,7 @@ Soll der Assistent gelöscht werden?</actioncontainer>
   </flow>
   <flow type="flow">
     <name>SetCommands</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>QUEUE</executionPolicy>
     <emergencyStopCount>900</emergencyStopCount>
@@ -5372,7 +5372,7 @@ Soll der Assistent gelöscht werden?</actioncontainer>
   </flow>
   <flow type="flow">
     <name>Update AMAD Flowset</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>QUEUE</executionPolicy>
     <triggercontainer id="t1" x="420.0" y="-752.5" />
@@ -5434,7 +5434,7 @@ Soll der Assistent gelöscht werden?</actioncontainer>
   </flow>
   <flow type="flow">
     <name>VoiceControl</name>
-    <group>AMADNG Info/Control Flowset v4.2.5</group>
+    <group>AMADNG Info/Control Flowset v4.4.0</group>
     <enabled>true</enabled>
     <executionPolicy>QUEUE</executionPolicy>
     <triggercontainer id="t1" x="70.0" y="-52.5" />

From 911e0c18328dbb1a2c50385a9c95058e5ab5a8f6 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Mar 2019 14:05:54 +0100
Subject: [PATCH 3/7] code formating

---
 74_AMADDevice.pm | 1431 ++++++++++++++++++++++++++--------------------
 1 file changed, 800 insertions(+), 631 deletions(-)

diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index b88b709..8cb5529 100755
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -1,5 +1,5 @@
 ###############################################################################
-# 
+#
 # Developed with Kate
 #
 #  (c) 2015-2019 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
@@ -36,7 +36,7 @@
 #
 # if($@){
 #   Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@");
-#  
+#
 #   readingsSingleUpdate($hash, "state", "error", 1);
 #
 #   return;
@@ -50,59 +50,59 @@ use strict;
 use warnings;
 use FHEM::Meta;
 
-my $modulversion = '4.4.0';
+my $modulversion   = '4.4.0';
 my $flowsetversion = '4.4.0';
 
 sub AMADDevice_Initialize($) {
 
     my ($hash) = @_;
-    
-    $hash->{Match}          = '{"amad": \{"amad_id":.+}}';
 
+    $hash->{Match} = '{"amad": \{"amad_id":.+}}';
+
+    $hash->{SetFn}    = 'FHEM::AMADDevice::Set';
+    $hash->{DefFn}    = 'FHEM::AMADDevice::Define';
+    $hash->{UndefFn}  = 'FHEM::AMADDevice::Undef';
+    $hash->{AttrFn}   = 'FHEM::AMADDevice::Attr';
+    $hash->{NotifyFn} = 'FHEM::AMADDevice::Notify';
+    $hash->{ParseFn}  = 'FHEM::AMADDevice::Parse';
+
+    $hash->{AttrList} =
+        'setOpenApp '
+      . 'checkActiveTask '
+      . 'setFullscreen:0,1 '
+      . 'setScreenOrientation:0,1 '
+      . 'setScreenBrightness:noArg '
+      . 'setBluetoothDevice '
+      . 'setScreenlockPIN '
+      . 'setScreenOnForTimer '
+      . 'setOpenUrlBrowser '
+      . 'setNotifySndFilePath '
+      . 'setTtsMsgSpeed '
+      . 'setTtsMsgLang:de,en '
+      . 'setTtsMsgVol '
+      . 'setUserFlowState '
+      . 'setVolUpDownStep:1,2,4,5 '
+      . 'setVolMax '
+      . 'setVolFactor:2,3,4,5 '
+      . 'setNotifyVolMax '
+      . 'setRingSoundVolMax '
+      . 'setAPSSID '
+      . 'root:0,1 '
+      . 'disable:1 '
+      . 'IODev '
+      . 'remoteServer:Automagic,Autoremote,TNES,other '
+      . 'setTakeScreenshotResolution:1280x720,1920x1080,1920x1200 '
+      . 'setTakePictureResolution:800x600,1024x768,1280x720,1600x1200,1920x1080 '
+      . 'setTakePictureCamera:Back,Front '
+      . $readingFnAttributes;
+
+    foreach my $d ( sort keys %{ $modules{AMADDevice}{defptr} } ) {
 
-    $hash->{SetFn}      = 'FHEM::AMADDevice::Set';
-    $hash->{DefFn}      = 'FHEM::AMADDevice::Define';
-    $hash->{UndefFn}    = 'FHEM::AMADDevice::Undef';
-    $hash->{AttrFn}     = 'FHEM::AMADDevice::Attr';
-    $hash->{NotifyFn}   = 'FHEM::AMADDevice::Notify';
-    $hash->{ParseFn}    = 'FHEM::AMADDevice::Parse';
-    
-    $hash->{AttrList}   = 'setOpenApp '.
-                'checkActiveTask '.
-                'setFullscreen:0,1 '.
-                'setScreenOrientation:0,1 '.
-                'setScreenBrightness:noArg '.
-                'setBluetoothDevice '.
-                'setScreenlockPIN '.
-                'setScreenOnForTimer '.
-                'setOpenUrlBrowser '.
-                'setNotifySndFilePath '.
-                'setTtsMsgSpeed '.
-                'setTtsMsgLang:de,en '.
-                'setTtsMsgVol '.
-                'setUserFlowState '.
-                'setVolUpDownStep:1,2,4,5 '.
-                'setVolMax '.
-                'setVolFactor:2,3,4,5 '.
-                'setNotifyVolMax '.
-                'setRingSoundVolMax '.
-                'setAPSSID '.
-                'root:0,1 '.
-                'disable:1 '.
-                'IODev '.
-                'remoteServer:Automagic,Autoremote,TNES,other '.
-                'setTakeScreenshotResolution:1280x720,1920x1080,1920x1200 '.
-                'setTakePictureResolution:800x600,1024x768,1280x720,1600x1200,1920x1080 '.
-                'setTakePictureCamera:Back,Front '.
-                $readingFnAttributes;
-    
-    foreach my $d(sort keys %{$modules{AMADDevice}{defptr}}) {
-    
         my $hash = $modules{AMADDevice}{defptr}{$d};
-        $hash->{VERSIONMODUL}      = $modulversion;
-        $hash->{VERSIONFLOWSET}    = $flowsetversion;
+        $hash->{VERSIONMODUL}   = $modulversion;
+        $hash->{VERSIONFLOWSET} = $flowsetversion;
     }
-    
+
     return FHEM::Meta::InitMod( __FILE__, $hash );
 }
 
@@ -120,7 +120,7 @@ use GPUtils qw(GP_Import)
 my $missingModul = '';
 
 eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
-eval "use JSON;1" or $missingModul .= 'JSON ';
+eval "use JSON;1"                          or $missingModul .= 'JSON ';
 
 ## Import der FHEM Funktionen
 BEGIN {
@@ -155,72 +155,85 @@ sub Define($$) {
 
     my ( $hash, $def ) = @_;
     my @a = split( '[ \t]+', $def );
-    
+
     return $@ unless ( FHEM::Meta::SetInternals($hash) );
-    return 'too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>' if( @a != 5 );
-    return 'Cannot define a AMADDevice device. Perl modul ' . $missingModul . ' is missing.' if ( $missingModul );
+    return
+'too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>'
+      if ( @a != 5 );
+    return
+        'Cannot define a AMADDevice device. Perl modul '
+      . $missingModul
+      . ' is missing.'
+      if ($missingModul);
 
+    my $name         = $a[0];
+    my $host         = $a[2];
+    my $amad_id      = $a[3];
+    my $remoteServer = $a[4];
 
-    my $name                                    = $a[0];
-    my $host                                    = $a[2];
-    my $amad_id                                 = $a[3];
-    my $remoteServer                            = $a[4];
-    
-    $hash->{HOST}                               = $host;
-    $hash->{AMAD_ID}                            = $amad_id;
-    $hash->{VERSIONMODUL}                       = $modulversion;
-    $hash->{VERSIONFLOWSET}                     = $flowsetversion;
-    $hash->{NOTIFYDEV}                          = 'global,'.$name;
-    $hash->{MODEL}                              = $remoteServer;
-    
-    $hash->{PORT}                               = 8090 if($remoteServer eq 'Automagic');
-    $hash->{PORT}                               = 1817 if($remoteServer eq 'Autoremote');
-    $hash->{PORT}                               = 8765 if($remoteServer eq 'TNES');
-    $hash->{PORT}                               = 1111 if($remoteServer eq 'other');        # Dummy Port for other
-    return 'typo in <remoteServer> field. please use Automagic, Autoremote, TNES or other'
-      unless ( defined($hash->{PORT}) and $hash->{PORT} );
-    
-    $hash->{helper}{infoErrorCounter}           = 0;
-    $hash->{helper}{setCmdErrorCounter}         = 0;
-    $hash->{helper}{deviceStateErrorCounter}    = 0;
+    $hash->{HOST}           = $host;
+    $hash->{AMAD_ID}        = $amad_id;
+    $hash->{VERSIONMODUL}   = $modulversion;
+    $hash->{VERSIONFLOWSET} = $flowsetversion;
+    $hash->{NOTIFYDEV}      = 'global,' . $name;
+    $hash->{MODEL}          = $remoteServer;
 
+    $hash->{PORT} = 8090 if ( $remoteServer eq 'Automagic' );
+    $hash->{PORT} = 1817 if ( $remoteServer eq 'Autoremote' );
+    $hash->{PORT} = 8765 if ( $remoteServer eq 'TNES' );
+    $hash->{PORT} = 1111 if ( $remoteServer eq 'other' ); # Dummy Port for other
+    return
+'typo in <remoteServer> field. please use Automagic, Autoremote, TNES or other'
+      unless ( defined( $hash->{PORT} ) and $hash->{PORT} );
 
+    $hash->{helper}{infoErrorCounter}        = 0;
+    $hash->{helper}{setCmdErrorCounter}      = 0;
+    $hash->{helper}{deviceStateErrorCounter} = 0;
 
-    CommandAttr(undef,$name . ' IODev ' . $modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME})
-      if(   defined($modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME})
-        and AttrVal($name,'IODev','none') eq 'none');
+    CommandAttr( undef,
+        $name . ' IODev ' . $modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME} )
+      if ( defined( $modules{AMADCommBridge}{defptr}{BRIDGE}->{NAME} )
+        and AttrVal( $name, 'IODev', 'none' ) eq 'none' );
 
-    my $iodev           = AttrVal($name,'IODev','none');
-    
-    AssignIoPort($hash,$iodev) if( !$hash->{IODev} );
-    
-    if(defined($hash->{IODev}->{NAME})) {
-        Log3($name, 3, "AMADDevice ($name) - I/O device is " . $hash->{IODev}->{NAME});
-    } else {
-        Log3($name, 1, "AMADDevice ($name) - no I/O device");
+    my $iodev = AttrVal( $name, 'IODev', 'none' );
+
+    AssignIoPort( $hash, $iodev ) if ( !$hash->{IODev} );
+
+    if ( defined( $hash->{IODev}->{NAME} ) ) {
+        Log3( $name, 3,
+            "AMADDevice ($name) - I/O device is " . $hash->{IODev}->{NAME} );
+    }
+    else {
+        Log3( $name, 1, "AMADDevice ($name) - no I/O device" );
     }
 
-
     $iodev = $hash->{IODev}->{NAME};
-    
+
     my $d = $modules{AMADDevice}{defptr}{$amad_id};
-    
-    return 'AMADDevice device ' . $name . ' on AMADCommBridge ' . $iodev . ' already defined.'
-    if( defined($d) and $d->{IODev} == $hash->{IODev} and $d->{NAME} ne $name );
 
-    
+    return
+        'AMADDevice device '
+      . $name
+      . ' on AMADCommBridge '
+      . $iodev
+      . ' already defined.'
+      if (  defined($d)
+        and $d->{IODev} == $hash->{IODev}
+        and $d->{NAME} ne $name );
+
+    CommandAttr( undef, $name . ' room AMAD' )
+      if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
+    CommandAttr( undef, $name . ' remoteServer ' . $remoteServer )
+      if ( AttrVal( $name, 'remoteServer', 'none' ) eq 'none' );
 
-    CommandAttr(undef,$name . ' room AMAD') if(AttrVal($name,'room','none') eq 'none');
-    CommandAttr(undef,$name . ' remoteServer ' . $remoteServer) if(AttrVal($name,'remoteServer','none') eq 'none');
-        
     readingsBeginUpdate($hash);
-    readingsBulkUpdateIfChanged( $hash, 'state', 'initialized',1);
-    readingsBulkUpdateIfChanged( $hash, 'deviceState', 'unknown',1);
-    readingsEndUpdate($hash,1);
-    
-    
-    Log3($name, 3, "AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}");
+    readingsBulkUpdateIfChanged( $hash, 'state',       'initialized', 1 );
+    readingsBulkUpdateIfChanged( $hash, 'deviceState', 'unknown',     1 );
+    readingsEndUpdate( $hash, 1 );
 
+    Log3( $name, 3,
+"AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}"
+    );
 
     $modules{AMADDevice}{defptr}{$amad_id} = $hash;
 
@@ -229,12 +242,11 @@ sub Define($$) {
 
 sub Undef($$) {
 
-    my ( $hash, $arg )  = @_;
-    my $name            = $hash->{NAME};
-    my $amad_id         = $hash->{AMAD_ID};
-    
-    
-    RemoveInternalTimer( $hash );
+    my ( $hash, $arg ) = @_;
+    my $name    = $hash->{NAME};
+    my $amad_id = $hash->{AMAD_ID};
+
+    RemoveInternalTimer($hash);
     delete $modules{AMADDevice}{defptr}{$amad_id};
 
     return undef;
@@ -244,612 +256,751 @@ sub Attr(@) {
 
     my ( $cmd, $name, $attrName, $attrVal ) = @_;
     my $hash = $defs{$name};
-    
+
     my $orig = $attrVal;
 
-    if( $attrName eq 'remoteServer' ) {
-        if( $cmd eq 'set' ) {
-            if( $attrVal eq 'Automagic' ) {
-                $hash->{PORT}   = 8090;
-                Log3($name, 3, "AMADDevice ($name) - set remoteServer to Automagic");
-            
-            } elsif( $attrVal eq 'Autoremote' ) {
-                $hash->{PORT}   = 1817;
-                Log3($name, 3, "AMADDevice ($name) - set remoteServer to Autoremote");
-            
-            } elsif( $attrVal eq 'TNES' ) {
-                $hash->{PORT}   = 8765;
-                Log3($name, 3, "AMADDevice ($name) - set remoteServer to TNES");
-            
-            } elsif( $attrVal eq 'other' ) {
-                $hash->{PORT}   = 1111;
-                Log3($name, 3, "AMADDevice ($name) - set remoteServer to other");
+    if ( $attrName eq 'remoteServer' ) {
+        if ( $cmd eq 'set' ) {
+            if ( $attrVal eq 'Automagic' ) {
+                $hash->{PORT} = 8090;
+                Log3( $name, 3,
+                    "AMADDevice ($name) - set remoteServer to Automagic" );
+
             }
-            
-            $hash->{DEF} = $hash->{HOST} . ' ' . $hash->{AMAD_ID} . ' ' . $attrVal;
+            elsif ( $attrVal eq 'Autoremote' ) {
+                $hash->{PORT} = 1817;
+                Log3( $name, 3,
+                    "AMADDevice ($name) - set remoteServer to Autoremote" );
+
+            }
+            elsif ( $attrVal eq 'TNES' ) {
+                $hash->{PORT} = 8765;
+                Log3( $name, 3,
+                    "AMADDevice ($name) - set remoteServer to TNES" );
+
+            }
+            elsif ( $attrVal eq 'other' ) {
+                $hash->{PORT} = 1111;
+                Log3( $name, 3,
+                    "AMADDevice ($name) - set remoteServer to other" );
+            }
+
+            $hash->{DEF} =
+              $hash->{HOST} . ' ' . $hash->{AMAD_ID} . ' ' . $attrVal;
         }
     }
-    
-    elsif( $attrName eq 'disable' ) {
-        if( $cmd eq 'set' ) {
-            if( $attrVal eq '0' ) {
-                readingsSingleUpdate ( $hash, 'state', 'active', 1 );
-                Log3($name, 3, "AMADDevice ($name) - enabled");
-            } else {
+
+    elsif ( $attrName eq 'disable' ) {
+        if ( $cmd eq 'set' ) {
+            if ( $attrVal eq '0' ) {
+                readingsSingleUpdate( $hash, 'state', 'active', 1 );
+                Log3( $name, 3, "AMADDevice ($name) - enabled" );
+            }
+            else {
                 RemoveInternalTimer($hash);
-                readingsSingleUpdate ( $hash, 'state', 'disabled', 1 );
-                Log3($name, 3, "AMADDevice ($name) - disabled");
+                readingsSingleUpdate( $hash, 'state', 'disabled', 1 );
+                Log3( $name, 3, "AMADDevice ($name) - disabled" );
             }
-            
-        } else {
-            readingsSingleUpdate ( $hash, 'state', 'active', 1 );
-            Log3($name, 3, "AMADDevice ($name) - enabled");
+
+        }
+        else {
+            readingsSingleUpdate( $hash, 'state', 'active', 1 );
+            Log3( $name, 3, "AMADDevice ($name) - enabled" );
         }
     }
-    
-    elsif( $attrName eq 'checkActiveTask' ) {
-        if( $cmd eq 'del' ) {
-            CommandDeleteReading( undef, $name . ' checkActiveTask' ); 
+
+    elsif ( $attrName eq 'checkActiveTask' ) {
+        if ( $cmd eq 'del' ) {
+            CommandDeleteReading( undef, $name . ' checkActiveTask' );
         }
-        
-        Log3($name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest");
+
+        Log3( $name, 3,
+            "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest"
+        );
     }
-    
-    elsif( $attrName eq 'setScreenlockPIN' ) {
-        if( $cmd eq 'set' and $attrVal ) {
-        
+
+    elsif ( $attrName eq 'setScreenlockPIN' ) {
+        if ( $cmd eq 'set' and $attrVal ) {
+
             $attrVal = encrypt($attrVal);
-            
-        } else {
-        
+
+        }
+        else {
+
             CommandDeleteReading( undef, $name . ' screenLock' );
         }
     }
-    
-    elsif( $attrName eq 'setUserFlowState' ) {
-        if( $cmd eq 'del' ) {
-        
-            CommandDeleteReading( undef, $name . ' userFlowState' ); 
+
+    elsif ( $attrName eq 'setUserFlowState' ) {
+        if ( $cmd eq 'del' ) {
+
+            CommandDeleteReading( undef, $name . ' userFlowState' );
         }
-        
-        Log3($name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest");
+
+        Log3( $name, 3,
+            "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest"
+        );
     }
 
-    if( $cmd eq 'set' ) {
-        if( $attrVal and $orig ne $attrVal ) {
-        
+    if ( $cmd eq 'set' ) {
+        if ( $attrVal and $orig ne $attrVal ) {
+
             $attr{$name}{$attrName} = $attrVal;
-            return $attrName . ' set to ' . $attrVal if( $init_done );
+            return $attrName . ' set to ' . $attrVal if ($init_done);
         }
     }
-    
+
     return undef;
 }
 
 sub Notify($$) {
 
-    my ($hash,$dev) = @_;
+    my ( $hash, $dev ) = @_;
     my $name = $hash->{NAME};
-    return if (IsDisabled($name));
-    
+    return if ( IsDisabled($name) );
+
     my $devname = $dev->{NAME};
     my $devtype = $dev->{TYPE};
-    my $events = deviceEvents($dev,1);
-    return if (!$events);
+    my $events  = deviceEvents( $dev, 1 );
+    return if ( !$events );
 
+    statusRequest($hash)
+      if (
+        (
+            grep /^DELETEATTR.$name.setAPSSID$/,
+            @{$events}
+            or grep /^ATTR.$name.setAPSSID.*/,
+            @{$events}
+            or grep /^DELETEATTR.$name.checkActiveTask$/,
+            @{$events}
+            or grep /^ATTR.$name.checkActiveTask.*/,
+            @{$events}
+            or grep /^DELETEATTR.$name.setUserFlowState$/,
+            @{$events}
+            or grep /^ATTR.$name.setUserFlowState.*/,
+            @{$events}
+        )
+        and $init_done
+        and $devname eq 'global'
+      );
 
-    statusRequest($hash) if( (grep /^DELETEATTR.$name.setAPSSID$/,@{$events}
-                                                    or grep /^ATTR.$name.setAPSSID.*/,@{$events}
-                                                    or grep /^DELETEATTR.$name.checkActiveTask$/,@{$events}
-                                                    or grep /^ATTR.$name.checkActiveTask.*/,@{$events}
-                                                    or grep /^DELETEATTR.$name.setUserFlowState$/,@{$events}
-                                                    or grep /^ATTR.$name.setUserFlowState.*/,@{$events})
-                                                    and $init_done and $devname eq 'global' );
+    GetUpdate($hash)
+      if (
+        (
+            grep /^DEFINED.$name$/,
+            @{$events}
+            or grep /^INITIALIZED$/,
+            @{$events}
+            or grep /^MODIFIED.$name$/,
+            @{$events}
+        )
+        and $devname eq 'global'
+        and $init_done
+      );
 
-    GetUpdate($hash) if( (grep /^DEFINED.$name$/,@{$events}
-                                                    or grep /^INITIALIZED$/,@{$events}
-                                                    or grep /^MODIFIED.$name$/,@{$events})
-                                                    and $devname eq 'global' and $init_done  );
-                                                    
-    checkDeviceState($hash) if( (grep /^DELETEATTR.$name.disable$/,@{$events}
-                                                    or grep /^ATTR.$name.disable.0$/,@{$events})
-                                                    and $devname eq 'global' and $init_done );
+    checkDeviceState($hash)
+      if (
+        (
+            grep /^DELETEATTR.$name.disable$/,
+            @{$events}
+            or grep /^ATTR.$name.disable.0$/,
+            @{$events}
+        )
+        and $devname eq 'global'
+        and $init_done
+      );
 
     return;
 }
 
 sub GetUpdate($) {
 
-    my ( $hash ) = @_;
-    my $name    = $hash->{NAME};
-    my $bname   = $hash->{IODev}->{NAME};
-    
-    
-    RemoveInternalTimer( $hash );
-    
-    if( $init_done and ( ReadingsVal( $name, "deviceState", "unknown" ) eq "unknown" or ReadingsVal( $name, "deviceState", "online" ) eq "online" ) and AttrVal( $name, "disable", 0 ) ne "1" and ReadingsVal( $bname, "fhemServerIP", "not set" ) ne "not set" ) {
+    my ($hash) = @_;
+    my $name   = $hash->{NAME};
+    my $bname  = $hash->{IODev}->{NAME};
+
+    RemoveInternalTimer($hash);
+
+    if (
+        $init_done
+        and (  ReadingsVal( $name, 'deviceState', 'unknown' ) eq 'unknown'
+            or ReadingsVal( $name, 'deviceState', 'online' ) eq 'online' )
+        and AttrVal( $name, 'disable', 0 ) ne 1
+        and ReadingsVal( $bname, 'fhemServerIP', 'not set' ) ne 'not set'
+      )
+    {
 
         statusRequest($hash);
-        checkDeviceState( $hash );
-        
-    } else {
+        checkDeviceState($hash);
 
-        Log3 $name, 4, "AMADDevice ($name) - GetUpdate, FHEM or Device not ready yet";
-#         Log3 $name, 3, "AMADDevice ($bname) - GetUpdate, Please set $bname fhemServerIP <IP-FHEM> NOW!" if( ReadingsVal( $bname, "fhemServerIP", "null" ) eq "null" );
+    }
+    else {
 
-        InternalTimer( gettimeofday()+30, "FHEM::AMADDevice::GetUpdate", $hash, 0 );
+        Log3( $name, 4,
+            "AMADDevice ($name) - GetUpdate, FHEM or Device not ready yet" );
+
+        InternalTimer( gettimeofday() + 30,
+            'FHEM::AMADDevice::GetUpdate', $hash, 0 );
     }
 }
 
 sub statusRequest($) {
 
-    my $hash        = shift;
-    my $name        = $hash->{NAME};
-    
-    my $host                = $hash->{HOST};
-    my $port                = $hash->{PORT};
-    my $amad_id             = $hash->{AMAD_ID};
-    my $uri                 = $hash->{HOST} . ":" . $hash->{PORT};
-    my $header              = 'Connection: close';
+    my $hash = shift;
+    my $name = $hash->{NAME};
+
+    my $host    = $hash->{HOST};
+    my $port    = $hash->{PORT};
+    my $amad_id = $hash->{AMAD_ID};
+    my $uri     = $hash->{HOST} . ':' . $hash->{PORT};
+    my $header  = 'Connection: close';
     my $path;
     my $method;
-    
-    
-    my $activetask      = AttrVal( $name, "checkActiveTask", "none" );
-    my $userFlowState   = AttrVal( $name, "setUserFlowState", "none" );
-    my $apssid          = AttrVal( $name, "setAPSSID", "none" );
-    my $fhemip          = ReadingsVal($hash->{IODev}->{NAME}, 'fhemServerIP', 'none');
-    my $fhemCtlMode     = AttrVal($hash->{IODev}->{NAME},'fhemControlMode','none' );
-    my $bport           = $hash->{IODev}->{PORT};
 
-    $header  .= "\r\nfhemip: $fhemip\r\nfhemdevice: $name\r\nactivetask: $activetask\r\napssid: $apssid\r\nbport: $bport\r\nuserflowstate: $userFlowState\r\nfhemctlmode: $fhemCtlMode";
-    
-    $method  = "GET" if( AttrVal($name,'remoteServer','Automagic') eq 'Automagic' );
-    $method  = "POST" if (AttrVal($name,'remoteServer','Automagic') ne 'Automagic' );
-    
-    $path     ="/fhem-amad/deviceInfo/";       # Pfad muß so im Automagic als http request Trigger drin stehen
+    my $activetask    = AttrVal( $name, 'checkActiveTask',  'none' );
+    my $userFlowState = AttrVal( $name, 'setUserFlowState', 'none' );
+    my $apssid        = AttrVal( $name, 'setAPSSID',        'none' );
+    my $fhemip = ReadingsVal( $hash->{IODev}->{NAME}, 'fhemServerIP', 'none' );
+    my $fhemCtlMode =
+      AttrVal( $hash->{IODev}->{NAME}, 'fhemControlMode', 'none' );
+    my $bport = $hash->{IODev}->{PORT};
 
+    $header .=
+"\r\nfhemip: $fhemip\r\nfhemdevice: $name\r\nactivetask: $activetask\r\napssid: $apssid\r\nbport: $bport\r\nuserflowstate: $userFlowState\r\nfhemctlmode: $fhemCtlMode";
 
-    IOWrite($hash,$amad_id,$uri,$path,$header,$method);
-    Log3 $name, 5, "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}";
+    $method = 'GET'
+      if ( AttrVal( $name, 'remoteServer', 'Automagic' ) eq 'Automagic' );
+    $method = 'POST'
+      if ( AttrVal( $name, 'remoteServer', 'Automagic' ) ne 'Automagic' );
+
+    $path = '/fhem-amad/deviceInfo/'
+      ;    # Pfad muß so im Automagic als http request Trigger drin stehen
+
+    IOWrite( $hash, $amad_id, $uri, $path, $header, $method );
+    Log3( $name, 5,
+        "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}" );
 }
 
 sub WriteReadings($$) {
 
     my ( $hash, $decode_json ) = @_;
-    
-    my $name = $hash->{NAME};
 
+    my $name = $hash->{NAME};
 
     ############################
     #### schreiben der Readings
 
-    Log3 $name, 5, "AMADDevice ($name) - Processing data: $decode_json";
-    readingsSingleUpdate( $hash, "state", "active", 1) if( ReadingsVal( $name, "state", 0 ) ne "initialized" and ReadingsVal( $name, "state", 0 ) ne "active" );
-    
+    Log3( $name, 5, "AMADDevice ($name) - Processing data: $decode_json" );
+    readingsSingleUpdate( $hash, 'state', 'active', 1 )
+      if (  ReadingsVal( $name, 'state', 0 ) ne 'initialized'
+        and ReadingsVal( $name, 'state', 0 ) ne 'active' );
+
     ### Event Readings
     my $t;
     my $v;
-    
-    
+
     readingsBeginUpdate($hash);
-    
-    while( ( $t, $v ) = each %{$decode_json->{payload}} ) {
-        
-        $v =~ s/\bnull\b/off/g if( ($t eq "nextAlarmDay" or $t eq "nextAlarmTime") and $v eq "null" );
+
+    while ( ( $t, $v ) = each %{ $decode_json->{payload} } ) {
+
+        $v =~ s/\bnull\b/off/g
+          if ( ( $t eq 'nextAlarmDay' or $t eq 'nextAlarmTime' )
+            and $v eq 'null' );
         $v =~ s/\bnull\b//g;
         $v = encode_utf8($v);
-        
-        readingsBulkUpdateIfChanged($hash, $t, $v, 1)   if( defined( $v ) and ($t ne 'deviceState'
-                                                            or $t ne 'incomingCallerName'
-                                                            or $t ne 'incomingCallerNumber'
-                                                            or $t ne 'incomingTelegramMessage'
-                                                            or $t ne 'incomingSmsMessage'
-                                                            or $t ne 'incomingWhatsAppMessage'
-                                                            or $t ne 'nfcLastTagID')
-                                                        );
 
-        readingsBulkUpdateIfChanged( $hash, $t, ($v / AttrVal($name,'setVolFactor',1)) ) if( $t eq 'volume' and AttrVal($name,'setVolFactor',1) > 1 );
-        readingsBulkUpdate( $hash, '.'.$t, $v ) if( $t eq 'deviceState' );
-        readingsBulkUpdate( $hash, $t, $v ) if( defined( $v ) and ($t eq 'incomingCallerName'
-                                                    or $t eq 'incomingCallerNumber'
-                                                    or $t eq 'incomingTelegramMessage'
-                                                    or $t eq 'incomingSmsMessage'
-                                                    or $t eq 'incomingWhatsAppMessage'
-                                                    or $t eq 'nfcLastTagID')
-                                            );
+        readingsBulkUpdateIfChanged( $hash, $t, $v, 1 )
+          if (
+            defined($v)
+            and (  $t ne 'deviceState'
+                or $t ne 'incomingCallerName'
+                or $t ne 'incomingCallerNumber'
+                or $t ne 'incomingTelegramMessage'
+                or $t ne 'incomingSmsMessage'
+                or $t ne 'incomingWhatsAppMessage'
+                or $t ne 'nfcLastTagID' )
+          );
+
+        readingsBulkUpdateIfChanged( $hash, $t,
+            ( $v / AttrVal( $name, 'setVolFactor', 1 ) ) )
+          if ( $t eq 'volume' and AttrVal( $name, 'setVolFactor', 1 ) > 1 );
+        readingsBulkUpdate( $hash, '.' . $t, $v ) if ( $t eq 'deviceState' );
+        readingsBulkUpdate( $hash, $t, $v )
+          if (
+            defined($v)
+            and (  $t eq 'incomingCallerName'
+                or $t eq 'incomingCallerNumber'
+                or $t eq 'incomingTelegramMessage'
+                or $t eq 'incomingSmsMessage'
+                or $t eq 'incomingWhatsAppMessage'
+                or $t eq 'nfcLastTagID' )
+          );
     }
-    
-    readingsBulkUpdateIfChanged( $hash, "deviceState", "offline", 1 ) if( $decode_json->{payload}{airplanemode} and $decode_json->{payload}{airplanemode} eq "on" );
-    readingsBulkUpdateIfChanged( $hash, "deviceState", "online", 1 ) if( $decode_json->{payload}{airplanemode} and $decode_json->{payload}{airplanemode} eq "off" );
 
-    readingsBulkUpdateIfChanged( $hash, "lastStatusRequestState", "statusRequest_done", 1 );
-    
-    if( ReadingsVal($name,'volume',1) > 0 ) {
-        readingsBulkUpdateIfChanged( $hash, "mute", "off", 1 );
-    } else {
-        readingsBulkUpdateIfChanged( $hash, "mute", "on", 1 );
+    readingsBulkUpdateIfChanged( $hash, 'deviceState', 'offline', 1 )
+      if (  $decode_json->{payload}{airplanemode}
+        and $decode_json->{payload}{airplanemode} eq 'on' );
+    readingsBulkUpdateIfChanged( $hash, 'deviceState', 'online', 1 )
+      if (  $decode_json->{payload}{airplanemode}
+        and $decode_json->{payload}{airplanemode} eq 'off' );
+
+    readingsBulkUpdateIfChanged( $hash, 'lastStatusRequestState',
+        'statusRequest_done', 1 );
+
+    if ( ReadingsVal( $name, 'volume', 1 ) > 0 ) {
+        readingsBulkUpdateIfChanged( $hash, 'mute', 'off', 1 );
+    }
+    else {
+        readingsBulkUpdateIfChanged( $hash, 'mute', 'on', 1 );
     }
 
     $hash->{helper}{infoErrorCounter} = 0;
     ### End Response Processing
-    
-    readingsBulkUpdateIfChanged( $hash, "state", "active", 1 ) if( ReadingsVal( $name, "state", 0 ) eq "initialized" );
+
+    readingsBulkUpdateIfChanged( $hash, 'state', 'active', 1 )
+      if ( ReadingsVal( $name, 'state', 0 ) eq 'initialized' );
     readingsEndUpdate( $hash, 1 );
-    
-    $hash->{helper}{deviceStateErrorCounter} = 0 if( $hash->{helper}{deviceStateErrorCounter} > 0 and ReadingsVal( $name, "deviceState", "offline") eq "online" );
-    
+
+    $hash->{helper}{deviceStateErrorCounter} = 0
+      if ( $hash->{helper}{deviceStateErrorCounter} > 0
+        and ReadingsVal( $name, 'deviceState', 'offline' ) eq 'online' );
+
     return undef;
 }
 
 sub Set($$@) {
 
-    my ($hash, $name, @aa)  = @_;
-    my ($cmd, @args)        = @aa;
+    my ( $hash, $name, @aa ) = @_;
+    my ( $cmd, @args ) = @aa;
 
-    my $amad_id             = $hash->{AMAD_ID};
-    my $header              = 'Connection: close';
-    my $uri                 = $hash->{HOST} . ":" . $hash->{PORT};
-    my $path;
+    my $amad_id = $hash->{AMAD_ID};
+    my $header  = 'Connection: close';
+    my $uri     = $hash->{HOST} . ':' . $hash->{PORT};
+    my $path    = '/fhem-amad/setCommands/';
     my $method;
-    
-    my @playerList          = ('GoogleMusic','SamsungMusic','AmazonMusic','SpotifyMusic','TuneinRadio','AldiMusic','YouTube',
-                                'YouTubeKids','VlcPlayer','Audible','Deezer','Poweramp','MXPlayerPro');
-    my @playerCmd           = ('mediaPlay','mediaStop','mediaNext','mediaBack');
-    
-    my $volMax              = AttrVal($name,'setVolMax',15);
-    my $notifyVolMax        = AttrVal($name,'setNotifyVolMax',7);
-    my $ringSoundVolMax     = AttrVal($name,'setRingSoundVolMax',7);
-    
 
-    if( lc $cmd eq 'screenmsg' ) {
-        my $msg = join( " ", @args );
+    my @playerList = (
+        'GoogleMusic', 'SamsungMusic', 'AmazonMusic', 'SpotifyMusic',
+        'TuneinRadio', 'AldiMusic',    'YouTube',     'YouTubeKids',
+        'VlcPlayer',   'Audible',      'Deezer',      'Poweramp',
+        'MXPlayerPro'
+    );
+    my @playerCmd = ( 'mediaPlay', 'mediaStop', 'mediaNext', 'mediaBack' );
 
-        $path   = "/fhem-amad/setCommands/screenMsg?message=".urlEncode($msg);
-        $method = "POST";
-    }
-    
-    elsif( lc $cmd eq 'ttsmsg' ) {
-        my ($msg,$speed,$lang,$ttsmsgvol)   = CreateTtsMsgValue($hash,@args);
-        
-        $path   = "/fhem-amad/setCommands/ttsMsg?message=".urlEncode($msg)."&msgspeed=".$speed."&msglang=".$lang."&msgvol=".$ttsmsgvol;
-        $method                             = "POST";
-    }
-    
-    elsif( lc $cmd eq 'userflowstate' ) {
-        my $datas           = join( " ", @args );
-        my ($flow,$state)   = split( ":", $datas);
+    my $volMax          = AttrVal( $name, 'setVolMax',          15 );
+    my $notifyVolMax    = AttrVal( $name, 'setNotifyVolMax',    7 );
+    my $ringSoundVolMax = AttrVal( $name, 'setRingSoundVolMax', 7 );
 
-        $path   = "/fhem-amad/setCommands/flowState?flowstate=".$state."&flowname=".urlEncode($flow);
-        $method     = "POST";
-    }
-    
-    elsif( lc $cmd eq 'userflowrun' ) {
-        my $flow            = join( " ", @args );
+    if ( lc $cmd eq 'screenmsg' ) {
+        my $msg = join( ' ', @args );
 
-        $path   = "/fhem-amad/setCommands/flowRun?flowname=".urlEncode($flow);
-        $method     = "POST";
+        $path .= 'screenMsg?message=' . urlEncode($msg);
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'volume' or $cmd eq 'mute' or $cmd =~ 'volume[Down|Up]' ) {
-        my $vol     = CreateVolumeValue($hash,$cmd,@args);
-    
-        $path   = "/fhem-amad/setCommands/setVolume?volume=$vol";
-        $method     = "POST";
-    }
-    
-    elsif( lc $cmd eq 'volumenotification' ) {
-        my $volnote = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setNotifiVolume?notifivolume=$volnote";
-        $method = "POST";
-    }
-    
-    elsif( lc $cmd eq 'volumeringsound' ) {
-        my $volring = join( " ", @args );
+    elsif ( lc $cmd eq 'ttsmsg' ) {
+        my ( $msg, $speed, $lang, $ttsmsgvol ) =
+          CreateTtsMsgValue( $hash, @args );
 
-        $path   = "/fhem-amad/setCommands/setRingSoundVolume?ringsoundvolume=$volring";
-        $method = "POST";
+        $path .=
+            'ttsMsg?message='
+          . urlEncode($msg)
+          . '&msgspeed='
+          . $speed
+          . '&msglang='
+          . $lang
+          . '&msgvol='
+          . $ttsmsgvol;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd =~ /^media/ ) {
-        my $mplayer = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/multimediaControl?button=".$cmd."&mplayer=".$mplayer;
-        $method = "POST";
+    elsif ( lc $cmd eq 'userflowstate' ) {
+        my $datas = join( ' ', @args );
+        my ( $flow, $state ) = split( ':', $datas );
+
+        $path .=
+          'flowState?flowstate=' . $state . '&flowname=' . urlEncode($flow);
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'screenbrightness' ) {
-        my $bri = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setBrightness?brightness=$bri";
-        $method = "POST";
+    elsif ( lc $cmd eq 'userflowrun' ) {
+        my $flow = join( ' ', @args );
+
+        $path .= 'flowRun?flowname=' . urlEncode($flow);
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'screenbrightnessmode' ) {
-        my $mode = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setBrightnessMode?brightnessmode=".($mode eq 'on' ? 1 : 0);
-        $method = "POST";
+    elsif ( lc $cmd eq 'volume' or $cmd eq 'mute' or $cmd =~ 'volume[Down|Up]' )
+    {
+        my $vol = CreateVolumeValue( $hash, $cmd, @args );
+
+        $path .= 'setVolume?volume=' . $vol;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'screen' ) {
-        my $mod = join( " ", @args );
 
+    elsif ( lc $cmd eq 'volumenotification' ) {
+        my $volnote = join( ' ', @args );
 
-        $path        = CreateScreenValue($hash,$mod);
-        return "Please set \"setScreenlockPIN\" Attribut first"
-        unless($path ne 'NO PIN');
-        $method     = "POST";
+        $path .= 'setNotifiVolume?notifivolume=' . $volnote;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'screenorientation' ) {
-    
-        my $mod = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setScreenOrientation?orientation=$mod";
-        $method = "POST";
-    }
-    
-    elsif( lc $cmd eq 'activatevoiceinput' ) {
-        $path   = "/fhem-amad/setCommands/setvoicecmd";
-        $method = "POST";
-    }
-    
-    elsif( lc $cmd eq 'screenfullscreen' ) {
-        my $mod = join( " ", @args );
+    elsif ( lc $cmd eq 'volumeringsound' ) {
+        my $volring = join( ' ', @args );
 
-        $path   = "/fhem-amad/setCommands/setScreenFullscreen?fullscreen=$mod";
-        $method = "POST";
+        $path .= 'setRingSoundVolume?ringsoundvolume=' . $volring;
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd =~ /^media/ ) {
+        my $mplayer = join( ' ', @args );
+
+        $path .= 'multimediaControl?button=' . $cmd . '&mplayer=' . $mplayer;
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'screenbrightness' ) {
+        my $bri = join( ' ', @args );
+
+        $path .= 'setBrightness?brightness=' . $bri;
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'screenbrightnessmode' ) {
+        my $mode = join( ' ', @args );
+
+        $path .=
+          'setBrightnessMode?brightnessmode=' . ( $mode eq 'on' ? 1 : 0 );
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'screen' ) {
+        my $mod = join( ' ', @args );
+
+        $path = CreateScreenValue( $hash, $mod );
+        return 'Please set "setScreenlockPIN" Attribut first'
+          unless ( $path ne 'NO PIN' );
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'screenorientation' ) {
+
+        my $mod = join( ' ', @args );
+
+        $path .= 'setScreenOrientation?orientation=' . $mod;
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'activatevoiceinput' ) {
+        $path .= 'setvoicecmd';
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'screenfullscreen' ) {
+        my $mod = join( ' ', @args );
+
+        $path .= 'setScreenFullscreen?fullscreen=' . $mod;
+        $method = 'POST';
         readingsSingleUpdate( $hash, $cmd, $mod, 1 );
     }
-    
-    elsif( lc $cmd eq 'openurl' ) {
-        my $openurl = join( " ", @args );
-        my $browser = AttrVal( $name, "setOpenUrlBrowser", "com.android.chrome|com.google.android.apps.chrome.Main" );
+
+    elsif ( lc $cmd eq 'openurl' ) {
+        my $openurl = join( ' ', @args );
+        my $browser = AttrVal( $name, 'setOpenUrlBrowser',
+            'com.android.chrome|com.google.android.apps.chrome.Main' );
         my @browserapp = split( /\|/, $browser );
 
-        $path   = "/fhem-amad/setCommands/openURL?url=".$openurl."&browserapp=".$browserapp[0]."&browserappclass=".$browserapp[1];
-        $method     = "POST";
-    }
-    
-    elsif (lc $cmd eq 'nextalarmtime') {
-        my $value   = join( " ", @args );
-        my @alarm   = split( ":", $value );
-
-        $path   = "/fhem-amad/setCommands/setAlarm?hour=".$alarm[0]."&minute=".$alarm[1];
-        $method     = "POST";
-    }
-    
-    elsif (lc $cmd eq 'timer') {
-        my $timer   = join( " ", @args );
-
-        $path   = "/fhem-amad/setCommands/setTimer?minute=$timer";
-        $method     = "POST";
+        $path .=
+            'openURL?url='
+          . $openurl
+          . '&browserapp='
+          . $browserapp[0]
+          . '&browserappclass='
+          . $browserapp[1];
+        $method = 'POST';
     }
 
-    elsif( lc $cmd eq 'statusrequest' ) {
+    elsif ( lc $cmd eq 'nextalarmtime' ) {
+        my $value = join( ' ', @args );
+        my @alarm = split( ':', $value );
 
-       statusRequest($hash);
-       return;
+        $path .= 'setAlarm?hour=' . $alarm[0] . '&minute=' . $alarm[1];
+        $method = 'POST';
     }
 
-    elsif( lc $cmd eq 'openapp' ) {
-        my $app = join( " ", @args );
+    elsif ( lc $cmd eq 'timer' ) {
+        my $timer = join( ' ', @args );
 
-        $path   = "/fhem-amad/setCommands/openApp?app=".$app;
-        $method = "POST";
+        $path .= 'setTimer?minute=' . $timer;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'nfc' ) {
-        my $mod = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setnfc?nfc=".$mod;
-        $method = "POST";
+    elsif ( lc $cmd eq 'statusrequest' ) {
+
+        statusRequest($hash);
+        return;
     }
-    
-    elsif( lc $cmd eq 'system' ) {
-        my $systemcmd   = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/systemcommand?syscmd=$systemcmd";
-        $method         = "POST";
-        readingsSingleUpdate( $hash, "airplanemode", "on", 1 ) if( $systemcmd eq "airplanemodeON" );
-        readingsSingleUpdate( $hash, "deviceState", "offline", 1 ) if( $systemcmd eq "airplanemodeON" or $systemcmd eq "shutdown" );
+    elsif ( lc $cmd eq 'openapp' ) {
+        my $app = join( ' ', @args );
+
+        $path .= 'openApp?app=' . $app;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'donotdisturb' ) {
-        my $disturbmod  = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/donotdisturb?disturbmod=$disturbmod";
-        $method         = "POST";
+    elsif ( lc $cmd eq 'nfc' ) {
+        my $mod = join( ' ', @args );
+
+        $path .= 'setnfc?nfc=' . $mod;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'bluetooth' ) {
-        my $mod = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/setbluetooth?bluetooth=$mod";
-        $method = "POST";
+    elsif ( lc $cmd eq 'system' ) {
+        my $systemcmd = join( ' ', @args );
+
+        $path .= 'systemcommand?syscmd=' . $systemcmd;
+        $method = 'POST';
+        readingsSingleUpdate( $hash, 'airplanemode', 'on', 1 )
+          if ( $systemcmd eq 'airplanemodeON' );
+        readingsSingleUpdate( $hash, 'deviceState', 'offline', 1 )
+          if ( $systemcmd eq 'airplanemodeON' or $systemcmd eq 'shutdown' );
     }
-    
-    elsif( lc $cmd eq 'notifysndfile' ) {
-        my $notify      = join( " ", @args );
-        my $filepath    = AttrVal( $name, "setNotifySndFilePath", "/storage/emulated/0/Notifications/" );
 
-        $path   = "/fhem-amad/setCommands/playnotifysnd?notifyfile=".$notify."&notifypath=".$filepath;
-        $method         = "POST";
+    elsif ( lc $cmd eq 'donotdisturb' ) {
+        my $disturbmod = join( ' ', @args );
+
+        $path .= 'donotdisturb?disturbmod=' . $disturbmod;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'changetobtdevice' ) {
-        my $swToBtDevice = join( " ", @args );    
 
-        my ($swToBtMac,$btDeviceOne,$btDeviceTwo) = CreateChangeBtDeviceValue($hash,$swToBtDevice);
-        $path   = "/fhem-amad/setCommands/setbtdevice?swToBtDeviceMac=".$swToBtMac."&btDeviceOne=".$btDeviceOne."&btDeviceTwo=".$btDeviceTwo;
-        $method = "POST";
+    elsif ( lc $cmd eq 'bluetooth' ) {
+        my $mod = join( ' ', @args );
+
+        $path .= 'setbluetooth?bluetooth=' . $mod;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'clearnotificationbar' ) {
-        my $appname = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/clearnotificationbar?app=$appname";
-        $method     = "POST";
+    elsif ( lc $cmd eq 'notifysndfile' ) {
+        my $notify = join( ' ', @args );
+        my $filepath = AttrVal( $name, 'setNotifySndFilePath',
+            '/storage/emulated/0/Notifications/' );
+
+        $path .=
+          'playnotifysnd?notifyfile=' . $notify . '&notifypath=' . $filepath;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'vibrate' ) {
 
-        $path   = "/fhem-amad/setCommands/setvibrate";
-        $method = "POST";
+    elsif ( lc $cmd eq 'changetobtdevice' ) {
+        my $swToBtDevice = join( ' ', @args );
+
+        my ( $swToBtMac, $btDeviceOne, $btDeviceTwo ) =
+          CreateChangeBtDeviceValue( $hash, $swToBtDevice );
+        $path .=
+            'setbtdevice?swToBtDeviceMac='
+          . $swToBtMac
+          . '&btDeviceOne='
+          . $btDeviceOne
+          . '&btDeviceTwo='
+          . $btDeviceTwo;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'showhomescreen' ) {
 
-        $path   = "/fhem-amad/setCommands/showhomescreen";
-        $method = "POST";
+    elsif ( lc $cmd eq 'clearnotificationbar' ) {
+        my $appname = join( ' ', @args );
+
+        $path .= 'clearnotificationbar?app=' . $appname;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'takepicture' ) {
 
-        return "Please set \"setTakePictureResolution\" Attribut first"
-        unless(AttrVal($name,'setTakePictureResolution','none') ne 'none');
-        
-        return "Please set \"setTakePictureCamera\" Attribut first"
-        unless(AttrVal($name,'setTakePictureCamera','none') ne 'none');
-        
-        $path   = "/fhem-amad/setCommands/takepicture?pictureresolution=".AttrVal($name,'setTakePictureResolution','none')."&picturecamera=".AttrVal($name,'setTakePictureCamera','none');
-        $method = "POST";
+    elsif ( lc $cmd eq 'vibrate' ) {
+
+        $path .= 'setvibrate';
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'takescreenshot' ) {
 
-        return "Please set \"setTakeScreenshotResolution\" Attribut first"
-        unless(AttrVal($name,'setTakeScreenshotResolution','none') ne 'none');
-        
-        $path   = "/fhem-amad/setCommands/takescreenshot?screenshotresolution=".AttrVal($name,'setTakeScreenshotResolution','none');
-        $method = "POST";
+    elsif ( lc $cmd eq 'showhomescreen' ) {
+
+        $path .= 'showhomescreen';
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'sendintent' ) {
-        my $intentstring = join( " ", @args );
-        my ( $action, $exkey1, $exval1, $exkey2, $exval2 ) = split( "[ \t][ \t]*", $intentstring );
-        $exkey1 = "" if( !$exkey1 );
-        $exval1 = "" if( !$exval1 );
-        $exkey2 = "" if( !$exkey2 );
-        $exval2 = "" if( !$exval2 );
 
-        $path   = "/fhem-amad/setCommands/sendIntent?action=".$action."&exkey1=".$exkey1."&exval1=".$exval1."&exkey2=".$exkey2."&exval2=".$exval2;
-        $method = "POST";
+    elsif ( lc $cmd eq 'takepicture' ) {
+
+        return 'Please set "setTakePictureResolution" Attribut first'
+          unless (
+            AttrVal( $name, 'setTakePictureResolution', 'none' ) ne 'none' );
+
+        return 'Please set "setTakePictureCamera" Attribut first'
+          unless ( AttrVal( $name, 'setTakePictureCamera', 'none' ) ne 'none' );
+
+        $path .=
+            'takepicture?pictureresolution='
+          . AttrVal( $name, 'setTakePictureResolution', 'none' )
+          . '&picturecamera='
+          . AttrVal( $name, 'setTakePictureCamera', 'none' );
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'installflowsource' ) {
-        my $flowname    = join( " ", @args );
 
-        $path   = "/fhem-amad/setCommands/installFlow?flowname=$flowname";
-        $method         = "POST";
+    elsif ( lc $cmd eq 'takescreenshot' ) {
+
+        return 'Please set "setTakeScreenshotResolution" Attribut first'
+          unless (
+            AttrVal( $name, 'setTakeScreenshotResolution', 'none' ) ne 'none' );
+
+        $path .= 'takescreenshot?screenshotresolution='
+          . AttrVal( $name, 'setTakeScreenshotResolution', 'none' );
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'opencall' ) {
-        my $string = join( " ", @args );
-        my ($callnumber, $time) = split( "[ \t][ \t]*", $string );
-        $time   = "none" if( !$time );
 
-        $path   = "/fhem-amad/setCommands/openCall?callnumber=".$callnumber."&hanguptime=".$time;
-        $method = "POST";
+    elsif ( lc $cmd eq 'sendintent' ) {
+        my $intentstring = join( ' ', @args );
+        my ( $action, $exkey1, $exval1, $exkey2, $exval2 ) =
+          split( '[ \t][ \t]*', $intentstring );
+        $exkey1 = '' if ( !$exkey1 );
+        $exval1 = '' if ( !$exval1 );
+        $exkey2 = '' if ( !$exkey2 );
+        $exval2 = '' if ( !$exval2 );
+
+        $path .=
+            'sendIntent?action='
+          . $action
+          . '&exkey1='
+          . $exkey1
+          . '&exval1='
+          . $exval1
+          . '&exkey2='
+          . $exkey2
+          . '&exval2='
+          . $exval2;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'closecall' ) {
 
-        $path   = "/fhem-amad/setCommands/closeCall";
-        $method = "POST";
+    elsif ( lc $cmd eq 'installflowsource' ) {
+        my $flowname = join( ' ', @args );
+
+        $path .= 'installFlow?flowname=' . $flowname;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'startdaydream' ) {
 
-        $path   = "/fhem-amad/setCommands/startDaydream";
-        $method = "POST";
+    elsif ( lc $cmd eq 'opencall' ) {
+        my $string = join( ' ', @args );
+        my ( $callnumber, $time ) = split( '[ \t][ \t]*', $string );
+        $time = 'none' if ( !$time );
+
+        $path .= 'openCall?callnumber=' . $callnumber . '&hanguptime=' . $time;
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'currentflowsetupdate' ) {
 
-        if( ReadingsVal($name,'flowsetVersionAtDevice','') lt '4.1.99.6' ) {
-            $path   = "/fhem-amad/currentFlowsetUpdate";
-        } else {
-            $path   = "/fhem-amad/setCommands/currentFlowsetUpdate";
+    elsif ( lc $cmd eq 'closecall' ) {
+
+        $path .= 'closeCall';
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'startdaydream' ) {
+
+        $path .= 'startDaydream';
+        $method = 'POST';
+    }
+
+    elsif ( lc $cmd eq 'currentflowsetupdate' ) {
+
+        if ( ReadingsVal( $name, 'flowsetVersionAtDevice', '' ) lt '4.1.99.6' )
+        {
+            $path = '/fhem-amad/currentFlowsetUpdate';
         }
-        
-        $method = "POST";
+        else {
+            $path .= 'currentFlowsetUpdate';
+        }
+
+        $method = 'POST';
     }
-    
-    elsif( lc $cmd eq 'sendsms' ) {
-        my $string = join( " ", @args );
-        my ($smsmessage, $smsnumber) = split( "\\|", $string );
-    
-        $path   = "/fhem-amad/setCommands/sendSms?smsmessage=".urlEncode($smsmessage)."&smsnumber=".$smsnumber;
-        $method = "POST";
-        
-    } else {
-    
-        my $apps = AttrVal( $name, "setOpenApp", "none" );
-        my $btdev = AttrVal( $name, "setBluetoothDevice", "none" );
-        
+
+    elsif ( lc $cmd eq 'sendsms' ) {
+        my $string = join( ' ', @args );
+        my ( $smsmessage, $smsnumber ) = split( '\\|', $string );
+
+        $path .=
+            'sendSms?smsmessage='
+          . urlEncode($smsmessage)
+          . '&smsnumber='
+          . $smsnumber;
+        $method = 'POST';
+
+    }
+    else {
+
+        my $apps  = AttrVal( $name, 'setOpenApp',         'none' );
+        my $btdev = AttrVal( $name, 'setBluetoothDevice', 'none' );
 
         my $list = '';
-        foreach(@playerCmd) {
-            $list .= $_ . ':' . join(',',@playerList) . ' ';
+        foreach (@playerCmd) {
+            $list .= $_ . ':' . join( ',', @playerList ) . ' ';
         }
-        
-        $list .= "screenMsg ttsMsg screenBrightnessMode:on,off screenBrightness:slider,0,1,255 screen:on,off,lock,unlock openURL nextAlarmTime:time timer:slider,1,1,60 statusRequest:noArg bluetooth:on,off notifySndFile clearNotificationBar:All,Automagic activateVoiceInput:noArg vibrate:noArg sendIntent openCall closeCall:noArg currentFlowsetUpdate:noArg installFlowSource doNotDisturb:never,always,alarmClockOnly,onlyImportant userFlowState userFlowRun sendSMS startDaydream:noArg volumeUp:noArg volumeDown:noArg mute:on,off showHomeScreen:noArg takePicture:noArg takeScreenshot:noArg";
 
-        $list .= " screenOrientation:auto,landscape,portrait"   if( AttrVal( $name, "setScreenOrientation", "0" ) eq "1" );
-        $list .= " screenFullscreen:on,off"                     if( AttrVal( $name, "setFullscreen", "0" ) eq "1" );
-        $list .= " openApp:$apps"                               if( AttrVal( $name, "setOpenApp", "none" ) ne "none" );
-        $list .= " system:reboot,shutdown,airplanemodeON"       if( AttrVal( $name, "root", "0" ) eq "1" );
-        $list .= " changetoBTDevice:$btdev"                     if( AttrVal( $name, "setBluetoothDevice", "none" ) ne "none" );
-        $list .= " nfc:on,off"                                  if( AttrVal( $name, "root", "0" ) eq "1" );
-        $list .= " volume:slider,0,1,$volMax";
-        $list .= " volumeNotification:slider,0,1,$notifyVolMax";
-        $list .= " volumeRingSound:slider,0,1,$ringSoundVolMax";
-        
+        $list .=
+'screenMsg ttsMsg screenBrightnessMode:on,off screenBrightness:slider,0,1,255 screen:on,off,lock,unlock openURL nextAlarmTime:time timer:slider,1,1,60 statusRequest:noArg bluetooth:on,off notifySndFile clearNotificationBar:All,Automagic activateVoiceInput:noArg vibrate:noArg sendIntent openCall closeCall:noArg currentFlowsetUpdate:noArg installFlowSource doNotDisturb:never,always,alarmClockOnly,onlyImportant userFlowState userFlowRun sendSMS startDaydream:noArg volumeUp:noArg volumeDown:noArg mute:on,off showHomeScreen:noArg takePicture:noArg takeScreenshot:noArg';
 
+        $list .= ' screenOrientation:auto,landscape,portrait'
+          if ( AttrVal( $name, 'setScreenOrientation', '0' ) eq '1' );
+        $list .= ' screenFullscreen:on,off'
+          if ( AttrVal( $name, 'setFullscreen', '0' ) eq '1' );
+        $list .= ' openApp:' . $apps
+          if ( AttrVal( $name, 'setOpenApp', 'none' ) ne 'none' );
+        $list .= ' system:reboot,shutdown,airplanemodeON'
+          if ( AttrVal( $name, 'root', '0' ) eq '1' );
+        $list .= ' changetoBTDevice:' . $btdev
+          if ( AttrVal( $name, 'setBluetoothDevice', 'none' ) ne 'none' );
+        $list .= ' nfc:on,off' if ( AttrVal( $name, 'root', '0' ) eq '1' );
+        $list .= ' volume:slider,0,1,' . $volMax;
+        $list .= ' volumeNotification:slider,0,1,' . $notifyVolMax;
+        $list .= ' volumeRingSound:slider,0,1,' . $ringSoundVolMax;
 
         return "Unknown argument $cmd, choose one of $list";
     }
-    
-    
-    IOWrite($hash,$amad_id,$uri,$path,$header,$method);
-    Log3 $name, 5, "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}";
+
+    IOWrite( $hash, $amad_id, $uri, $path, $header, $method );
+    Log3( $name, 5,
+        "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}" );
 
     return undef;
 }
 
 sub Parse($$) {
 
-    my ($io_hash,$json) = @_;
-    my $name            = $io_hash->{NAME};
+    my ( $io_hash, $json ) = @_;
+    my $name = $io_hash->{NAME};
 
-
-    my $decode_json     = eval{decode_json($json)};
-    if($@){
-        Log3 $name, 3, "AMADDevice ($name) - JSON error while request: $@";
+    my $decode_json = eval { decode_json($json) };
+    if ($@) {
+        Log3( $name, 3, "AMADDevice ($name) - JSON error while request: $@" );
         return;
     }
-    
-    Log3 $name, 4, "AMADDevice ($name) - ParseFn was called";
-    Log3 $name, 5, "AMADDevice ($name) - ParseFn was called, !!! AMAD_ID: $decode_json->{amad}{amad_id}";
 
+    Log3( $name, 4, "AMADDevice ($name) - ParseFn was called" );
+    Log3( $name, 5,
+"AMADDevice ($name) - ParseFn was called, !!! AMAD_ID: $decode_json->{amad}{amad_id}"
+    );
+
+    my $fhemDevice = $decode_json->{firstrun}{fhemdevice}
+      if (  defined( $decode_json->{firstrun} )
+        and defined( $decode_json->{firstrun}{fhemdevice} ) );
+    my $amad_id = $decode_json->{amad}{amad_id};
+
+    if ( my $hash = $modules{AMADDevice}{defptr}{$amad_id} ) {
+        my $name = $hash->{NAME};
+
+        WriteReadings( $hash, $decode_json );
+        Log3( $name, 4,
+            "AMADDevice ($name) - find logical device: $hash->{NAME}" );
 
-    my $fhemDevice  = $decode_json->{firstrun}{fhemdevice} if( defined($decode_json->{firstrun}) and defined($decode_json->{firstrun}{fhemdevice}) );
-    my $amad_id     = $decode_json->{amad}{amad_id};
-        
-    if( my $hash        = $modules{AMADDevice}{defptr}{$amad_id} ) {        
-        my $name        = $hash->{NAME};
-                        
-        WriteReadings($hash,$decode_json);
-        Log3 $name, 4, "AMADDevice ($name) - find logical device: $hash->{NAME}";
-                        
         return $hash->{NAME};
-            
-    } else {
 
-        return "UNDEFINED $fhemDevice AMADDevice $decode_json->{firstrun}{'amaddevice_ip'} $decode_json->{amad}{'amad_id'} $decode_json->{firstrun}{remoteserver}";
+    }
+    else {
+
+        return
+"UNDEFINED $fhemDevice AMADDevice $decode_json->{firstrun}{'amaddevice_ip'} $decode_json->{amad}{'amad_id'} $decode_json->{firstrun}{remoteserver}";
     }
 }
 
@@ -859,22 +1010,30 @@ sub Parse($$) {
 
 sub checkDeviceState($) {
 
-    my ( $hash ) = @_;
+    my ($hash) = @_;
     my $name = $hash->{NAME};
 
-    Log3 $name, 4, "AMADDevice ($name) - checkDeviceState: run Check";
+    Log3( $name, 4, "AMADDevice ($name) - checkDeviceState: run Check" );
 
-    
-    if( ReadingsAge( $name, ".deviceState", 240 ) > 240 ) {
-    
-        statusRequest( $hash ) if( $hash->{helper}{deviceStateErrorCounter} == 0 );
-        readingsSingleUpdate( $hash, "deviceState", "offline", 1 ) if( ReadingsAge( $name, ".deviceState", 300) > 300 and $hash->{helper}{deviceStateErrorCounter} > 0 and ReadingsVal($name,'deviceState','online') ne 'offline' );
-        $hash->{helper}{deviceStateErrorCounter} = ( $hash->{helper}{deviceStateErrorCounter} + 1 );
+    if ( ReadingsAge( $name, '.deviceState', 240 ) > 240 ) {
+
+        statusRequest($hash)
+          if ( $hash->{helper}{deviceStateErrorCounter} == 0 );
+        readingsSingleUpdate( $hash, 'deviceState', 'offline', 1 )
+          if (  ReadingsAge( $name, '.deviceState', 300 ) > 300
+            and $hash->{helper}{deviceStateErrorCounter} > 0
+            and ReadingsVal( $name, 'deviceState', 'online' ) ne 'offline' );
+        $hash->{helper}{deviceStateErrorCounter} =
+          ( $hash->{helper}{deviceStateErrorCounter} + 1 );
     }
-    
-    InternalTimer( gettimeofday()+240, "FHEM::AMADDevice::checkDeviceState", $hash, 0 );
-    
-    Log3 $name, 4, "AMADDevice ($name) - checkDeviceState: set new Timer";
+
+    InternalTimer(
+        gettimeofday() + 240,
+        'FHEM::AMADDevice::checkDeviceState',
+        $hash, 0
+    );
+
+    Log3( $name, 4, "AMADDevice ($name) - checkDeviceState: set new Timer" );
 }
 
 sub encrypt($) {
@@ -882,16 +1041,16 @@ sub encrypt($) {
     my ($decodedPIN) = @_;
     my $key = getUniqueId();
     my $encodedPIN;
-    
-    return $decodedPIN if( $decodedPIN =~ /^crypt:(.*)/ );
 
-    for my $char (split //, $decodedPIN) {
+    return $decodedPIN if ( $decodedPIN =~ /^crypt:(.*)/ );
+
+    for my $char ( split //, $decodedPIN ) {
         my $encode = chop($key);
-        $encodedPIN .= sprintf("%.2x",ord($char)^ord($encode));
-        $key = $encode.$key;
+        $encodedPIN .= sprintf( "%.2x", ord($char) ^ ord($encode) );
+        $key = $encode . $key;
     }
-    
-    return 'crypt:'. $encodedPIN;
+
+    return 'crypt:' . $encodedPIN;
 }
 
 sub decrypt($) {
@@ -900,12 +1059,12 @@ sub decrypt($) {
     my $key = getUniqueId();
     my $decodedPIN;
 
-    $encodedPIN = $1 if( $encodedPIN =~ /^crypt:(.*)/ );
+    $encodedPIN = $1 if ( $encodedPIN =~ /^crypt:(.*)/ );
 
-    for my $char (map { pack('C', hex($_)) } ($encodedPIN =~ /(..)/g)) {
+    for my $char ( map { pack( 'C', hex($_) ) } ( $encodedPIN =~ /(..)/g ) ) {
         my $decode = chop($key);
-        $decodedPIN .= chr(ord($char)^ord($decode));
-        $key = $decode.$key;
+        $decodedPIN .= chr( ord($char) ^ ord($decode) );
+        $key = $decode . $key;
     }
 
     return $decodedPIN;
@@ -913,118 +1072,128 @@ sub decrypt($) {
 
 sub CreateVolumeValue($$@) {
 
-    my ($hash,$cmd,@args)       = @_;
-    
-    my $name                    = $hash->{NAME};
-    my $vol;
-    
+    my ( $hash, $cmd, @args ) = @_;
 
-    if( $cmd eq 'volume' ) {
+    my $name = $hash->{NAME};
+    my $vol;
+
+    if ( $cmd eq 'volume' ) {
         $vol = join( " ", @args );
 
-        if( $vol =~ /^\+(.*)/ or $vol =~ /^-(.*)/ ) {
+        if ( $vol =~ /^\+(.*)/ or $vol =~ /^-(.*)/ ) {
+
+            if ( $vol =~ /^\+(.*)/ ) {
 
-            if( $vol =~ /^\+(.*)/ ) {
-                
                 $vol =~ s/^\+//g;
                 $vol = ReadingsVal( $name, "volume", 0 ) + $vol;
             }
-                
-            elsif( $vol =~ /^-(.*)/ ) {
-                
+
+            elsif ( $vol =~ /^-(.*)/ ) {
+
                 $vol =~ s/^-//g;
                 $vol = ReadingsVal( $name, "volume", 15 ) - $vol;
             }
         }
-            
-    } elsif( $cmd eq 'mute') {
-        if($args[0] eq 'on') {
+
+    }
+    elsif ( $cmd eq 'mute' ) {
+        if ( $args[0] eq 'on' ) {
             $vol = 0;
-            readingsSingleUpdate($hash,'.volume',ReadingsVal($name,'volume',0),0);
-        } else {
-            $vol = ReadingsVal($name,'.volume',0);
+            readingsSingleUpdate( $hash, '.volume',
+                ReadingsVal( $name, 'volume', 0 ), 0 );
         }
-            
-    } elsif( $cmd =~ 'volume[Down|Up]') {
-        if( $cmd eq 'volumeUp' ) {
-            $vol = ReadingsVal( $name, "volume", 0 ) + AttrVal($name,'setVolUpDownStep',3);
-        } else {
-            $vol = ReadingsVal( $name, "volume", 0 ) - AttrVal($name,'setVolUpDownStep',3);
+        else {
+            $vol = ReadingsVal( $name, '.volume', 0 );
+        }
+
+    }
+    elsif ( $cmd =~ 'volume[Down|Up]' ) {
+        if ( $cmd eq 'volumeUp' ) {
+            $vol =
+              ReadingsVal( $name, "volume", 0 ) +
+              AttrVal( $name, 'setVolUpDownStep', 3 );
+        }
+        else {
+            $vol =
+              ReadingsVal( $name, "volume", 0 ) -
+              AttrVal( $name, 'setVolUpDownStep', 3 );
         }
     }
-        
+
     return $vol;
 }
 
 sub CreateTtsMsgValue($@) {
 
-    my ($hash,@args)       = @_;
-    
-    my $name        = $hash->{NAME};
+    my ( $hash, @args ) = @_;
+
+    my $name = $hash->{NAME};
     my $msg;
     my $speed;
 
-    my $lang        = AttrVal( $name, "setTtsMsgLang","de" );
-    my $ttsmsgvol   = AttrVal( $name, "setTtsMsgVol","none");
-    
-    if( AttrVal($name,"remoteServer","Automagic") ne 'Automagic') {
-        $speed = AttrVal( $name, "setTtsMsgSpeed", "5" );
-    } else {
-        $speed = AttrVal( $name, "setTtsMsgSpeed", "1.0" );
+    my $lang      = AttrVal( $name, 'setTtsMsgLang', 'de' );
+    my $ttsmsgvol = AttrVal( $name, 'setTtsMsgVol',  'none' );
+
+    if ( AttrVal( $name, 'remoteServer', 'Automagic' ) ne 'Automagic' ) {
+        $speed = AttrVal( $name, 'setTtsMsgSpeed', '5' );
+    }
+    else {
+        $speed = AttrVal( $name, 'setTtsMsgSpeed', '1.0' );
     }
 
+    $msg = join( ' ', @args );
 
-    $msg    = join( " ", @args );
-    
-    unless($args[0] ne '&en;' and $args[0] ne '&de;') {
-        $lang   = substr(splice(@args,0,1),1,2);
-        $msg    = join( " ", @args );
+    unless ( $args[0] ne '&en;' and $args[0] ne '&de;' ) {
+        $lang = substr( splice( @args, 0, 1 ), 1, 2 );
+        $msg = join( ' ', @args );
     }
-        
-    return ($msg,$speed,$lang,$ttsmsgvol);
+
+    return ( $msg, $speed, $lang, $ttsmsgvol );
 }
 
 sub CreateScreenValue($$) {
 
-    my ($hash,$mod)     = @_;
+    my ( $hash, $mod ) = @_;
 
-    my $name            = $hash->{NAME};
-    my $scot            = AttrVal( $name, "setScreenOnForTimer", undef );
-    $scot               = 60 if( !$scot );
+    my $name = $hash->{NAME};
+    my $scot = AttrVal( $name, 'setScreenOnForTimer', undef );
+    $scot = 60 if ( !$scot );
 
-    if ($mod eq "on" or $mod eq "off") {
-        return ("/fhem-amad/setCommands/setScreenOnOff?screen=".$mod."&screenontime=".$scot);
+    if ( $mod eq 'on' or $mod eq 'off' ) {
+        return ('/fhem-amad/setCommands/setScreenOnOff?screen='
+              . $mod
+              . '&screenontime='
+              . $scot );
     }
 
-    elsif ($mod eq "lock" or $mod eq "unlock") {
-        return "NO PIN"
-        unless( AttrVal( $name, "setScreenlockPIN", "none" ) ne "none" );
-        my $PIN = AttrVal( $name, "setScreenlockPIN", undef );
+    elsif ( $mod eq 'lock' or $mod eq 'unlock' ) {
+        return 'NO PIN'
+          unless ( AttrVal( $name, 'setScreenlockPIN', 'none' ) ne 'none' );
+        my $PIN = AttrVal( $name, 'setScreenlockPIN', undef );
         $PIN = decrypt($PIN);
 
-        return ("/fhem-amad/setCommands/screenlock?lockmod=".$mod."&lockPIN=".$PIN);
+        return ('/fhem-amad/setCommands/screenlock?lockmod='
+              . $mod
+              . '&lockPIN='
+              . $PIN );
     }
 }
 
 sub CreateChangeBtDeviceValue($$) {
 
-    my ($hash,$swToBtDevice)    = @_;
+    my ( $hash, $swToBtDevice ) = @_;
 
-    my $name                    = $hash->{NAME};
-    my @swToBtMac               = split( /\|/, $swToBtDevice );
-    my $btDevices               = AttrVal( $name, "setBluetoothDevice", "none" ) if( AttrVal( $name, "setBluetoothDevice", "none" ) ne "none" );
-    my @btDevice                = split( ',', $btDevices );
-    my @btDeviceOne             = split( /\|/, $btDevice[0] );
-    my @btDeviceTwo             = split( /\|/, $btDevice[1] );
-    
-    
-    return($swToBtMac[1],$btDeviceOne[1],$btDeviceTwo[1]);
+    my $name      = $hash->{NAME};
+    my @swToBtMac = split( /\|/, $swToBtDevice );
+    my $btDevices = AttrVal( $name, 'setBluetoothDevice', 'none' )
+      if ( AttrVal( $name, 'setBluetoothDevice', 'none' ) ne 'none' );
+    my @btDevice    = split( ',',  $btDevices );
+    my @btDeviceOne = split( /\|/, $btDevice[0] );
+    my @btDeviceTwo = split( /\|/, $btDevice[1] );
+
+    return ( $swToBtMac[1], $btDeviceOne[1], $btDeviceTwo[1] );
 }
 
-
-
-
-
 1;
 
 =pod

From c55a7d16ddd14a573104cd8fd33237d82aea63ca Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Mar 2019 15:54:17 +0100
Subject: [PATCH 4/7] change to package and support META with Installer

---
 73_AMADCommBridge.pm | 1467 +++++++++++++++++++++++++-----------------
 1 file changed, 863 insertions(+), 604 deletions(-)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index fba1061..d5d8be0 100755
--- a/73_AMADCommBridge.pm
+++ b/73_AMADCommBridge.pm
@@ -1,5 +1,5 @@
 ###############################################################################
-# 
+#
 # Developed with Kate
 #
 #  (c) 2015-2019 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
@@ -36,7 +36,7 @@
 #
 # if($@){
 #   Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@");
-#  
+#
 #   readingsSingleUpdate($hash, "state", "error", 1);
 #
 #   return;
@@ -58,935 +58,1154 @@
 ##
 ##
 
-
-
 package main;
 
-
-my $missingModul = "";
-
 use strict;
 use warnings;
+use FHEM::Meta;
 
-use HttpUtils;
-use TcpServerUtils;
-
-eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode ";
-eval "use JSON;1" or $missingModul .= "JSON ";
-
-
-
-my $modulversion = "4.4.0";
-my $flowsetversion = "4.4.0";
-
-
-
-
-# Declare functions
-sub AMADCommBridge_Attr(@);
-sub AMADCommBridge_Open($);
-sub AMADCommBridge_Read($);
-sub AMADCommBridge_Define($$);
-sub AMADCommBridge_Initialize($);
-sub AMADCommBridge_Set($@);
-sub AMADCommBridge_Write($@);
-sub AMADCommBridge_Undef($$);
-sub AMADCommBridge_ResponseProcessing($$);
-sub AMADCommBridge_Close($);
-sub AMADCommBridge_ErrorHandling($$$);
-sub AMADCommBridge_ProcessRead($$);
-sub AMADCommBridge_ParseMsg($$);
-
-
-
+my $modulversion   = '4.4.0';
+my $flowsetversion = '4.4.0';
 
 sub AMADCommBridge_Initialize($) {
 
     my ($hash) = @_;
 
-    
     # Provider
-    $hash->{ReadFn}     = "AMADCommBridge_Read";
-    $hash->{WriteFn}    = "AMADCommBridge_Write";
-    $hash->{Clients}    = ":AMADDevice:";
-    $hash->{MatchList}  = { "1:AMADDevice"      => '{"amad": \{"amad_id":.+}}' };
-    
-    
+    $hash->{ReadFn}    = 'FHEM::AMADCommBridge::Read';
+    $hash->{WriteFn}   = 'FHEM::AMADCommBridge::Write';
+    $hash->{Clients}   = ':AMADDevice:';
+    $hash->{MatchList} = { "1:AMADDevice" => '{"amad": \{"amad_id":.+}}' };
+
     # Consumer
-    $hash->{SetFn}      = "AMADCommBridge_Set";
-    $hash->{DefFn}      = "AMADCommBridge_Define";
-    $hash->{UndefFn}    = "AMADCommBridge_Undef";
-    
-    $hash->{AttrFn}     = "AMADCommBridge_Attr";
-    $hash->{AttrList}   = "fhemControlMode:trigger,setControl,thirdPartControl ".
-                          "debugJSON:0,1 ".
-                          "enableSubCalls:0,1 ".
-                          "disable:1 ".
-                          "allowfrom ".
-                          $readingFnAttributes;
-    
-    foreach my $d(sort keys %{$modules{AMADCommBridge}{defptr}}) {
-    
+    $hash->{SetFn}   = 'FHEM::AMADCommBridge::Set';
+    $hash->{DefFn}   = 'FHEM::AMADCommBridge::Define';
+    $hash->{UndefFn} = 'FHEM::AMADCommBridge::Undef';
+
+    $hash->{AttrFn} = 'FHEM::AMADCommBridge::Attr';
+    $hash->{AttrList} =
+        'fhemControlMode:trigger,setControl,thirdPartControl '
+      . 'debugJSON:0,1 '
+      . 'enableSubCalls:0,1 '
+      . 'disable:1 '
+      . 'allowfrom '
+      . $readingFnAttributes;
+
+    foreach my $d ( sort keys %{ $modules{AMADCommBridge}{defptr} } ) {
+
         my $hash = $modules{AMADCommBridge}{defptr}{$d};
-        $hash->{VERSIONMODUL}      = $modulversion;
-        $hash->{VERSIONFLOWSET}    = $flowsetversion;
+        $hash->{VERSIONMODUL}   = $modulversion;
+        $hash->{VERSIONFLOWSET} = $flowsetversion;
     }
+
+    return FHEM::Meta::InitMod( __FILE__, $hash );
 }
 
-sub AMADCommBridge_Define($$) {
+package FHEM::AMADCommBridge;
+
+use strict;
+use warnings;
+use POSIX;
+use FHEM::Meta;
+
+use GPUtils qw(GP_Import)
+  ;    # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
+
+my $missingModul = '';
+
+use HttpUtils;
+use TcpServerUtils;
+
+eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
+eval "use JSON;1"                          or $missingModul .= 'JSON ';
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(readingsSingleUpdate
+          readingsBulkUpdate
+          readingsBeginUpdate
+          readingsEndUpdate
+          defs
+          modules
+          Log3
+          CommandAttr
+          attr
+          AttrVal
+          ReadingsVal
+          init_done
+          urlEncode
+          HttpUtils_NonblockingGet
+          TcpServer_Open
+          TcpServer_Close
+          TcpServer_Accept)
+    );
+}
+
+sub Define($$) {
 
     my ( $hash, $def ) = @_;
-    
-    my @a = split( "[ \t][ \t]*", $def );
 
-    
-    return "too few parameters: define <name> AMADCommBridge '<tcp-port>'" if( @a < 2 and @a > 3 );
-    return "Cannot define a AMADCommBridge device. Perl modul $missingModul is missing." if ( $missingModul );
-    
-    my $name                = $a[0];
-    
+    my @a = split( '[ \t][ \t]*', $def );
+
+    return $@ unless ( FHEM::Meta::SetInternals($hash) );
+    return 'too few parameters: define <name> AMADCommBridge <tcp-port>'
+      if ( @a < 2 and @a > 3 );
+    return
+        'Cannot define a AMADCommBridge device. Perl modul '
+      . $missingModul
+      . ' is missing.'
+      if ($missingModul);
+
+    my $name = $a[0];
+
     my $port;
-    $port                   = $a[2] if($a[2]);
-    $port                   = 8090 if( not defined($port) and (!$port) );
-    
+    $port = $a[2] if ( $a[2] );
+    $port = 8090 if ( not defined($port) and ( !$port ) );
+
     $hash->{BRIDGE}         = 1;
     $hash->{PORT}           = $port;
     $hash->{VERSIONMODUL}   = $modulversion;
     $hash->{VERSIONFLOWSET} = $flowsetversion;
 
+    CommandAttr( undef, $name . ' room AMAD' )
+      if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
 
-    CommandAttr(undef,"$name room AMAD") if(AttrVal($name,'room','none') eq 'none');
-    
-    Log3 $name, 3, "AMADCommBridge ($name) - defined AMADCommBridge with Socketport $port";
+    Log3( $name, 3,
+        "AMADCommBridge ($name) - defined AMADCommBridge with Socketport $port"
+    );
+
+    Open($hash);
 
-    AMADCommBridge_Open( $hash );
-    
     $modules{AMADCommBridge}{defptr}{BRIDGE} = $hash;
 
     return undef;
 }
 
-sub AMADCommBridge_Undef($$) {
+sub Undef($$) {
 
     my ( $hash, $arg ) = @_;
 
-
-    delete $modules{AMADCommBridge}{defptr}{BRIDGE} if( defined($modules{AMADCommBridge}{defptr}{BRIDGE}) and $hash->{BRIDGE} );
-    TcpServer_Close( $hash );
+    delete $modules{AMADCommBridge}{defptr}{BRIDGE}
+      if ( defined( $modules{AMADCommBridge}{defptr}{BRIDGE} )
+        and $hash->{BRIDGE} );
+    TcpServer_Close($hash);
 
     return undef;
 }
 
-sub AMADCommBridge_Attr(@) {
+sub Attr(@) {
 
     my ( $cmd, $name, $attrName, $attrVal ) = @_;
     my $hash = $defs{$name};
-    
+
     my $orig = $attrVal;
 
-    if( $attrName eq "disable" ) {
-        if( $cmd eq "set" ) {
-            if( $attrVal eq "0" ) {
-            
-                readingsSingleUpdate ( $hash, "state", "enabled", 1 );
-                AMADCommBridge_Open($hash);
-                Log3 $name, 3, "AMADCommBridge ($name) - enabled";
-            } else {
+    if ( $attrName eq 'disable' ) {
+        if ( $cmd eq 'set' ) {
+            if ( $attrVal == 0 ) {
 
-                AMADCommBridge_Close($hash);
-                readingsSingleUpdate ( $hash, "state", "disabled", 1 ) if( not defined($hash->{FD}) );
-                Log3 $name, 3, "AMADCommBridge ($name) - disabled";
+                readingsSingleUpdate( $hash, 'state', 'enabled', 1 );
+                Open($hash);
+                Log3( $name, 3, "AMADCommBridge ($name) - enabled" );
             }
-            
-        } else {
+            else {
 
-            readingsSingleUpdate ( $hash, "state", "enabled", 1 );
-            AMADCommBridge_Open($hash);
-            Log3 $name, 3, "AMADCommBridge ($name) - enabled";
+                Close($hash);
+                readingsSingleUpdate( $hash, 'state', 'disabled', 1 )
+                  if ( not defined( $hash->{FD} ) );
+                Log3( $name, 3, "AMADCommBridge ($name) - disabled" );
+            }
+
+        }
+        else {
+
+            readingsSingleUpdate( $hash, 'state', 'enabled', 1 );
+            Open($hash);
+            Log3( $name, 3, "AMADCommBridge ($name) - enabled" );
         }
     }
-    
-    elsif( $attrName eq "fhemControlMode" ) {
-        if( $cmd eq "set" ) {
-        
-            CommandSet(undef,'set TYPE=AMADDevice:FILTER=deviceState=online statusRequest');
-            Log3 $name, 3, "AMADCommBridge ($name) - set fhemControlMode global Variable at Device";
-            
-        } else {
 
-            CommandSet(undef,'set TYPE=AMADDevice:FILTER=deviceState=online statusRequest');
-            Log3 $name, 3, "AMADCommBridge ($name) - set fhemControlMode global Variable NONE at Device";
+    elsif ( $attrName eq 'fhemControlMode' ) {
+        if ( $cmd eq 'set' ) {
+
+            CommandSet( undef,
+                'set TYPE=AMADDevice:FILTER=deviceState=online statusRequest' );
+            Log3( $name, 3,
+"AMADCommBridge ($name) - set fhemControlMode global Variable at Device"
+            );
+
+        }
+        else {
+
+            CommandSet( undef,
+                'set TYPE=AMADDevice:FILTER=deviceState=online statusRequest' );
+            Log3( $name, 3,
+"AMADCommBridge ($name) - set fhemControlMode global Variable NONE at Device"
+            );
         }
     }
-    
+
     return undef;
 }
 
-sub AMADCommBridge_Set($@) {
-    
-    my ($hash, $name, $cmd, @args) = @_;
-    my ($arg, @params) = @args;
-    
-    
-    if( $cmd eq 'open' ) {
-    
-        AMADCommBridge_Open($hash);
-    
-    } elsif( $cmd eq 'close' ) {
-    
-        AMADCommBridge_Close($hash);
-    
-    } else {
-        my $list = "open:noArg close:noArg";
+sub Set($@) {
+
+    my ( $hash, $name, $cmd, @args ) = @_;
+    my ( $arg, @params ) = @args;
+
+    if ( $cmd eq 'open' ) {
+
+        Open($hash);
+
+    }
+    elsif ( $cmd eq 'close' ) {
+
+        Close($hash);
+
+    }
+    else {
+        my $list = 'open:noArg close:noArg';
         return "Unknown argument $cmd, choose one of $list";
     }
 }
 
-sub AMADCommBridge_Write($@) {
+sub Write($@) {
 
-    my ($hash,$amad_id,$uri,$path,$header,$method)    = @_;
-    my $name                                    = $hash->{NAME};
-    my $dhash                                   = $modules{AMADDevice}{defptr}{$amad_id};
+    my ( $hash, $amad_id, $uri, $path, $header, $method ) = @_;
+    my $name  = $hash->{NAME};
+    my $dhash = $modules{AMADDevice}{defptr}{$amad_id};
     my $param;
-    my $remoteServer                            = AttrVal($dhash->{NAME},'remoteServer','Automagic');
+    my $remoteServer = AttrVal( $dhash->{NAME}, 'remoteServer', 'Automagic' );
 
+    Log3( $name, 4, "AMADCommBridge ($name) - Write Path: $path" );
 
-    Log3 $name, 4, "AMADCommBridge ($name) - AMADCommBridge_Write Path: $path";
-    
-    
-    if($remoteServer ne 'Automagic' and $path =~ /\?/) {
-        $path .= "&amad_id=$amad_id";
-    } elsif($remoteServer ne 'Automagic') {
-        $path .= "?amad_id=$amad_id";
+    if ( $remoteServer ne 'Automagic' and $path =~ /\?/ ) {
+        $path .= '&amad_id=' . $amad_id;
+    }
+    elsif ( $remoteServer ne 'Automagic' ) {
+        $path .= '?amad_id=' . $amad_id;
     }
 
-    return readingsSingleUpdate($dhash,'lastSetCommand',$path,1)
-    if( $remoteServer eq 'other' );
+    return readingsSingleUpdate( $dhash, 'lastSetCommand', $path, 1 )
+      if ( $remoteServer eq 'other' );
 
-    $param = { url => "http://" . $uri . $path, timeout => 15, hash => $hash, amad_id => $amad_id, method => $method, header => $header . "\r\namadid: $amad_id", doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling } if($remoteServer eq 'Automagic');
+    $param = {
+        url       => 'http://' . $uri . $path,
+        timeout   => 15,
+        hash      => $hash,
+        amad_id   => $amad_id,
+        method    => $method,
+        header    => $header . "\r\namadid: $amad_id",
+        doTrigger => 1,
+        callback  => \&ErrorHandling
+      }
+      if ( $remoteServer eq 'Automagic' );
 
+    $param = {
+        url => 'http://' . $uri . '/',
+        data =>
+"{\"message\":\"AMAD=:=$path\", \"sender\":\"AMAD\", \"ttl\":60, \"communication_base_params\":{\"type\":\"Message\", \"fallback\":false, \"via\":\"Wifi\"},\"version\":\"1.62\"}",
+        timeout => 15,
+        hash    => $hash,
+        amad_id => $amad_id,
+        method  => $method,
+        header =>
+"agent: TeleHeater/2.2.3\r\nUser-Agent: TeleHeater/2.2.3\r\nAccept: application/json",
+        doTrigger => 1,
+        callback  => \&ErrorHandling
+      }
+      if ( $remoteServer eq 'Autoremote' );
 
-    $param =    {   url => "http://" . $uri . "/",
-                    data => "{\"message\":\"AMAD=:=$path\", \"sender\":\"AMAD\", \"ttl\":60, \"communication_base_params\":{\"type\":\"Message\", \"fallback\":false, \"via\":\"Wifi\"},\"version\":\"1.62\"}",
-                    timeout => 15, hash => $hash, amad_id => $amad_id, method => $method,
-                    header => "agent: TeleHeater/2.2.3\r\nUser-Agent: TeleHeater/2.2.3\r\nAccept: application/json",
-                    doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling 
-                } if($remoteServer eq 'Autoremote');
+    $param = {
+        url     => 'http://' . $uri . '/',
+        data    => 'device=AMAD&cmd=' . urlEncode($path),
+        timeout => 15,
+        hash    => $hash,
+        amad_id => $amad_id,
+        method  => $method,
+        header =>
+"agent: TeleHeater/2.2.3\r\nUser-Agent: TeleHeater/2.2.3\r\nAccept: application/json",
+        doTrigger => 1,
+        callback  => \&ErrorHandling
+      }
+      if ( $remoteServer eq 'TNES' );
 
+    my $logtext =
+"AMADCommBridge ($name) - Send with remoteServer: $remoteServer URL: $param->{url}, HEADER: $param->{header}, METHOD: $method";
+    $logtext .= ", DATA: $param->{data}" if ( $remoteServer ne 'Automagic' );
+    Log3( $name, 5, "$logtext" );
 
-    $param =    {   url => "http://" . $uri . "/",
-                    data => "device=AMAD&cmd=".urlEncode($path),
-                    timeout => 15, hash => $hash, amad_id => $amad_id, method => $method,
-                    header => "agent: TeleHeater/2.2.3\r\nUser-Agent: TeleHeater/2.2.3\r\nAccept: application/json",
-                    doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling 
-                } if($remoteServer eq 'TNES');
-
-
-
-    my $logtext = "AMADCommBridge ($name) - Send with remoteServer: $remoteServer URL: $param->{url}, HEADER: $param->{header}, METHOD: $method";
-        $logtext .= ", DATA: $param->{data}" if( $remoteServer ne 'Automagic' );
-    Log3 $name, 5, "$logtext";
-    
-
-    HttpUtils_NonblockingGet($param) if( defined($param) );
+    HttpUtils_NonblockingGet($param) if ( defined($param) );
 }
 
-sub AMADCommBridge_ErrorHandling($$$) {
+sub ErrorHandling($$$) {
 
-    my ($param,$err,$data)    = @_;
-    
-    my $hash                        = $param->{hash};
-    my $dhash                       = $modules{AMADDevice}{defptr}{$param->{'amad_id'}};
-    my $dname                       = $dhash->{NAME};
+    my ( $param, $err, $data ) = @_;
 
+    my $hash  = $param->{hash};
+    my $dhash = $modules{AMADDevice}{defptr}{ $param->{'amad_id'} };
+    my $dname = $dhash->{NAME};
+
+    if ( $param->{method} eq 'GET' ) {
 
-    
-    
-    if( $param->{method} eq 'GET' ) {
-    
         ### Begin Error Handling
-        if( $dhash->{helper}{infoErrorCounter} > 0 ) {
-        
-            readingsBeginUpdate( $dhash );
-            readingsBulkUpdate( $dhash, "lastStatusRequestState", "statusRequest_error", 1 );
+        if ( $dhash->{helper}{infoErrorCounter} > 0 ) {
 
-            if( ReadingsVal( $dname, "flow_Informations", "active" ) eq "inactive" && ReadingsVal( $dname, "flow_SetCommands", "active" ) eq "inactive" ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: CHECK THE LAST ERROR READINGS FOR MORE INFO, DEVICE IS SET OFFLINE";
-            
-                readingsBulkUpdate( $dhash, "deviceState", "offline", 1 );
-                readingsBulkUpdate ( $dhash, "state", "AMAD Flows inactive, device set offline",1);
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'lastStatusRequestState',
+                'statusRequest_error', 1 );
+
+            if ( ReadingsVal( $dname, 'flow_Informations', 'active' ) eq
+                'inactive'
+                && ReadingsVal( $dname, 'flow_SetCommands', 'active' ) eq
+                'inactive' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: CHECK THE LAST ERROR READINGS FOR MORE INFO, DEVICE IS SET OFFLINE"
+                );
+
+                readingsBulkUpdate( $dhash, 'deviceState', 'offline', 1 );
+                readingsBulkUpdate( $dhash, 'state',
+                    'AMAD Flows inactive, device set offline', 1 );
             }
 
-            elsif( $dhash->{helper}{infoErrorCounter} > 7 && $dhash->{helper}{setCmdErrorCounter} > 4 ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: UNKNOWN ERROR, PLEASE CONTACT THE DEVELOPER, DEVICE DISABLED";
-        
+            elsif ($dhash->{helper}{infoErrorCounter} > 7
+                && $dhash->{helper}{setCmdErrorCounter} > 4 )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: UNKNOWN ERROR, PLEASE CONTACT THE DEVELOPER, DEVICE DISABLED"
+                );
+
                 $attr{$dname}{disable} = 1;
-                readingsBulkUpdate ( $dhash, "state", "Unknown Error, device disabled", 1);
-        
-                $dhash->{helper}{infoErrorCounter} = 0;
+                readingsBulkUpdate( $dhash, 'state',
+                    'Unknown Error, device disabled', 1 );
+
+                $dhash->{helper}{infoErrorCounter}   = 0;
                 $dhash->{helper}{setCmdErrorCounter} = 0;
-        
+
                 return;
             }
 
-            elsif( ReadingsVal( $dname, "flow_Informations", "active" ) eq "inactive" ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: Informations Flow on your Device is inactive, will try to reactivate";
+            elsif ( ReadingsVal( $dname, 'flow_Informations', 'active' ) eq
+                'inactive' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: Informations Flow on your Device is inactive, will try to reactivate"
+                );
             }
 
-            elsif( $dhash->{helper}{infoErrorCounter} > 7 ) {
+            elsif ( $dhash->{helper}{infoErrorCounter} > 7 ) {
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: To many Errors please check your Network or Device Configuration, DEVICE IS SET OFFLINE";
-            
-                readingsBulkUpdate( $dhash, "deviceState", "offline", 1 );
-                readingsBulkUpdate ( $dhash, "state", "To many Errors, device set offline", 1);
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: To many Errors please check your Network or Device Configuration, DEVICE IS SET OFFLINE"
+                );
+
+                readingsBulkUpdate( $dhash, 'deviceState', 'offline', 1 );
+                readingsBulkUpdate( $dhash, 'state',
+                    'To many Errors, device set offline', 1 );
                 $dhash->{helper}{infoErrorCounter} = 0;
             }
-        
-            elsif($dhash->{helper}{infoErrorCounter} > 2 && ReadingsVal( $dname, "flow_Informations", "active" ) eq "active" ){
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: Please check the AutomagicAPP on your Device";
+
+            elsif ( $dhash->{helper}{infoErrorCounter} > 2
+                && ReadingsVal( $dname, 'flow_Informations', 'active' ) eq
+                'active' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: Please check the AutomagicAPP on your Device"
+                );
             }
 
             readingsEndUpdate( $dhash, 1 );
         }
-        
-        if( defined( $err ) ) {
-            if( $err ne "" ) {
-            
-                readingsBeginUpdate( $dhash );
-                readingsBulkUpdate ( $dhash, "state", "$err") if( ReadingsVal( $dname, "state", 1 ) ne "initialized" );
-                $dhash->{helper}{infoErrorCounter} = ( $dhash->{helper}{infoErrorCounter} + 1 );
 
-                readingsBulkUpdate( $dhash, "lastStatusRequestState", "statusRequest_error", 1 );
-        
-                if( $err =~ /timed out/ ) {
-        
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: connect to your device is timed out. check network";
+        if ( defined($err) ) {
+            if ( $err ne '' ) {
+
+                readingsBeginUpdate($dhash);
+                readingsBulkUpdate( $dhash, 'state', $err )
+                  if ( ReadingsVal( $dname, 'state', 1 ) ne 'initialized' );
+                $dhash->{helper}{infoErrorCounter} =
+                  ( $dhash->{helper}{infoErrorCounter} + 1 );
+
+                readingsBulkUpdate( $dhash, 'lastStatusRequestState',
+                    'statusRequest_error', 1 );
+
+                if ( $err =~ /timed out/ ) {
+
+                    Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: connect to your device is timed out. check network"
+                    );
                 }
-        
-                elsif( ( $err =~ /Keine Route zum Zielrechner/ ) && $dhash->{helper}{infoErrorCounter} > 1 ) {
-        
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: no route to target. bad network configuration or network is down";
-        
-                } else {
 
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: $err";
+                elsif ( ( $err =~ /Keine Route zum Zielrechner/ )
+                    && $dhash->{helper}{infoErrorCounter} > 1 )
+                {
+
+                    Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: no route to target. bad network configuration or network is down"
+                    );
+
+                }
+                else {
+
+                    Log3( $dname, 5,
+                        "AMADCommBridge ($dname) - statusRequestERROR: $err" );
                 }
 
                 readingsEndUpdate( $dhash, 1 );
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: AMADCommBridge_statusRequestErrorHandling: error while requesting AutomagicInfo: $err";
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: statusRequestErrorHandling: error while requesting AutomagicInfo: $err"
+                );
 
                 return;
             }
         }
 
-        if( $data eq "" and exists( $param->{code} ) && $param->{code} ne 200 ) {
-        
-            readingsBeginUpdate( $dhash );
-            readingsBulkUpdate ( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dname, "state", 1 ) ne "initialized" );
-            $dhash->{helper}{infoErrorCounter} = ( $dhash->{helper}{infoErrorCounter} + 1 );
+        if ( $data eq '' and exists( $param->{code} ) && $param->{code} ne 200 )
+        {
 
-            readingsBulkUpdate( $dhash, "lastStatusRequestState", "statusRequest_error", 1 );
-        
-            if( $param->{code} ne 200 ) {
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'state', $param->{code}, 1 )
+              if ( ReadingsVal( $dname, 'state', 1 ) ne 'initialized' );
+            $dhash->{helper}{infoErrorCounter} =
+              ( $dhash->{helper}{infoErrorCounter} + 1 );
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: ".$param->{code};
+            readingsBulkUpdate( $dhash, 'lastStatusRequestState',
+                'statusRequest_error', 1 );
+
+            if ( $param->{code} ne 200 ) {
+
+                Log3( $dname, 5,
+                    "AMADCommBridge ($dname) - statusRequestERROR: "
+                      . $param->{code} );
             }
 
             readingsEndUpdate( $dhash, 1 );
-        
-            Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: received http code ".$param->{code}." without any data after requesting AMAD AutomagicInfo";
+
+            Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: received http code "
+                  . $param->{code}
+                  . " without any data after requesting AMAD AutomagicInfo" );
 
             return;
         }
 
-        if( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {    
-            readingsBeginUpdate( $dhash );
-            readingsBulkUpdate( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dname, "state" ,0) ne "initialized" );
-            $dhash->{helper}{infoErrorCounter} = ( $dhash->{helper}{infoErrorCounter} + 1 );
+        if ( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'state', $param->{code}, 1 )
+              if ( ReadingsVal( $dname, 'state', 0 ) ne 'initialized' );
+            $dhash->{helper}{infoErrorCounter} =
+              ( $dhash->{helper}{infoErrorCounter} + 1 );
 
-            readingsBulkUpdate( $dhash, "lastStatusRequestState", "statusRequest_error", 1 );
+            readingsBulkUpdate( $dhash, 'lastStatusRequestState',
+                'statusRequest_error', 1 );
 
-            if( $param->{code} eq 404 && ReadingsVal( $dname, "flow_Informations", "inactive" ) eq "inactive" ) {
+            if ( $param->{code} eq 404
+                && ReadingsVal( $dname, 'flow_Informations', 'inactive' ) eq
+                'inactive' )
+            {
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: check the informations flow on your device";
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: check the informations flow on your device"
+                );
             }
-        
-            elsif( $param->{code} eq 404 && ReadingsVal( $dname, "flow_Informations", "active" ) eq "active" ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: check the automagicApp on your device";
-        
-            } else {
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: http error ".$param->{code};
+            elsif ( $param->{code} eq 404
+                && ReadingsVal( $dname, 'flow_Informations', 'active' ) eq
+                'active' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: check the automagicApp on your device"
+                );
+
+            }
+            else {
+
+                Log3( $dname, 5,
+                    "AMADCommBridge ($dname) - statusRequestERROR: http error "
+                      . $param->{code} );
             }
 
             readingsEndUpdate( $dhash, 1 );
-        
-            Log3 $dname, 5, "AMADCommBridge ($dname) - statusRequestERROR: received http code ".$param->{code}." receive Error after requesting AMAD AutomagicInfo";
+
+            Log3( $dname, 5,
+"AMADCommBridge ($dname) - statusRequestERROR: received http code "
+                  . $param->{code}
+                  . " receive Error after requesting AMAD AutomagicInfo" );
 
             return;
         }
 
         ### End Error Handling
 
-        readingsSingleUpdate( $dhash, "lastStatusRequestState", "statusRequest_done", 1 );
+        readingsSingleUpdate( $dhash, 'lastStatusRequestState',
+            'statusRequest_done', 1 );
         $dhash->{helper}{infoErrorCounter} = 0;
     }
-    
-    elsif( $param->{method} eq 'POST' ) {
+
+    elsif ( $param->{method} eq 'POST' ) {
 
         ### Begin Error Handling
-        if( $dhash->{helper}{setCmdErrorCounter} > 2 ) {
-        
-        readingsBeginUpdate( $dhash );
-        readingsBulkUpdate( $dhash, "lastSetCommandState", "statusRequest_error", 1 );
+        if ( $dhash->{helper}{setCmdErrorCounter} > 2 ) {
 
-            if( ReadingsVal( $dname, "flow_Informations", "active" ) eq "inactive" && ReadingsVal( $dname, "flow_SetCommands", "active" ) eq "inactive" ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: CHECK THE LAST ERROR READINGS FOR MORE INFO, DEVICE IS SET OFFLINE";
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'lastSetCommandState',
+                'statusRequest_error', 1 );
 
-                readingsBulkUpdate( $dhash, "deviceState", "offline", 1 );
-                readingsBulkUpdate( $dhash, "state", "AMAD Flows inactive, device set offline", 1 );
+            if ( ReadingsVal( $dname, 'flow_Informations', 'active' ) eq
+                'inactive'
+                && ReadingsVal( $dname, 'flow_SetCommands', 'active' ) eq
+                'inactive' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: CHECK THE LAST ERROR READINGS FOR MORE INFO, DEVICE IS SET OFFLINE"
+                );
+
+                readingsBulkUpdate( $dhash, 'deviceState', 'offline', 1 );
+                readingsBulkUpdate( $dhash, 'state',
+                    'AMAD Flows inactive, device set offline', 1 );
             }
 
-            elsif( $dhash->{helper}{infoErrorCounter} > 7 && $dhash->{helper}{setCmdErrorCounter} > 4 ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: UNKNOWN ERROR, PLEASE CONTACT THE DEVELOPER, DEVICE DISABLED";
-        
+            elsif ($dhash->{helper}{infoErrorCounter} > 7
+                && $dhash->{helper}{setCmdErrorCounter} > 4 )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: UNKNOWN ERROR, PLEASE CONTACT THE DEVELOPER, DEVICE DISABLED"
+                );
+
                 $attr{$dname}{disable} = 1;
-                readingsBulkUpdate( $dhash, "state", "Unknown Error, device disabled", 1 );
-                $dhash->{helper}{infoErrorCounter} = 0;
+                readingsBulkUpdate( $dhash, 'state',
+                    'Unknown Error, device disabled', 1 );
+                $dhash->{helper}{infoErrorCounter}   = 0;
                 $dhash->{helper}{setCmdErrorCounter} = 0;
 
                 return;
             }
 
-            elsif( ReadingsVal( $dname, "flow_SetCommands", "active" ) eq "inactive" ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: Flow SetCommands on your Device is inactive, will try to reactivate";
+            elsif ( ReadingsVal( $dname, 'flow_SetCommands', 'active' ) eq
+                'inactive' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: Flow SetCommands on your Device is inactive, will try to reactivate"
+                );
             }
 
-            elsif( $dhash->{helper}{setCmdErrorCounter} > 9 ) {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: To many Errors please check your Network or Device Configuration, DEVICE IS SET OFFLINE";
-        
-                readingsBulkUpdate( $dhash, "deviceState", "offline", 1 );
-                readingsBulkUpdate( $dhash, "state", "To many Errors, device set offline", 1 );
+            elsif ( $dhash->{helper}{setCmdErrorCounter} > 9 ) {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: To many Errors please check your Network or Device Configuration, DEVICE IS SET OFFLINE"
+                );
+
+                readingsBulkUpdate( $dhash, 'deviceState', 'offline', 1 );
+                readingsBulkUpdate( $dhash, 'state',
+                    'To many Errors, device set offline', 1 );
                 $dhash->{helper}{setCmdErrorCounter} = 0;
             }
 
-            elsif( $dhash->{helper}{setCmdErrorCounter} > 4 && ReadingsVal( $dname, "flow_SetCommands", "active" ) eq "active" ){
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: Please check the AutomagicAPP on your Device";
+            elsif ( $dhash->{helper}{setCmdErrorCounter} > 4
+                && ReadingsVal( $dname, 'flow_SetCommands', 'active' ) eq
+                'active' )
+            {
+
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: Please check the AutomagicAPP on your Device"
+                );
             }
 
             readingsEndUpdate( $dhash, 1 );
         }
-        
-        if( defined( $err ) ) {
-            if( $err ne "" ) {
-                readingsBeginUpdate( $dhash );
-                readingsBulkUpdate( $dhash, "state", $err, 1 ) if( ReadingsVal( $dname, "state", 0 ) ne "initialized" );
-                $dhash->{helper}{setCmdErrorCounter} = ($dhash->{helper}{setCmdErrorCounter} + 1);
-        
-                readingsBulkUpdate( $dhash, "lastSetCommandState", "setCmd_error", 1 );
-        
-                if( $err =~ /timed out/ ) {
 
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: connect to your device is timed out. check network";
+        if ( defined($err) ) {
+            if ( $err ne '' ) {
+                readingsBeginUpdate($dhash);
+                readingsBulkUpdate( $dhash, 'state', $err, 1 )
+                  if ( ReadingsVal( $dname, 'state', 0 ) ne 'initialized' );
+                $dhash->{helper}{setCmdErrorCounter} =
+                  ( $dhash->{helper}{setCmdErrorCounter} + 1 );
+
+                readingsBulkUpdate( $dhash, 'lastSetCommandState',
+                    'setCmd_error', 1 );
+
+                if ( $err =~ /timed out/ ) {
+
+                    Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: connect to your device is timed out. check network"
+                    );
                 }
-        
-                elsif( $err =~ /Keine Route zum Zielrechner/ ) {
 
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: no route to target. bad network configuration or network is down";
+                elsif ( $err =~ /Keine Route zum Zielrechner/ ) {
+
+                    Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: no route to target. bad network configuration or network is down"
+                    );
 
-                } else {
-        
-                    Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: $err";
                 }
-        
+                else {
+
+                    Log3( $dname, 5,
+                        "AMADCommBridge ($dname) - setCommandERROR: $err" );
+                }
+
                 readingsEndUpdate( $dhash, 1 );
 
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: error while POST Command: $err";
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: error while POST Command: $err"
+                );
 
                 return;
             }
         }
-    
-        if( $data eq "" and exists( $param->{code} ) && $param->{code} ne 200 ) {
-        
-            readingsBeginUpdate( $dhash );
-            readingsBulkUpdate( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dhash, "state", 0 ) ne "initialized" );
 
-            $dhash->{helper}{setCmdErrorCounter} = ( $dhash->{helper}{setCmdErrorCounter} + 1 );
+        if ( $data eq '' and exists( $param->{code} ) && $param->{code} ne 200 )
+        {
 
-            readingsBulkUpdate($dhash, "lastSetCommandState", "setCmd_error", 1 );
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'state', $param->{code}, 1 )
+              if ( ReadingsVal( $dhash, 'state', 0 ) ne 'initialized' );
+
+            $dhash->{helper}{setCmdErrorCounter} =
+              ( $dhash->{helper}{setCmdErrorCounter} + 1 );
+
+            readingsBulkUpdate( $dhash, 'lastSetCommandState', 'setCmd_error',
+                1 );
 
             readingsEndUpdate( $dhash, 1 );
-        
-            Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: received http code ".$param->{code};
+
+            Log3( $dname, 5,
+                "AMADCommBridge ($dname) - setCommandERROR: received http code "
+                  . $param->{code} );
 
             return;
         }
-            
-        if( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
-        
-            readingsBeginUpdate( $dhash );
-            readingsBulkUpdate( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dname, "state", 0 ) ne "initialized" );
 
-            $dhash->{helper}{setCmdErrorCounter} = ( $dhash->{helper}{setCmdErrorCounter} + 1 );
+        if ( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
 
-            readingsBulkUpdate( $dhash, "lastSetCommandState", "setCmd_error", 1 );
-        
-            if( $param->{code} eq 404 ) {
-        
-                readingsBulkUpdate( $dhash, "lastSetCommandError", "", 1 );
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: setCommands flow is inactive on your device!";
-        
-            } else {
-        
-                Log3 $dname, 5, "AMADCommBridge ($dname) - setCommandERROR: http error ".$param->{code};
+            readingsBeginUpdate($dhash);
+            readingsBulkUpdate( $dhash, 'state', $param->{code}, 1 )
+              if ( ReadingsVal( $dname, 'state', 0 ) ne 'initialized' );
+
+            $dhash->{helper}{setCmdErrorCounter} =
+              ( $dhash->{helper}{setCmdErrorCounter} + 1 );
+
+            readingsBulkUpdate( $dhash, 'lastSetCommandState', 'setCmd_error',
+                1 );
+
+            if ( $param->{code} eq 404 ) {
+
+                readingsBulkUpdate( $dhash, 'lastSetCommandError', '', 1 );
+                Log3( $dname, 5,
+"AMADCommBridge ($dname) - setCommandERROR: setCommands flow is inactive on your device!"
+                );
+
+            }
+            else {
+
+                Log3( $dname, 5,
+                    "AMADCommBridge ($dname) - setCommandERROR: http error "
+                      . $param->{code} );
             }
 
             return;
         }
-        
+
         ### End Error Handling
-        
-        readingsSingleUpdate( $dhash, "lastSetCommandState", "setCmd_done", 1 );
+
+        readingsSingleUpdate( $dhash, 'lastSetCommandState', 'setCmd_done', 1 );
         $dhash->{helper}{setCmdErrorCounter} = 0;
-        
+
         return undef;
     }
-    
-    
+
 }
 
-sub AMADCommBridge_Open($) {
+sub Open($) {
 
-    my $hash    = shift;
-    my $name    = $hash->{NAME};
-    my $port    = $hash->{PORT};
-    
+    my $hash = shift;
+    my $name = $hash->{NAME};
+    my $port = $hash->{PORT};
+
+    if ( not defined( $hash->{FD} ) and ( !$hash->{FD} ) ) {
 
-    if( not defined($hash->{FD}) and (! $hash->{FD}) ) {
         # Oeffnen des TCP Sockets
-        my $ret = TcpServer_Open( $hash, $port, "global" );
-    
-        if( $ret && !$init_done ) {
-    
-            Log3 $name, 3, "AMADCommBridge ($name) - $ret. Exiting.";
+        my $ret = TcpServer_Open( $hash, $port, 'global' );
+
+        if ( $ret && !$init_done ) {
+
+            Log3( $name, 3, "AMADCommBridge ($name) - $ret. Exiting." );
             exit(1);
         }
-    
-        readingsSingleUpdate ( $hash, "state", "opened", 1 ) if( defined($hash->{FD}) );
-        Log3 $name, 3, "AMADCommBridge ($name) - Socket opened.";
+
+        readingsSingleUpdate( $hash, 'state', 'opened', 1 )
+          if ( defined( $hash->{FD} ) );
+        Log3( $name, 3, "AMADCommBridge ($name) - Socket opened." );
 
         return $ret;
-    
-    } else {
-    
-        Log3 $name, 3, "AMADCommBridge ($name) - Socket already opened";
+
     }
-    
+    else {
+
+        Log3( $name, 3, "AMADCommBridge ($name) - Socket already opened" );
+    }
+
     return;
 }
 
-sub AMADCommBridge_Close($) {
+sub Close($) {
+
+    my $hash = shift;
+
+    my $name = $hash->{NAME};
 
-    my $hash    = shift;
-    
-    my $name    = $hash->{NAME};
-    
     delete $modules{AMADCommBridge}{defptr}{BRIDGE};
-    TcpServer_Close( $hash );
-    
-    if( not defined($hash->{FD}) ) {
-        readingsSingleUpdate ( $hash, "state", "closed", 1 );
-        Log3 $name, 3, "AMADCommBridge ($name) - Socket closed.";
-        
-    } else {
-        Log3 $name, 3, "AMADCommBridge ($name) - can't close Socket.";
+    TcpServer_Close($hash);
+
+    if ( not defined( $hash->{FD} ) ) {
+        readingsSingleUpdate( $hash, 'state', 'closed', 1 );
+        Log3( $name, 3, "AMADCommBridge ($name) - Socket closed." );
+
     }
-    
+    else {
+        Log3( $name, 3, "AMADCommBridge ($name) - can't close Socket." );
+    }
+
     return;
 }
 
-sub AMADCommBridge_Read($) {
+sub Read($) {
 
-    my $hash    = shift;
-    my $name    = $hash->{NAME};
+    my $hash = shift;
+    my $name = $hash->{NAME};
 
-
-    if( $hash->{SERVERSOCKET} ) {               # Accept and create a child
-        TcpServer_Accept( $hash, "AMADCommBridge" );
+    if ( $hash->{SERVERSOCKET} ) {    # Accept and create a child
+        TcpServer_Accept( $hash, 'AMADCommBridge' );
         return;
     }
 
     # Read 1024 byte of data
     my $buf;
-    my $ret = sysread($hash->{CD}, $buf, 2048);
-
+    my $ret = sysread( $hash->{CD}, $buf, 2048 );
 
     # When there is an error in connection return
-    if( !defined($ret ) or $ret <= 0 ) {
+    if ( !defined($ret) or $ret <= 0 ) {
         CommandDelete( undef, $name );
-        Log3 $name, 5, "AMADCommBridge ($name) - Connection closed for $name";
+        Log3( $name, 5,
+            "AMADCommBridge ($name) - Connection closed for $name" );
         return;
     }
-    
-    AMADCommBridge_ProcessRead($hash,$buf);
+
+    ProcessRead( $hash, $buf );
 }
 
-sub AMADCommBridge_ProcessRead($$) {
+sub ProcessRead($$) {
+
+    my ( $hash, $buf ) = @_;
+    my $name = $hash->{NAME};
+
+    my @data   = split( '\R\R', $buf );
+    my $data   = $data[0];
+    my $json   = $data[1];
+    my $buffer = '';
+
+    Log3( $name, 4, "AMADCommBridge ($name) - process read" );
 
-    my ($hash, $buf)    = @_;
-    my $name            = $hash->{NAME};
-    
-    my @data            = split( '\R\R', $buf );
-    my $data            = $data[0];
-    my $json            = $data[1];
-    my $buffer          = '';
-    
-    
-    
-    
-    Log3 $name, 4, "AMADCommBridge ($name) - process read";
-    
-    
     my $response;
     my $c;
-    
+
     my $fhempath = $attr{global}{modpath};
-    
+
     if ( $data =~ /currentFlowsetUpdate.xml/ ) {
 
-        $response = qx(cat $fhempath/FHEM/lib/74_AMADautomagicFlowset_$flowsetversion.xml);
+        $response =
+qx(cat $fhempath/FHEM/lib/74_AMADautomagicFlowset_$flowsetversion.xml);
         $c = $hash->{CD};
         print $c "HTTP/1.1 200 OK\r\n",
-            "Content-Type: text/plain\r\n",
-            "Connection: close\r\n",
-            "Content-Length: ".length($response)."\r\n\r\n",
-            $response;
+          "Content-Type: text/plain\r\n",
+          "Connection: close\r\n",
+          "Content-Length: " . length($response) . "\r\n\r\n",
+          $response;
 
         return;
-        
-    } elsif( $data =~ /currentTaskersetUpdate.prj.xml/ ) {
-    
-        $response = qx(cat $fhempath/FHEM/lib/74_AMADtaskerset_$flowsetversion.prj.xml);
+
+    }
+    elsif ( $data =~ /currentTaskersetUpdate.prj.xml/ ) {
+
+        $response =
+          qx(cat $fhempath/FHEM/lib/74_AMADtaskerset_$flowsetversion.prj.xml);
         $c = $hash->{CD};
         print $c "HTTP/1.1 200 OK\r\n",
-            "Content-Type: text/plain\r\n",
-            "Connection: close\r\n",
-            "Content-Length: ".length($response)."\r\n\r\n",
-            $response;
+          "Content-Type: text/plain\r\n",
+          "Connection: close\r\n",
+          "Content-Length: " . length($response) . "\r\n\r\n",
+          $response;
 
         return;
-    
-    } elsif ( $data =~ /installFlow_([^.]*.xml)/ ) {
 
-        if( defined($1) ){
+    }
+    elsif ( $data =~ /installFlow_([^.]*.xml)/ ) {
+
+        if ( defined($1) ) {
             $response = qx(cat /tmp/$1);
-            $c = $hash->{CD};
+            $c        = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
 
             return;
         }
     }
 
+    if ( defined( $hash->{PARTIAL} ) and $hash->{PARTIAL} ) {
 
-    if(defined($hash->{PARTIAL}) and $hash->{PARTIAL}) {
-    
-        Log3 $name, 5, "AMADCommBridge ($name) - PARTIAL: " . $hash->{PARTIAL};
+        Log3( $name, 5,
+            "AMADCommBridge ($name) - PARTIAL: " . $hash->{PARTIAL} );
         $buffer = $hash->{PARTIAL};
-        
-    } else {
-    
-        Log3 $name, 4, "AMADCommBridge ($name) - No PARTIAL buffer";
+
+    }
+    else {
+
+        Log3( $name, 4, "AMADCommBridge ($name) - No PARTIAL buffer" );
     }
 
-    Log3 $name, 5, "AMADCommBridge ($name) - Incoming data: " . $json;
+    Log3( $name, 5, "AMADCommBridge ($name) - Incoming data: " . $json );
 
     $buffer = $buffer . $json;
-    Log3 $name, 4, "AMADCommBridge ($name) - Current processing buffer (PARTIAL + incoming data): " . $buffer;
+    Log3( $name, 4,
+"AMADCommBridge ($name) - Current processing buffer (PARTIAL + incoming data): "
+          . $buffer );
 
-    my ($correct_json,$tail) = AMADCommBridge_ParseMsg($hash, $buffer);
+    my ( $correct_json, $tail ) = ParseMsg( $hash, $buffer );
 
+    while ($correct_json) {
 
-    while($correct_json) {
-    
         $hash->{LAST_RECV} = time();
-        
-        Log3 $name, 5, "AMADCommBridge ($name) - Decoding JSON message. Length: " . length($correct_json) . " Content: " . $correct_json;
-        Log3 $name, 5, "AMADCommBridge ($name) - Vor Sub: Laenge JSON: " . length($correct_json) . " Content: " . $correct_json . " Tail: " . $tail;
-        
-        AMADCommBridge_ResponseProcessing($hash,$correct_json)
-        unless(not defined($tail) and not ($tail));
-        
-        ($correct_json,$tail) = AMADCommBridge_ParseMsg($hash, $tail);
-        
-        Log3 $name, 5, "AMADCommBridge ($name) - Nach Sub: Laenge JSON: " . length($correct_json) . " Content: " . $correct_json . " Tail: " . $tail;
+
+        Log3( $name, 5,
+                "AMADCommBridge ($name) - Decoding JSON message. Length: "
+              . length($correct_json)
+              . " Content: "
+              . $correct_json );
+        Log3( $name, 5,
+                "AMADCommBridge ($name) - Vor Sub: Laenge JSON: "
+              . length($correct_json)
+              . " Content: "
+              . $correct_json
+              . " Tail: "
+              . $tail );
+
+        ResponseProcessing( $hash, $correct_json )
+          unless ( not defined($tail) and not($tail) );
+
+        ( $correct_json, $tail ) = ParseMsg( $hash, $tail );
+
+        Log3( $name, 5,
+                "AMADCommBridge ($name) - Nach Sub: Laenge JSON: "
+              . length($correct_json)
+              . " Content: "
+              . $correct_json
+              . " Tail: "
+              . $tail );
     }
 
-
     $hash->{PARTIAL} = $tail;
-    Log3 $name, 4, "AMADCommBridge ($name) - PARTIAL lenght: " . length($tail);
-    
-    
-    Log3 $name, 5, "AMADCommBridge ($name) - Tail: " . $tail;
-    Log3 $name, 5, "AMADCommBridge ($name) - PARTIAL: " . $hash->{PARTIAL};
-    
+    Log3( $name, 4,
+        "AMADCommBridge ($name) - PARTIAL lenght: " . length($tail) );
+
+    Log3( $name, 5, "AMADCommBridge ($name) - Tail: " . $tail );
+    Log3( $name, 5, "AMADCommBridge ($name) - PARTIAL: " . $hash->{PARTIAL} );
+
 }
 
-sub AMADCommBridge_ResponseProcessing($$) {
+sub ResponseProcessing($$) {
+
+    my ( $hash, $json ) = @_;
+
+    my $name  = $hash->{NAME};
+    my $bhash = $modules{AMADCommBridge}{defptr}{BRIDGE};
+    my $bname = $bhash->{NAME};
 
-    my ($hash,$json)     = @_;
-    
-    my $name        = $hash->{NAME};
-    my $bhash       = $modules{AMADCommBridge}{defptr}{BRIDGE};
-    my $bname       = $bhash->{NAME};
-    
-    
-    
-    
     #### Verarbeitung der Daten welche über die AMADCommBridge kommen ####
-    
-    Log3 $bname, 4, "AMADCommBridge ($name) - Receive RAW Message in Debugging Mode: $json";
 
+    Log3( $bname, 4,
+        "AMADCommBridge ($name) - Receive RAW Message in Debugging Mode: $json"
+    );
 
     my $response;
     my $c;
 
+    my $decode_json = eval { decode_json($json) };
+    if ($@) {
+        Log3( $bname, 4,
+            "AMADCommBridge ($name) - JSON error while request: $@" );
 
-    my $decode_json =   eval{decode_json($json)};
-    if($@){
-        Log3 $bname, 4, "AMADCommBridge ($name) - JSON error while request: $@";
-        
-        if( AttrVal( $bname, 'debugJSON', 0 ) == 1 ) {
+        if ( AttrVal( $bname, 'debugJSON', 0 ) == 1 ) {
             readingsBeginUpdate($bhash);
-            readingsBulkUpdate($bhash, 'JSON_ERROR', $@, 1);
-            readingsBulkUpdate($bhash, 'JSON_ERROR_STRING', $json, 1);
-            readingsEndUpdate($bhash, 1);
+            readingsBulkUpdate( $bhash, 'JSON_ERROR',        $@,    1 );
+            readingsBulkUpdate( $bhash, 'JSON_ERROR_STRING', $json, 1 );
+            readingsEndUpdate( $bhash, 1 );
         }
-        
-        $response = "header lines: \r\n AMADCommBridge receive a JSON error\r\n AMADCommBridge to do nothing\r\n";
+
+        $response =
+"header lines: \r\n AMADCommBridge receive a JSON error\r\n AMADCommBridge to do nothing\r\n";
         $c = $hash->{CD};
         print $c "HTTP/1.1 200 OK\r\n",
-            "Content-Type: text/plain\r\n",
-            "Connection: close\r\n",
-            "Content-Length: ".length($response)."\r\n\r\n",
-            $response;
+          "Content-Type: text/plain\r\n",
+          "Connection: close\r\n",
+          "Content-Length: " . length($response) . "\r\n\r\n",
+          $response;
         return;
     }
 
-    my $amad_id     = $decode_json->{amad}{amad_id};
-    my $fhemcmd     = $decode_json->{amad}{fhemcmd};
+    my $amad_id = $decode_json->{amad}{amad_id};
+    my $fhemcmd = $decode_json->{amad}{fhemcmd};
     my $fhemDevice;
-    
-    if( defined($decode_json->{firstrun}) and ($decode_json->{firstrun}) ) {
-    
-        $fhemDevice  = $decode_json->{firstrun}{fhemdevice} if( defined($decode_json->{firstrun}{fhemdevice}) );
-        
-    } else {
-    
-        $fhemDevice  = $modules{AMADDevice}{defptr}{$amad_id}->{NAME};
+
+    if ( defined( $decode_json->{firstrun} ) and ( $decode_json->{firstrun} ) )
+    {
+
+        $fhemDevice = $decode_json->{firstrun}{fhemdevice}
+          if ( defined( $decode_json->{firstrun}{fhemdevice} ) );
+
+    }
+    else {
+
+        $fhemDevice = $modules{AMADDevice}{defptr}{$amad_id}->{NAME};
     }
 
+    if ( !defined($amad_id) or !defined($fhemDevice) ) {
+        readingsSingleUpdate( $bhash, 'transmitterERROR',
+            $hash->{NAME} . ' has no correct amad_id', 1 );
+        Log3( $bname, 4,
+"AMADCommBridge ($name) - ERROR - no device name given. please check your global variable amad_id in automagic"
+        );
 
-
-
-    if( !defined($amad_id) or !defined($fhemDevice) ) {
-        readingsSingleUpdate( $bhash, "transmitterERROR", $hash->{NAME}." has no correct amad_id", 1 );
-        Log3 $bname, 4, "AMADCommBridge ($name) - ERROR - no device name given. please check your global variable amad_id in automagic";
-        
-        $response = "header lines: \r\n AMADCommBridge receive no device name. please check your global variable amad_id in automagic\r\n FHEM to do nothing\r\n";
+        $response =
+"header lines: \r\n AMADCommBridge receive no device name. please check your global variable amad_id in automagic\r\n FHEM to do nothing\r\n";
         $c = $hash->{CD};
         print $c "HTTP/1.1 200 OK\r\n",
-            "Content-Type: text/plain\r\n",
-            "Connection: close\r\n",
-            "Content-Length: ".length($response)."\r\n\r\n",
-            $response;
-        
+          "Content-Type: text/plain\r\n",
+          "Connection: close\r\n",
+          "Content-Length: " . length($response) . "\r\n\r\n",
+          $response;
+
         return;
     }
 
-    
-    if( defined($fhemcmd) and ($fhemcmd) ) {
+    if ( defined($fhemcmd) and ($fhemcmd) ) {
         if ( $fhemcmd eq 'setreading' ) {
-            return Log3 $bname, 3, "AMADCommBridge ($name) - AMADCommBridge: processing receive no reading values from Device: $fhemDevice"
-            unless( (defined($decode_json->{payload}) and ($decode_json->{payload})) or (defined($decode_json->{firstrun}) and ($decode_json->{firstrun})) );
-            
-            Log3 $bname, 4, "AMADCommBridge ($bname) - AMADCommBridge: processing receive reading values - Device: $fhemDevice Data: $decode_json->{payload}"
-            if( defined($decode_json->{payload}) and ($decode_json->{payload}) );
+            return Log3( $bname, 3,
+"AMADCommBridge ($name) - AMADCommBridge: processing receive no reading values from Device: $fhemDevice"
+              )
+              unless (
+                (
+                    defined( $decode_json->{payload} )
+                    and ( $decode_json->{payload} )
+                )
+                or ( defined( $decode_json->{firstrun} )
+                    and ( $decode_json->{firstrun} ) )
+              );
 
-            Dispatch($bhash,$json,undef);
-            Log3 $bname, 4, "AMADCommBridge ($bname) - call Dispatcher";
-            readingsSingleUpdate($bhash,'fhemServerIP',$decode_json->{firstrun}{'fhemserverip'},1) if( defined($decode_json->{firstrun}{'fhemserverip'}));
-        
-            $response = "header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM was processes\r\n";
+            Log3( $bname, 4,
+"AMADCommBridge ($bname) - AMADCommBridge: processing receive reading values - Device: $fhemDevice Data: $decode_json->{payload}"
+              )
+              if ( defined( $decode_json->{payload} )
+                and ( $decode_json->{payload} ) );
+
+            Dispatch( $bhash, $json, undef );
+            Log3( $bname, 4, "AMADCommBridge ($bname) - call Dispatcher" );
+            readingsSingleUpdate( $bhash, 'fhemServerIP',
+                $decode_json->{firstrun}{'fhemserverip'}, 1 )
+              if ( defined( $decode_json->{firstrun}{'fhemserverip'} ) );
+
+            $response =
+"header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM was processes\r\n";
             $c = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
 
             return;
         }
 
         elsif ( $fhemcmd eq 'set' ) {
-            my $fhemCmd = encode_utf8($decode_json->{payload}{setcmd});
-            AnalyzeCommandChain($bhash, 'set '.$fhemCmd) if( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'setControl' );
-            readingsSingleUpdate( $bhash, "receiveFhemCommand", "set ".$fhemCmd, 1 ) if( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'trigger' );
-            Log3 $bname, 4, "AMADCommBridge ($name) - AMADCommBridge_CommBridge: set reading receive fhem command";
+            my $fhemCmd = encode_utf8( $decode_json->{payload}{setcmd} );
+            AnalyzeCommandChain( $bhash, 'set ' . $fhemCmd )
+              if ( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq
+                'setControl' );
+            readingsSingleUpdate( $bhash, 'receiveFhemCommand',
+                'set ' . $fhemCmd, 1 )
+              if (
+                AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'trigger' );
+            Log3( $bname, 4,
+"AMADCommBridge ($name) - CommBridge: set reading receive fhem command"
+            );
 
-            $response = "header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM response\r\n";
+            $response =
+"header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM response\r\n";
             $c = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
 
             return;
         }
-    
+
         elsif ( $fhemcmd eq 'voiceinputvalue' ) {
-            my $fhemCmd = lc(encode_utf8($decode_json->{payload}{voiceinputdata}));
-        
-            readingsBeginUpdate( $bhash);
-            readingsBulkUpdate( $bhash, "receiveVoiceCommand", $fhemCmd, 1 );
-            readingsBulkUpdate( $bhash, "receiveVoiceDevice", $fhemDevice, 1 );
-            readingsEndUpdate( $bhash, 1 );
-            Log3 $bname, 4, "AMADCommBridge ($name) - AMADCommBridge_CommBridge: set reading receive voice command: $fhemCmd from Device $fhemDevice";
+            my $fhemCmd =
+              lc( encode_utf8( $decode_json->{payload}{voiceinputdata} ) );
 
-            $response = "header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM was processes\r\n";
+            readingsBeginUpdate($bhash);
+            readingsBulkUpdate( $bhash, 'receiveVoiceCommand', $fhemCmd,    1 );
+            readingsBulkUpdate( $bhash, 'receiveVoiceDevice',  $fhemDevice, 1 );
+            readingsEndUpdate( $bhash, 1 );
+            Log3( $bname, 4,
+"AMADCommBridge ($name) - CommBridge: set reading receive voice command: $fhemCmd from Device $fhemDevice"
+            );
+
+            $response =
+"header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM was processes\r\n";
             $c = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
-            
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
+
             return;
         }
-    
+
         elsif ( $fhemcmd eq 'readingsval' ) {
             my $fhemCmd = $decode_json->{payload}{readingsvalcmd};
             my @datavalue = split( ' ', $fhemCmd );
 
-            $response = ReadingsVal($datavalue[0],$datavalue[1],$datavalue[2]);
+            $response =
+              ReadingsVal( $datavalue[0], $datavalue[1], $datavalue[2] );
             $c = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
 
             return;
         }
 
         elsif ( $fhemcmd eq 'fhemfunc' ) {
             my $fhemCmd = $decode_json->{payload}{fhemsub};
- 
-            Log3 $bname, 4, "AMADCommBridge ($name) - AMADCommBridge_CommBridge: receive fhem-function command";
- 
-            if( AttrVal( $bname, 'enableSubCalls', 0 ) == 1 ) {
 
-                #$response = AnalyzeCommand($bhash, '{'.$fhemCmd.'}');
-                $response = AnalyzePerlCommand($bhash, '{'.$fhemCmd.'}');   # AnalyzePerlCommand is new https://forum.fhem.de/index.php/topic,89619.msg820964.html#msg820964
-                    
-            } else {
-            
-                $response = "header lines: \r\n Attribut enableSubCalls is not set or value is 0\r\n FHEM to do nothing\r\n";
-                Log3 $bname, 3, "AMADCommBridge ($name) - Attribut enableSubCalls is not set or value is 0, FHEM to do nothing";
+            Log3( $bname, 4,
+"AMADCommBridge ($name) - CommBridge: receive fhem-function command"
+            );
+
+            if ( AttrVal( $bname, 'enableSubCalls', 0 ) == 1 ) {
+
+                $response = AnalyzePerlCommand( $bhash, '{' . $fhemCmd . '}' )
+                  ; # AnalyzePerlCommand is new https://forum.fhem.de/index.php/topic,89619.msg820964.html#msg820964
+
             }
- 
+            else {
+
+                $response =
+"header lines: \r\n Attribut enableSubCalls is not set or value is 0\r\n FHEM to do nothing\r\n";
+                Log3 $bname, 3,
+"AMADCommBridge ($name) - Attribut enableSubCalls is not set or value is 0, FHEM to do nothing";
+            }
+
             $c = $hash->{CD};
             print $c "HTTP/1.1 200 OK\r\n",
-                "Content-Type: text/plain\r\n",
-                "Connection: close\r\n",
-                "Content-Length: ".length($response)."\r\n\r\n",
-                $response;
- 
+              "Content-Type: text/plain\r\n",
+              "Connection: close\r\n",
+              "Content-Length: " . length($response) . "\r\n\r\n",
+              $response;
+
             return;
-         }
+        }
     }
 
-
-
-    $response = "header lines: \r\n AMADCommBridge receive incomplete or corrupt Data\r\n FHEM to do nothing\r\n";
+    $response =
+"header lines: \r\n AMADCommBridge receive incomplete or corrupt Data\r\n FHEM to do nothing\r\n";
     $c = $hash->{CD};
     print $c "HTTP/1.1 200 OK\r\n",
-        "Content-Type: text/plain\r\n",
-        "Connection: close\r\n",
-        "Content-Length: ".length($response)."\r\n\r\n",
-        $response;
+      "Content-Type: text/plain\r\n",
+      "Connection: close\r\n",
+      "Content-Length: " . length($response) . "\r\n\r\n",
+      $response;
 }
 
-
 ##################
 ### my little helper
 ##################
 
-sub AMADCommBridge_ParseMsg($$) {
+sub ParseMsg($$) {
 
-    my ($hash, $buffer) = @_;
-    
-    my $name = $hash->{NAME};
-    my $open = 0;
+    my ( $hash, $buffer ) = @_;
+
+    my $name  = $hash->{NAME};
+    my $open  = 0;
     my $close = 0;
-    my $msg = '';
-    my $tail = '';
-    
-    
-    if($buffer) {
-        foreach my $c (split //, $buffer) {
-            if($open == $close && $open > 0) {
+    my $msg   = '';
+    my $tail  = '';
+
+    if ($buffer) {
+        foreach my $c ( split //, $buffer ) {
+            if ( $open == $close && $open > 0 ) {
                 $tail .= $c;
-                Log3 $name, 5, "AMADCommBridge ($name) - $open == $close && $open > 0";
-                
-            } elsif(($open == $close) && ($c ne '{')) {
-            
-                Log3 $name, 5, "AMADCommBridge ($name) - Garbage character before message: " . $c;
-        
-            } else {
-      
-                if($c eq '{') {
+                Log3( $name, 5,
+                    "AMADCommBridge ($name) - $open == $close && $open > 0" );
+
+            }
+            elsif ( ( $open == $close ) && ( $c ne '{' ) ) {
+
+                Log3( $name, 5,
+"AMADCommBridge ($name) - Garbage character before message: "
+                      . $c );
+
+            }
+            else {
+
+                if ( $c eq '{' ) {
 
                     $open++;
-                
-                } elsif($c eq '}') {
-                
+
+                }
+                elsif ( $c eq '}' ) {
+
                     $close++;
                 }
-                
+
                 $msg .= $c;
             }
         }
-        
-        if($open != $close) {
-    
+
+        if ( $open != $close ) {
+
             $tail = $msg;
-            $msg = '';
+            $msg  = '';
         }
     }
-    
-    Log3 $name, 5, "AMADCommBridge ($name) - return msg: $msg and tail: $tail";
-    return ($msg,$tail);
+
+    Log3( $name, 5,
+        "AMADCommBridge ($name) - return msg: $msg and tail: $tail" );
+    return ( $msg, $tail );
 }
 
 ##### bleibt zu Anschauungszwecken erhalten
-#sub AMADCommBridge_Header2Hash($) {
+#sub Header2Hash($) {
 #
 #    my $string  = shift;
 #    my %hash    = ();
@@ -997,19 +1216,11 @@ sub AMADCommBridge_ParseMsg($$) {
 #
 #        $value =~ s/^ //;
 #        $hash{$key} = $value;
-#    }     
-#        
+#    }
+#
 #    return \%hash;
 #}
 
-
-
-
-
-
-
-
-
 1;
 
 =pod
@@ -1162,4 +1373,52 @@ sub AMADCommBridge_ParseMsg($$) {
 </ul>
 
 =end html_DE
+
+=for :application/json;q=META.json 73_AMADCommBridge.pm
+{
+  "abstract": "Integrates Android devices into FHEM and displays several settings",
+  "x_lang": {
+    "de": {
+      "abstract": "Integriert Android-Geräte in FHEM und zeigt verschiedene Einstellungen an"
+    }
+  },
+  "keywords": [
+    "fhem-mod-device",
+    "fhem-core",
+    "Android",
+    "Tablet",
+    "Handy",
+    "AMAD"
+  ],
+  "release_status": "stable",
+  "license": "GPL_2",
+  "author": [
+    "Marko Oldenburg <leongaultier@gmail.com>"
+  ],
+  "x_fhem_maintainer": [
+    "CoolTux"
+  ],
+  "x_fhem_maintainer_github": [
+    "LeonGaultier"
+  ],
+  "prereqs": {
+    "runtime": {
+      "requires": {
+        "FHEM": 5.00918799,
+        "perl": 5.016, 
+        "Meta": 0,
+        "Encode": 0,
+        "JSON": 0,
+        "HttpUtils": 0,
+        "TcpServerUtils": 0
+      },
+      "recommends": {
+      },
+      "suggests": {
+      }
+    }
+  }
+}
+=end :application/json;q=META.json
+
 =cut

From 63c055bea46b1ad0e7770dc0279467840a964123 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Mar 2019 21:23:38 +0100
Subject: [PATCH 5/7] fix FHEM crash

---
 73_AMADCommBridge.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index d5d8be0..c9d8fa0 100755
--- a/73_AMADCommBridge.pm
+++ b/73_AMADCommBridge.pm
@@ -130,11 +130,13 @@ BEGIN {
           modules
           Log3
           CommandAttr
+          CommandDelete
           attr
           AttrVal
           ReadingsVal
           init_done
           urlEncode
+          Dispatch
           HttpUtils_NonblockingGet
           TcpServer_Open
           TcpServer_Close

From 124a0bdee53316a24d1bf1a087f405c4c22a9221 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Mar 2019 21:56:32 +0100
Subject: [PATCH 6/7] fix more FHEM chrash's

---
 73_AMADCommBridge.pm | 1 +
 74_AMADDevice.pm     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index c9d8fa0..fe36acb 100755
--- a/73_AMADCommBridge.pm
+++ b/73_AMADCommBridge.pm
@@ -131,6 +131,7 @@ BEGIN {
           Log3
           CommandAttr
           CommandDelete
+          CommandSet
           attr
           AttrVal
           ReadingsVal
diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index 8cb5529..ffc3c7c 100755
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -142,6 +142,7 @@ BEGIN {
           deviceEvents
           init_done
           gettimeofday
+          getUniqueId
           InternalTimer
           RemoveInternalTimer
           IOWrite

From 8fe6bc5a0a420042fb7f7e5b26b0470c72a11f36 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Mar 2019 23:25:32 +0100
Subject: [PATCH 7/7] add Attribut fhemServerIp

---
 73_AMADCommBridge.pm | 14 +++++++-------
 74_AMADDevice.pm     | 14 ++++++++++----
 2 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index fe36acb..7808131 100755
--- a/73_AMADCommBridge.pm
+++ b/73_AMADCommBridge.pm
@@ -89,6 +89,7 @@ sub AMADCommBridge_Initialize($) {
       . 'enableSubCalls:0,1 '
       . 'disable:1 '
       . 'allowfrom '
+      . 'fhemServerIP '
       . $readingFnAttributes;
 
     foreach my $d ( sort keys %{ $modules{AMADCommBridge}{defptr} } ) {
@@ -189,10 +190,10 @@ sub Undef($$) {
 
     my ( $hash, $arg ) = @_;
 
+    TcpServer_Close($hash);
     delete $modules{AMADCommBridge}{defptr}{BRIDGE}
       if ( defined( $modules{AMADCommBridge}{defptr}{BRIDGE} )
         and $hash->{BRIDGE} );
-    TcpServer_Close($hash);
 
     return undef;
 }
@@ -732,8 +733,8 @@ sub ErrorHandling($$$) {
 }
 
 sub Open($) {
-
     my $hash = shift;
+
     my $name = $hash->{NAME};
     my $port = $hash->{PORT};
 
@@ -753,7 +754,6 @@ sub Open($) {
         Log3( $name, 3, "AMADCommBridge ($name) - Socket opened." );
 
         return $ret;
-
     }
     else {
 
@@ -764,12 +764,10 @@ sub Open($) {
 }
 
 sub Close($) {
-
     my $hash = shift;
 
     my $name = $hash->{NAME};
 
-    delete $modules{AMADCommBridge}{defptr}{BRIDGE};
     TcpServer_Close($hash);
 
     if ( not defined( $hash->{FD} ) ) {
@@ -1027,8 +1025,10 @@ sub ResponseProcessing($$) {
 
             Dispatch( $bhash, $json, undef );
             Log3( $bname, 4, "AMADCommBridge ($bname) - call Dispatcher" );
-            readingsSingleUpdate( $bhash, 'fhemServerIP',
-                $decode_json->{firstrun}{'fhemserverip'}, 1 )
+            CommandAttr( undef,
+                    $bname
+                  . ' fhemServerIP '
+                  . $decode_json->{firstrun}{'fhemserverip'} )
               if ( defined( $decode_json->{firstrun}{'fhemserverip'} ) );
 
             $response =
diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index ffc3c7c..5a69d54 100755
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -114,6 +114,8 @@ use warnings;
 use POSIX;
 use FHEM::Meta;
 
+use Data::Dumper;    #only for Debugging
+
 use GPUtils qw(GP_Import)
   ;    # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
 
@@ -236,6 +238,8 @@ sub Define($$) {
 "AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}"
     );
 
+    $hash->{NOTIFYDEV} .= ',' . $iodev
+      if ( defined($iodev) );
     $modules{AMADDevice}{defptr}{$amad_id} = $hash;
 
     return undef;
@@ -380,9 +384,11 @@ sub Notify($$) {
             @{$events}
             or grep /^ATTR.$name.setUserFlowState.*/,
             @{$events}
+            or grep /^ATTR.$hash->{IODev}->{NAME}.fhemServerIP.*/,
+            @{$events}
         )
-        and $init_done
         and $devname eq 'global'
+        and $init_done
       );
 
     GetUpdate($hash)
@@ -426,8 +432,8 @@ sub GetUpdate($) {
         $init_done
         and (  ReadingsVal( $name, 'deviceState', 'unknown' ) eq 'unknown'
             or ReadingsVal( $name, 'deviceState', 'online' ) eq 'online' )
-        and AttrVal( $name, 'disable', 0 ) ne 1
-        and ReadingsVal( $bname, 'fhemServerIP', 'not set' ) ne 'not set'
+        and AttrVal( $name,  'disable',      0 ) ne 1
+        and AttrVal( $bname, 'fhemServerIP', 'not set' ) ne 'not set'
       )
     {
 
@@ -461,7 +467,7 @@ sub statusRequest($) {
     my $activetask    = AttrVal( $name, 'checkActiveTask',  'none' );
     my $userFlowState = AttrVal( $name, 'setUserFlowState', 'none' );
     my $apssid        = AttrVal( $name, 'setAPSSID',        'none' );
-    my $fhemip = ReadingsVal( $hash->{IODev}->{NAME}, 'fhemServerIP', 'none' );
+    my $fhemip = AttrVal( $hash->{IODev}->{NAME}, 'fhemServerIP', 'none' );
     my $fhemCtlMode =
       AttrVal( $hash->{IODev}->{NAME}, 'fhemControlMode', 'none' );
     my $bport = $hash->{IODev}->{PORT};