add new function getHomemode

73_AutoShuttersControl.pm

@@ -2151,7 +2151,10 @@ sub EventProcessingShadingBrightness {
     my $name = $hash->{NAME};
     $shutters->setShuttersDev($shuttersDev);
     my $reading = $shutters->getBrightnessReading;
-    my $outTemp = ( $shutters->getOutTemp != -100 ? $shutters->getOutTemp : $ascDev->getOutTemp );
+    my $outTemp =
+      (   $shutters->getOutTemp != -100
+        ? $shutters->getOutTemp
+        : $ascDev->getOutTemp );
 
     Log3( $name, 4,
         "AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness"
@@ -2776,7 +2779,9 @@ sub EventProcessingExternalTriggerDevice {
         $shutters->setLastDrive('external trigger device inactive');
         $shutters->setNoDelay(1);
         $shutters->setExternalTriggerState(1);
-        ShuttersCommandSet( $hash, $shuttersDev,
+        ShuttersCommandSet(
+            $hash,
+            $shuttersDev,
             (
                   $shutters->getIsDay
                 ? $triggerPosInactive
@@ -5002,6 +5007,15 @@ sub setAdvDelay {
     return;
 }
 
+sub getHomemode {
+    my $self = shift;
+
+    my $homemode = $shutters->getRoommatesStatus;
+    $homemode = $ascDev->getResidentsStatus
+      if ( $homemode eq 'none' );
+    return $homemode;
+}
+
 sub getAdvDelay {
     my $self = shift;
 
@@ -8440,7 +8454,7 @@ sub getBlockAscDrivesAfterManual {
   ],
   "release_status": "testing",
   "license": "GPL_2",
-  "version": "v0.8.30",
+  "version": "v0.8.31",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],