Доступ в выходные и праздничные дни

{
    "1": [1, 2, 3, 4, 5, 6, 7, 8, 13, 14, 20, 21, 27, 28],
    "2": [3, 4, 10, 11, 17, 18, 23, 24, 25],
    "3": [2, 3, 8, 9, 10, 16, 17, 23, 24, 30, 31],
    "4": [6, 7, 13, 14, 21, 21, 28, 29, 30],
    "5": [1, 4, 5, 9, 10, 11, 12, 18, 19, 25, 26],
    "6": [1, 2, 8, 9, 12, 15, 16, 22, 23, 29, 30],
    "7": [6, 7, 13, 14, 20, 21, 27, 28],
    "8": [3, 4, 10, 11, 17, 18, 24, 25, 31],
    "9": [1, 7, 8, 14, 15, 21, 22, 29, 30, 31],
    "10": [5, 6, 12, 13, 19, 20, 26, 27],
    "11": [3, 4, 9, 10, 16, 17, 23, 24, 30],
    "12": [1, 7, 8, 14, 15, 21, 22, 29, 30, 31]
}

local pacs = require("pacs")
local log = require("log")
local common = require("common")
local http = require("http")

local logger = log.get_logger("days_off.lua")

local CALENDAR_URL = "http://10.1.29.39/api/v1/storage/get_content/?uuid=552370fa-8bb1-47c8-b433-a23d1c5c76ff"
local DAYS_OFF_ALLOWED_PROPERTY = "days_off_allowed"

local DAYS_OFF = {}

local function is_day_off(date_to_check)
logger:debug("checking if day off today")
if date_to_check ~=nil then
for i,days in pairs(DAYS_OFF) do
if i == tostring(date_to_check.tm_mon+1) then
for idx,day in pairs(days) do
if idx ~= "__type" then
if day == date_to_check.tm_mday then
logger:debug("It is day off today!")
return true
end
end
end
end
end
end
logger:debug("It is not day off today!")
return false
end

local function days_off_allowed(token)
logger:debug("checking process_data for point="..token)
if pacs.process_data ~= nil and type(pacs.process_data) == "table" and pacs.process_data[token] ~= nil then
for _,process_data in pairs(pacs.process_data[token]) do
if process_data.pass then
logger:debug("found pass="..process_data.pass.uuid)
if process_data.pass.properties then
for _,property in pairs(process_data.pass.properties) do
if string.sub(property.key,1,string.len(DAYS_OFF_ALLOWED_PROPERTY)) == DAYS_OFF_ALLOWED_PROPERTY then
return property.value == "true"
end
end
end
end
end
end
return false
end

local function check_day_off_right(token)
if days_off_allowed(token) == false then
local currenttime = common.now()
local datetime = common.localtime(currenttime)
logger:info( tostring(datetime.tm_mday) .. "/" .. tostring(datetime.tm_mon+1) .. "/" .. tostring(datetime.tm_year+1900))
logger:info( tostring(datetime.tm_hour) .. ":" .. tostring(datetime.tm_min) .. ":" .. tostring(datetime.tm_sec))

if is_day_off(datetime) then
return false
end
end
return true
end

-- calendar
local calendar_http_handler = {}

function calendar_http_handler:on_http_response(response_data)
if response_data == nil then
logger:error("connection has failed; no response received")
else
logger:debug("response received; status="..response_data.status..", type(body)="..log.stringify(response_data.body));
DAYS_OFF = response_data.body
end
end

function check_calendar_update(period)
logger:info("Starting timeout on "..tostring(period).." seconds")
set_timeout("check_calendar_update_timeout", period*1000)
end

function get_calendar()
local http_request = {
url = CALENDAR_URL,
method = http.METHOD.GET,
version = http.VERSION.HTTP10,
timeout = 5000
}
http.with(calendar_http_handler):transmit(http_request)
end

function check_calendar_update_timeout()
logger:info("Timeout!")
local currenttime = common.now()
local datetime = common.localtime(currenttime)
if datetime.tm_hour == 0 and datetime.tm_min == 30 then
get_calendar()
end
check_calendar_update(60)
end

get_calendar()
check_calendar_update(60)

local function inject_patch(instance)

instance.process_granted = function(self)
if (self.anonymous_mode == 0) then
local ready = true
if (self.state ~= pacs.STATE.READY) then
ready = false
end

if ready then
logger:debug("all points are ready; checking timezone for pacs")

if check_day_off_right(self.token) then
getmetatable(self).__index.process_granted(self)
else
pacs_notify(self.token, "A2")
getmetatable(self).__index.process_denied(self)
end
else
-- invoke base process_granted implementation
logger:debug("access point not ready; DENIE ACCESS")
pacs_notify(self.token, "A2")
getmetatable(self).__index.process_denied(self)
end -- if ready check
else
logger:debug("Exit pushbutton pressed; GRANTING ACCESS")
getmetatable(self).__index.process_granted(self)
end
end -- process_granted
end

-- inject to every access point if needed
for key,instance in pairs(pacs.ap_instance) do
logger:debug("injecting patch to ap with id="..instance.id.." (token="..instance.token..")")
inject_patch(instance)
end

logger:info("days off script loaded!")

local CALENDAR_URL 

local CALENDAR_URL = "http://10.1.29.39/api/v1/storage/get_content/?uuid=552370fa-8bb1-47c8-b433-a23d1c5c76ff"