runtime.lua

Occupancy = nil

OccupancyCountdownTimer = Timer.New()
OccupancyCountdownActive = nil
OccupancySeconds = nil
OccupancySecondsKnob = nil
OccupancySecondsRemainingControl = nil
OccupancyCountdownTimerSeconds = nil

CountdownTimer = Timer.New()
CountdownActive = nil
CountdownSeconds = nil
CountdownSecondsKnob = nil
CountdownSecondsRemainingControl = nil
CountdownTimerSeconds = nil

AutoShutdownTimeHours = 0
AutoShutdownTimeMinutes = 0
AutoShutdownTimePM = false

AutoShutdownEnabled = false

function OnCheckTime()
  local time = os.date("*t")
  print('Current Time: '..time.hour..":"..time.min)

  local hour = tonumber(time.hour)
  local min = tonumber(time.min)

  if AutoShutdownEnabled then
    print("Auto Shutdown -> Current Time: "..time.hour..":"..time.min.." ? Auto Shutdown Time: "..AutoShutdownTimeHours..":"..AutoShutdownTimeMinutes)
    
    if hour == AutoShutdownTimeHours and AutoShutdownTimeMinutes == min then 
      OnStartCountdownTimer({Boolean = true})
    end
  end
end

function SetShutdownTimeHours(hours, pm)
  if hours == 12 and pm then
    AutoShutdownTimeHours = math.floor(12)
  elseif hours == 12 and not pm then
      AutoShutdownTimeHours = math.floor(0)
  else
    if pm then
      AutoShutdownTimeHours = math.floor(hours + 12)
    else
      AutoShutdownTimeHours = math.floor(hours)
    end
  end
end

function ShowShutdownTimeMessage()
  local time = string.format("%d:%d", AutoShutdownTimeHours, AutoShutdownTimeMinutes)
  print('Auto Shutdown Time: '..time)
end

function PulseOutput(output)
  if Controls[output] ~= nil then
    Controls[output].Boolean = true
    print('Start Pulse Output: '..output)
    Timer.CallAfter(function() 
      Controls[output].Boolean = false 
      print('Stop Pulse Output: '..output)
    end, 0.1)
  else 
    print('Invalid Output: '..output)
  end
end

function OnIncrementCountdownTime(obj)
  if obj.Boolean then
    CountdownSecondsKnob.Value = CountdownSecondsKnob.Value + 10
    OnCountdownTime(CountdownSecondsKnob)
  end
end

function OnDecrementCountdownTime(obj)
  if obj.Boolean then
    CountdownSecondsKnob.Value = CountdownSecondsKnob.Value - 10
    OnCountdownTime(CountdownSecondsKnob)
  end
end

function OnCountdownTime(obj)
  CountdownSeconds = math.floor(obj.Value)
  print("Countdown Time Seconds: "..CountdownSeconds)
  --CountdownSecondsRemainingControl.Max = CountdownSeconds
end

function OnCountdownTimerExpired()
  if CountdownTimerSeconds == nil then
    CountdownTimerSeconds = CountdownSeconds
  else 
    CountdownTimerSeconds = CountdownTimerSeconds - 1
  end

  print(string.format("Countdown Time Remaining: %s", CountdownTimerSeconds))
  CountdownSecondsRemainingControl.Value = CountdownTimerSeconds

  if CountdownSeconds ~= nil then 
    if CountdownTimerSeconds == 0 then 
      OnStopCountdownTimer({Boolean = true})
      PulseOutput("shutdown")
    end
  end
end

function OnStartCountdownTimer(obj)
  if obj.Boolean then
    if CountdownTimerSeconds == nil then 
      print("Start Countdown Timer")
    else 
      CountdownTimerSeconds = nil
      print("Restart Countdown Timer")
    end
    CountdownTimer:Start(1)
    CountdownActive.Boolean = true
  end
end

function OnStopCountdownTimer(obj)
  if obj.Boolean then 
    print("Stop Countdown Timer")
    CountdownTimer:Stop()
    CountdownTimerSeconds = nil
    CountdownActive.Boolean = false
  end 
end

function OnOccupancyChanged(obj)
  if obj.Boolean then
    print('Occupancy Detected - Stop Timer')
    OccupancyCountdownTimer:Stop()
    OccupancyCountdownActive.Boolean = false
    OccupancyCountdownTimerSeconds = nil
  else 
    print('Vacancy Detected - Start Timer')
    OccupancyCountdownTimerSeconds = nil 
    OccupancyCountdownTimer:Start(1)
    OccupancyCountdownActive.Boolean = true
  end
end

function OnVacancyShutdownTime(obj)
  local seconds =  math.floor(obj.Value)
  print("Vacancy Time Required Before Shutdown: "..seconds)
  OccupancySeconds = seconds
  --OccupancySecondsRemainingControl.Max = OccupancySeconds
end

function OnIncrementVacancyTime(obj)
  if obj.Boolean then
    OccupancySecondsKnob.Value = OccupancySecondsKnob.Value + 60
    OnVacancyShutdownTime(OccupancySecondsKnob)
  end
end

function OnDecrementVacancyTime(obj)
  if obj.Boolean then
    OccupancySecondsKnob.Value = OccupancySecondsKnob.Value - 60
    OnVacancyShutdownTime(OccupancySecondsKnob)
  end
end

function OnOccupancyTimerExpired()
  if OccupancyCountdownTimerSeconds == nil then
    OccupancyCountdownTimerSeconds = OccupancySeconds
  else 
    OccupancyCountdownTimerSeconds = OccupancyCountdownTimerSeconds - 1
  end

  print(string.format("Vacancy Time Remaining: %s", OccupancyCountdownTimerSeconds))
  OccupancySecondsRemainingControl.Value = OccupancyCountdownTimerSeconds

  if OccupancySeconds ~= nil then
    -- print(OccupancyCountdownTimerSeconds..' ? '..OccupancySeconds)
    if OccupancyCountdownTimerSeconds == 0 then
      print("Vacancy Timeout Expired")
      OccupancyCountdownTimer:Stop()
      OccupancyCountdownActive.Boolean = false
      OnStartCountdownTimer({Boolean = true})
    end
  end
end

function OnAutoShutdownEnabled(obj)
  AutoShutdownEnabled = obj.Boolean
  if obj.Boolean then
    obj.Legend = "Enabled"
  else
    obj.Legend = "Disabled"
  end
  print('Auto Shutdown @ '..AutoShutdownTimeHours..':'..AutoShutdownTimeMinutes..' Enabled: '..tostring(AutoShutdownEnabled))
end

function OnShutdownTimeHours(obj)
  local hours = math.floor(obj.Value)

  print('Auto Shutdown Time Hours Changed: '..hours)

  SetShutdownTimeHours(hours, AutoShutdownTimePM)
  ShowShutdownTimeMessage()
end

function OnShutdownTimeMinutes(obj)
  local minutes =  math.floor(obj.Value)

  AutoShutdownTimeMinutes = minutes
  print('Auto Shutdown Time Minutes Changed: '..minutes)
  ShowShutdownTimeMessage()
end 

function OnShutdownTimePM(obj)
  print('Auto Shutdown Time PM Changed: '..tostring(obj.Boolean))

  if obj.Boolean then 
    obj.Legend = "PM"
  else
    obj.Legend = "AM"
  end

  AutoShutdownTimePM = obj.Boolean
  SetShutdownTimeHours(Controls['auto_shutdown_hours'].Value, AutoShutdownTimePM)
  ShowShutdownTimeMessage()
end

function OnIncrementShutdownHours(obj)
  if obj.Boolean then
    AutoShutdownTimeHoursControl.Value = AutoShutdownTimeHoursControl.Value + 1
    OnShutdownTimeHours(AutoShutdownTimeHoursControl)
  end
end

function OnDecrementShutdownHours(obj)
  if obj.Boolean then
    AutoShutdownTimeHoursControl.Value = AutoShutdownTimeHoursControl.Value - 1
    OnShutdownTimeHours(AutoShutdownTimeHoursControl)
  end
end

function OnIncrementShutdownMinutes(obj)
  if obj.Boolean then
    AutoShutdownTimeMinutesControl.Value = AutoShutdownTimeMinutesControl.Value + 1
    OnShutdownTimeMinutes(AutoShutdownTimeMinutesControl)
  end
end

function OnDecrementShutdownMinutes(obj)
  if obj.Boolean then
    AutoShutdownTimeMinutesControl.Value = AutoShutdownTimeMinutesControl.Value - 1
    OnShutdownTimeMinutes(AutoShutdownTimeMinutesControl)
  end
end

function Initialize()
  --assign all global controls
  CountdownActive = Controls['countdown_active']
  CountdownTimeRemaining = Controls['countdown_time_remaining']
  CountdownSecondsKnob = Controls['countdown_time_seconds']
  CountdownSecondsRemainingControl = Controls['countdown_time_remaining']

  OccupancyCountdownActive = Controls['occupancy_countdown_active']
  OccupancyTimeRemaining = Controls['vacancy_time_remaining']
  OccupancySecondsKnob = Controls['vacancy_time_seconds']
  OccupancySecondsRemainingControl = Controls['vacancy_time_remaining']

  AutoShutdownTimeHoursControl = Controls['auto_shutdown_hours']
  AutoShutdownTimeMinutesControl = Controls['auto_shutdown_minutes']

  --check the time every 60s to handle autoshutdown
  CurrentTime = Timer.New()
  CurrentTime.EventHandler = OnCheckTime
  CurrentTime:Start(15)

  --countdown timer triggered by shutdown page
  CountdownTimer.EventHandler = OnCountdownTimerExpired

  --time to wait on shutdown page before triggering shutdown routine automatically
  CountdownSecondsKnob.EventHandler = OnCountdownTime

  Controls['start_countdown'].EventHandler = OnStartCountdownTimer
  Controls['stop_countdown'].EventHandler = OnStopCountdownTimer
  Controls['increment_countdown_time'].EventHandler = OnIncrementCountdownTime
  Controls['decrement_countdown_time'].EventHandler = OnDecrementCountdownTime

  --initial value capture
  OnCountdownTime(Controls['countdown_time_seconds'])

  AutoShutdownTimeHoursControl.EventHandler = OnShutdownTimeHours
  Controls['increment_shutdown_hours'].EventHandler = OnIncrementShutdownHours
  Controls['decrement_shutdown_hours'].EventHandler = OnDecrementShutdownHours

  AutoShutdownTimeMinutesControl.EventHandler = OnShutdownTimeMinutes
  Controls['increment_shutdown_minutes'].EventHandler = OnIncrementShutdownMinutes
  Controls['decrement_shutdown_minutes'].EventHandler = OnDecrementShutdownMinutes

  Controls['auto_shutdown_pm'].EventHandler = OnShutdownTimePM

  Controls['auto_shutdown_time_enabled'].EventHandler = OnAutoShutdownEnabled

  OnShutdownTimeHours(Controls['auto_shutdown_hours'])
  OnShutdownTimeMinutes(Controls['auto_shutdown_minutes'])
  OnShutdownTimePM(Controls['auto_shutdown_pm'])
  OnAutoShutdownEnabled(Controls['auto_shutdown_time_enabled'])

  OccupancyCountdownTimer.EventHandler = OnOccupancyTimerExpired
  OccupancySecondsKnob.EventHandler = OnVacancyShutdownTime
  
  Controls['occupancy'].EventHandler = OnOccupancyChanged
  Controls['increment_vacancy_time'].EventHandler = OnIncrementVacancyTime
  Controls['decrement_vacancy_time'].EventHandler = OnDecrementVacancyTime

  OnVacancyShutdownTime(Controls['vacancy_time_seconds'])
end

if Controls then
  Initialize()
end