Merge apple

inter/tha/hardware/exhaust_fan_schedule.ev

@@ -18,11 +18,23 @@ DEBUGVAR ExhaustFanMode3
 DEBUGVAR AirTemperature
 DEBUGVAR AirHumidity
 
+DEBUGVAR ExhaustFanTime1Hour
+If ExhaustFanAuto = "2" Then
+    If SystemTimeHourInt > ExhaustFanTime1Hour Then
+        SAVELOG " Exhaust Fan mode 2 come back to mode auto1 "
+        __CMD "CLI" "set-fan-mode=Fan_Auto" "-" "-"
+    EndIf
+    If SystemTimeHourInt = 4 Then
+        SAVELOG " Exhaust Fan mode 2 come back to mode auto2 "
+        __CMD "CLI" "set-fan-mode=Fan_Auto" "-" "-"
+    EndIf
+EndIf
+
 If ExhaustFanAuto = "" Then
     Var ExhaustFanAuto = "1"
 EndIf
 
-DEBUGVAR ExhaustFanAuto 
+DEBUGVAR ExhaustFanAuto
 If ExhaustFanAuto = "0" Then
     SAVELOG "ExhaustFan Override from server"
     Var PreviseTime1ToTime2 = ""
@@ -42,13 +54,13 @@ If ExhaustFanAuto = "1" Then
     EndIf
 
     DEBUGVAR CurrentTime1ToTime2
-    DEBUGVAR PreviseTime1ToTime2 
+    DEBUGVAR PreviseTime1ToTime2
     If PreviseTime1ToTime2 = CurrentTime1ToTime2 Then
-        
+
     Else
         Var PreviseTime1ToTime2 = CurrentTime1ToTime2
         If CurrentTime1ToTime2 = "true" Then
-            Var fan_mode_str_final = fan_mode_str + ExhaustFanMode1 
+            Var fan_mode_str_final = fan_mode_str + ExhaustFanMode1
             __CMD "CLI" fan_mode_str_final "-" "-"
         EndIf
     EndIf
@@ -67,10 +79,10 @@ If ExhaustFanAuto = "1" Then
         EndIf
 
         DEBUGVAR CurrentTime2ToTime3
-        DEBUGVAR PreviseTime2ToTime3 
+        DEBUGVAR PreviseTime2ToTime3
 
         If PreviseTime2ToTime3 = CurrentTime2ToTime3 Then
-        
+
         Else
             Var PreviseTime2ToTime3 = CurrentTime2ToTime3
             If CurrentTime2ToTime3 = "true" Then