--[[
%% autostart
%% properties
20 value
17 value
%% globals
--]]
 
local LUMINOSITY_DEVICE_ID = 20; -- ID датчика освещенности
local SENSOR_DEVICE_ID = 17; -- ID датчика движения
local DIMMER_DEVICE_ID = 21; -- ID диммера
 
local LOW_LEVEL  = 50; -- Пороговый уровень освещенности
local TIME_LIMIT = 60; -- Задержка выключения в секундах
 
local activateNightMode = 1; -- Активация ночного режима
local delayBeforeSunrise = 0; -- Задержка срабатывания до восхода солнца, в часах
local delayAfterSunset = 1; -- Задержка срабатывания после захода солнца, в часах
local powerLimit = 30; -- Ограничение уровня освещения в ночном режиме, в процентах
 
local counter = TIME_LIMIT;
local startSource = fibaro:getSourceTrigger();
 
local function isDayLight()
  local result = false;
 
  --local currentDate = os.date("*t", os.time { year = os.date("*t").year, month = os.date("*t").month, day = os.date("*t").day, hour = 22, min = 12 });
  local currentDate = os.date("*t");
  local sunriseHour = fibaro:getValue(1, 'sunriseHour'); 
  local sunsetHour = fibaro:getValue(1, 'sunsetHour'); 
  local currentSec = tonumber(currentDate.hour) * 60 + tonumber(currentDate.min); 
  local sunriseSec = tonumber(string.sub(sunriseHour, 1, 2)) * 60 + tonumber(string.sub(sunriseHour, 4)); 
  local sunsetSec = tonumber(string.sub(sunsetHour, 1, 2)) * 60 + tonumber(string.sub(sunsetHour, 4)); 
 
  if ((currentSec + 60 * delayBeforeSunrise) > sunriseSec and 
      (currentSec - 60 * delayAfterSunset) < sunsetSec) then 
    result = true; 
  else 
    result = false;
  end 
 
  return result;
end
 
if ((tonumber(fibaro:getValue(LUMINOSITY_DEVICE_ID, "value")) < LOW_LEVEL) and
 	(tonumber(fibaro:getValue(SENSOR_DEVICE_ID, "value")) > 0) or
	(startSource["type"] == "other")) then
 
  if (activateNightMode == 1) then    
    if (isDayLight()) then 
  	  fibaro:call(DIMMER_DEVICE_ID, "setValue", "100");
 
      fibaro:debug("FULL POWER CALLED");
    else
  	  fibaro:call(DIMMER_DEVICE_ID, "setValue", powerLimit);
 
      fibaro:debug("POWER LIMIT CALLED");
    end
  else 
    fibaro:call(DIMMER_DEVICE_ID, "setValue", "100");
 
    fibaro:debug("OTHER CALLED");
  end
 
  while(counter > 0) do 
	counter = counter - 1;
    fibaro:sleep(1000);
 
    fibaro:debug("counter = " .. counter);
 
	if (tonumber(fibaro:getValue(SENSOR_DEVICE_ID, "value")) > 0)
      then
      counter = TIME_LIMIT;
    end
  end
 
  fibaro:call(DIMMER_DEVICE_ID, "turnOff");
end