taobin_project/inter/tha/hardware/exhaust_fan_schedule.ev

;DEBUGVAR ExhaustFanTime1Enable
;DEBUGVAR ExhaustFanTime1Hour
;DEBUGVAR ExhaustFanTime1Min
;
;DEBUGVAR ExhaustFanTime2Enable
;DEBUGVAR ExhaustFanTime2Hour
;DEBUGVAR ExhaustFanTime2Min
;
;DEBUGVAR ExhaustFanTime3Enable
;DEBUGVAR ExhaustFanTime3Hour
;DEBUGVAR ExhaustFanTime3Min

DEBUGVAR ExhaustFanMode1
DEBUGVAR ExhaustFanMode2
DEBUGVAR ExhaustFanMode3

DEBUGVAR AirTemperature
DEBUGVAR AirHumidity

DEBUGVAR ExhaustFanTime1Hour
If ExhaustFanAuto = "2" Then
    If SystemTimeHourInt = 4 Then
        SAVELOG " Exhaust Fan mode 2 come back to mode auto2 "
        __CMD "CLI" "set-fan-mode=Fan_Auto" "-" "-"
    EndIf

    If SystemTimeHourInt = ExhaustFanTime1Hour Then
        SAVELOG " Exhaust Fan mode 2 come back to mode auto3 "
        __CMD "CLI" "set-fan-mode=Fan_Auto" "-" "-"
    EndIf
EndIf

If ExhaustFanAuto = "" Then
    Var ExhaustFanAuto = "1"
EndIf

DEBUGVAR ExhaustFanAuto
If ExhaustFanAuto = "0" Then
    SAVELOG "ExhaustFan Override from server"
    Var PreviseTime1ToTime2 = ""
    Var PreviseTime2ToTime3 = ""
EndIf

If ExhaustFanAuto = "1" Then

    Var fan_mode_str = "set-fan-mode="

    If ExhaustFanTime1Enable = "true" Then
        If ExhaustFanTime2Enable = "true" Then
            TimeRange ExhaustFanTime1Hour ExhaustFanTime1Min ExhaustFanTime2Hour ExhaustFanTime2Min SystemTimeHourInt SystemTimeMinuteInt CurrentTime1ToTime2
        Else
            Var CurrentTime1ToTime2 = "true"
        EndIf
    EndIf

    DEBUGVAR CurrentTime1ToTime2
    DEBUGVAR PreviseTime1ToTime2
    If PreviseTime1ToTime2 = CurrentTime1ToTime2 Then

    Else
        Var PreviseTime1ToTime2 = CurrentTime1ToTime2
        If CurrentTime1ToTime2 = "true" Then
            Var fan_mode_str_final = fan_mode_str + ExhaustFanMode1
            __CMD "CLI" fan_mode_str_final "-" "-"
        EndIf
    EndIf



    If CurrentTime1ToTime2 = "false" Then

        If ExhaustFanTime2Enable = "true" Then
            If ExhaustFanTime3Enable = "true" Then
                TimeRange ExhaustFanTime2Hour ExhaustFanTime2Min ExhaustFanTime3Hour ExhaustFanTime3Min SystemTimeHourInt SystemTimeMinuteInt CurrentTime2ToTime3
            Else
                Var CurrentTime2ToTime3 = "true"
            EndIf

        EndIf

        DEBUGVAR CurrentTime2ToTime3
        DEBUGVAR PreviseTime2ToTime3

        If PreviseTime2ToTime3 = CurrentTime2ToTime3 Then

        Else
            Var PreviseTime2ToTime3 = CurrentTime2ToTime3
            If CurrentTime2ToTime3 = "true" Then
                Var fan_mode_str_final = fan_mode_str + ExhaustFanMode2
                __CMD "CLI" fan_mode_str_final "-" "-"
            EndIf
        EndIf

    EndIf

EndIf

DEBUGVAR LastTimeOfMainGateCloseUnitInMinute
DEBUGVAR MachineUpTimeUnitInMinute

If MachineStage = "close-maintenance" Then
    Var CountDownForSetFanMode = 3
EndIf

If CountDownForSetFanMode = "" Then
    Var CountDownForSetFanMode = 0
EndIf

If CountDownForSetFanMode > 0 Then
    Var CountDownForSetFanMode = CountDownForSetFanMode - 1
    DEBUGVAR CountDownForSetFanMode
EndIf

If CountDownForSetFanMode = 1 Then
    Var PreviseTime2ToTime3 = ""
    Var PreviseTime1ToTime2 = ""
    SAVELOG "Update fan mode"
EndIf