Domoticz

Code: Select all

            -- Update text device
            if myTextDevice then
                local garbageLines = ''
                for _, key in ipairs(sortedKeys) do
                    garbageLines = garbageLines .. string2Date(garbage[key][1], '%a %e %b' ) .. ':  '  .. longGarbageName(garbage[key][2]) .. '\n'
                end
                dz.devices(myTextDevice).updateText(garbageLines)
            end

Code: Select all

             -- Update text device / Notify for tomorrow
             local garbageLines = ''
             for _, key in ipairs(sortedKeys) do
                 garbageLines = garbageLines .. string2Date(garbage[key][1], '%a %e %b' ) .. ':  '  .. longGarbageName(garbage[key][2]) .. '\n'
                 if dz.time.addHours(24).rawDate == garbage[key][1] and dz.time.matchesRule("at 18:00-22:00") then
                     dz.notify('Huisafval',longGarbageName(garbage[key][2]) .. ' wordt morgen opgehaald',dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
                 end
             end
             if myTextDevice then dz.devices(myTextDevice).updateText(garbageLines) end

Code: Select all

2020-08-23 00:43:00.115 Status: dzVents: Info: collectGarbage: ------ Start internal script: GetGarbageDates:, trigger: "at 00:43"
2020-08-23 00:43:00.116 Status: dzVents: Debug: collectGarbage: OpenURL: url = http://json.mijnafvalwijzer.nl/?method=postcodecheck&postcode [removed for privacy reasons]
2020-08-23 00:43:00.116 Status: dzVents: Debug: collectGarbage: OpenURL: method = GET
2020-08-23 00:43:00.116 Status: dzVents: Debug: collectGarbage: OpenURL: post data = nil
2020-08-23 00:43:00.116 Status: dzVents: Debug: collectGarbage: OpenURL: headers = nil
2020-08-23 00:43:00.116 Status: dzVents: Debug: collectGarbage: OpenURL: callback = getGarbage_Response
2020-08-23 00:43:00.117 Status: dzVents: Info: collectGarbage: ------ Finished GetGarbageDates
2020-08-23 00:43:00.117 Status: EventSystem: Script event triggered: D:\Program Files (x86)\Domoticz\dzVents\runtime\dzVents.lua
2020-08-23 00:43:01.438 Status: dzVents: Info: collectGarbage: ------ Start internal script: GetGarbageDates: HTTPResponse: "getGarbage_Response"
2020-08-23 00:43:01.488 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 00:43:01.489 Status: dzVents: Info: collectGarbage: 2020-09-03
2020-08-23 00:43:01.489 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 00:43:01.489 Status: dzVents: Debug: collectGarbage: Papier en kartonnen verpakkingen
2020-08-23 00:43:01.489 Friday 28 August, 2020
2020-08-23 00:43:01.489 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 00:43:01.507 Status: dzVents: Debug: collectGarbage: Processing device-adapter for GarbageAlert: Alert sensor adapter
2020-08-23 00:43:01.508 Status: dzVents: Debug: collectGarbage:
2020-08-23 00:43:01.508 alertLevel: 1, alertText: Papier en kartonnen verpakkingen
2020-08-23 00:43:01.508 Friday 28 August, 2020
2020-08-23 00:43:01.508 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 00:43:01.508 Status: dzVents: Info: collectGarbage: ------ Finished GetGarbageDates
2020-08-23 00:43:01.508 Status: EventSystem: Script event triggered: D:\Program Files (x86)\Domoticz\dzVents\runtime\dzVents.lua
2020-08-23 00:43:01.508 Error: dzVents: Error: (3.0.11) collectGarbage: An error occurred when calling event handler GetGarbageDates
2020-08-23 00:43:01.508 Error: dzVents: Error: (3.0.11) collectGarbage: ...cz\scripts\dzVents\generated_scripts/GetGarbageDates.lua:117: bad argument #1 to 'date' (invalid conversion specifier '%e %b')

Code: Select all

        local function string2Date(str,fmt)             -- convert string from json into datevalue
            if fmt then return os.date(fmt,string2Epoch(str)) end
            return os.date(' %A %d %B, %Y',string2Epoch(str))
        end

Code: Select all

garbageLines = garbageLines .. string2Date(garbage[key][1], '%a %e %b' ) .. ':  '  .. longGarbageName(garbage[key][2]) .. '\n'

Code: Select all

garbageLines = garbageLines .. string2Date(garbage[key][1], '%a %d %b' ) .. ':  '  .. longGarbageName(garbage[key][2]) .. '\n'

Code: Select all

2020-08-23 01:32:01.927 Status: dzVents: Info: collectGarbage: ------ Start internal script: GetGarbageDates: HTTPResponse: "getGarbage_Response"
2020-08-23 01:32:01.983 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 01:32:01.983 Status: dzVents: Info: collectGarbage: 2020-09-03
2020-08-23 01:32:01.984 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 01:32:01.984 Status: dzVents: Debug: collectGarbage: Papier en kartonnen verpakkingen
2020-08-23 01:32:01.984 Friday 28 August, 2020
2020-08-23 01:32:01.984 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 01:32:02.002 Status: dzVents: Debug: collectGarbage: Processing device-adapter for GarbageAlert: Alert sensor adapter
2020-08-23 01:32:02.002 Status: dzVents: Debug: collectGarbage:
2020-08-23 01:32:02.002 alertLevel: 1, alertText: Papier en kartonnen verpakkingen
2020-08-23 01:32:02.002 Friday 28 August, 2020
2020-08-23 01:32:02.002 Status: dzVents: Info: collectGarbage: 2020-08-28
2020-08-23 01:32:02.002 Status: dzVents: Info: collectGarbage: 2020-09-03
2020-08-23 01:32:02.003 Status: dzVents: Debug: collectGarbage: Processing device-adapter for GarbageText: Text device
2020-08-23 01:32:02.005 Status: dzVents: Info: collectGarbage: ------ Finished GetGarbageDates

Code: Select all

    execute = function(dz, item)

        --++++--------------------- Mandatory: Set your values and device names below this Line --------------------------------------
--        local myZipcode     = '3085RA'          -- Your zipcode like '3085RA'
--        local myHousenumber = 38                -- Your housenumber like 38
        local myBagId       = "0312200000006752"
        local myTextDevice  = 'GarbageText2'     -- Name with quotes or idx without when created as virtual text device
        local myAlertDevice = 'GarbageAlert2'    -- Name with quotes or idx without when created as virtual alert device
        local myYear = os.date("%Y")             -- Rik: weet niet zeker of deze er ook uit kan met dit nieuwe script?

        local myNotificationTable =
        {
             -- table with one or more notification systems.
             -- uncomment the notification systems that you want to be used
             -- Can be one or more of

             -- dz.NSS_FIREBASE_CLOUD_MESSAGING,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_HTTP,
             -- dz.NSS_KODI,
             -- dz.NSS_LOGITECH_MEDIASERVER,
             -- dz.NSS_NMA,
             -- dz.NSS_PROWL,
             -- dz.NSS_PUSHALOT,
             -- dz.NSS_PUSHBULLET,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_PUSHSAFER,
             dz.NSS_TELEGRAM,
        }
        --++++---------------------------- No changes required below this line --------------------------------------------

        local debug = ( dz.utils.LOG_MODULE_EXEC_INFO == dz.LOG_DEBUG )
        local garbageTypes  = {100,3,87,1}



        local function collectGarbageDates(secondsFromNow)
            local getGarbage_url = "https://inzamelschema.rmn.nl/rest/adressen/" ..myBagId .. "/kalender/" .. myYear
            dz.openURL ({ url = getGarbage_url ,
                          method = "GET",
                          callback = "getGarbage_Response" }).afterSec(secondsFromNow)
        end

Code: Select all

if dz.time.matchesRule("at 06:00-17:00") and garbageToday then
dz.notify(longGarbageName(overallEarliestType) .. "wordt vandaag opgehaald")
end

Code: Select all

--[[ getGarbageDates.lua for [ dzVents >= 2.4 ]

This script is only useful in those areas of the Netherlands where the HVC group collects household garbage

Enter your zipcode and housenumber in the appropriate place between the lines starting with --++++
Next is to set your virtual text and or virtual alert device.

the text device will contain the most nearby collectdates for the four types of household garbage
the alert device will contain the date and type for the garbagecollecion that will arrive first

Ga naar de volgende url in de browser, waarbij je de juiste url voor jouw afvalverwerker kiest, en postcode en huisnummer wijzigd.
https://apps.hvcgroep.nl/rest/adressen/3328LN-35
de output die je krijgt te zien bevat een bagID wat je later nodig hebt.

Dit bagId wordt gebruikt in de volgende URLs:
Ophaaldagen: https://apps.hvcgroep.nl/rest/adressen/BagID/kalender/2018 <<replace BagID
De ophaaldagen gebruiken ID's om aan te geven welk afvaltype het betreft.
Informatie over deze afvaltypes kan opgehaald worden via:
https://apps.hvcgroep.nl/rest/adressen/BagID/afvalstromen <<replace BagID

]]--

return {
active = true,
on = { timer = { "at 20:00","at 07:00" }, -- daily run twice
-- { timer = {'every 1 minutes'},
httpResponses = { "getGarbage_Response" } -- Trigger the handle Json part
},

logging = { level = domoticz.LOG_INFO, -- Remove the "-- at the beginning of this and next line for debugging the script
marker = "collectGarbage" },

data = { garbage = {initial = {} }, -- Keep a copy of last json just in case
},

execute = function(dz, triggerObject)

--++++--------------------- Mandatory: Set your values and device names below this Line --------------------------------------
local myTextDevice = "Garbage" -- Name with quotes or idx without when created as virtual text device
local myAlertDevice = "GarbageAlert" -- Name with quotes or idx without when created as virtual alert device
local myBagId = "0312200000006752"
local myYear = os.date("%Y")

-- it can happen that other examples then HVC uses other numbers, change them at line
garbageTypes = {100,3,87,1}

--++++---------------------------- Set your values and device names above this Line --------------------------------------------

local function collectGarbageDates(secondsFromNow)
local getGarbage_url = "https://inzamelschema.rmn.nl/rest/adressen/" ..myBagId .. "/kalender/" .. myYear
dz.openURL ({ url = getGarbage_url ,
method = "GET",
callback = "getGarbage_Response" }).afterSec(secondsFromNow)
end

-- Add entry to log and notify to all subsystems
local function errorMessage(message)
dz.log(message,dz.LOG_ERROR)
dz.notify(message)
end

local function string2Epoch(dateString) -- seconds from epoch based on stringdate (used by string2Date)
-- Assuming a date pattern like: yyyy-mm-dd
local pattern = "(%d+)-(%d+)-(%d+)"
local runyear, runmonth, runday= dateString:match(pattern)
local convertedTimestamp = os.time({year = runyear, month = runmonth, day = runday})
return convertedTimestamp
end

local function string2Date(str,fmt) -- convert string from json into datevalue
if fmt then return os.date(fmt,string2Epoch(str)) end
return os.date(" %A %d %B, %Y",string2Epoch(str))
end

local function alertLevel(delta)
if delta < 2 then return dz.ALERTLEVEL_RED end
if delta < 3 then return dz.ALERTLEVEL_YELLOW end
if delta < 4 then return dz.ALERTLEVEL_ORANGE end
return dz.ALERTLEVEL_GREEN
end

local function setGarbageAlertDevice(alertDevice,alertText,alertDate)
local delta = tonumber(string2Date(alertDate,"%d")) - tonumber(os.date("%d")) -- delta in days between today and first garbage collection date
dz.devices(alertDevice).updateAlertSensor(alertLevel(delta),alertText)
return (delta == 0)
end

local function longGarbageName(str) -- Use descriptive strings
str = tostring(str)
str = str:gsub("100"," Plastic ")
str = str:gsub("3"," GFT afval (bruin) ")
str = str:gsub("87"," Oud papier en kartonnen (blauw) ")
str = str:gsub("1"," Restafval (grijs) ")
return str
end

local function handleResponse()
if #triggerObject.json > 0 then
dz.data.garbage = triggerObject.json
rt = triggerObject.json
else
errorMessage("Problem with response from hvcgroep (no data) using data from earlier run")
rt = dz.data.garbage -- json empty. Get last valid from dz.data
if #rt < 1 then -- No valid data in dz.data either
errorMessage("No previous data. are zipcode and housenumber ok and in HVC group area ?")
return false
end
end
local garbageLines = ""
local typeEarliestDate
local overallEarliestDate = "2999-12-31" -- Hopefully we will have a different garbage collection system by then
local garbageToday = false
local today = os.date("%Y-%m-%d")

for i = 1,#garbageTypes do --walk the the type Table
typeEarliestDate = "2999-12-31"
for j = 1,#rt do -- walk the result Table
-- walk the response table
if rt[j].ophaaldatum >= today and rt[j].ophaaldatum < typeEarliestDate and
rt[j].afvalstroom_id == garbageTypes[i] then -- Keep date closest to today per type
typeEarliestDate = rt[j].ophaaldatum
if typeEarliestDate < overallEarliestDate then -- date closest to today overall ?
overallEarliestDate = typeEarliestDate -- keep date
overallEarliestType = garbageTypes[i] -- keep type
end
garbageLines = garbageLines .. string2Date(typeEarliestDate,"%a %e %b" ) .. longGarbageName(rt[j].afvalstroom_id) .. " " .. "\n"
typeEarliestDate = rt[j].ophaaldatum -- Keep date closest to today

end
end
end

if myAlertDevice then -- Update AlertDevice with nearby date / type
garbageToday = setGarbageAlertDevice( myAlertDevice,
longGarbageName(overallEarliestType) .. "\n" ..
string2Date(overallEarliestDate),
overallEarliestDate)
end

if myTextDevice then -- Update defined virtual text device with dates / types
dz.devices(myTextDevice).updateText(garbageLines)
end

if dz.time.matchesRule("at 06:00-17:00") and garbageToday then
dz.notify(longGarbageName(overallEarliestType) .. "wordt vandaag opgehaald")
end


if (dz.time.addHours(24).rawDate == garbage) and dz.time.matchesRule("at 18:00-22:00") then
dz.notify(longGarbageName(overallEarliestType) .. "wordt morgen opgehaald")
end

end

-- Main
if triggerObject.isHTTPResponse then
if triggerObject.ok then
handleResponse()
else
errorMessage("Problem with response from hvcgroep (not ok)")
collectGarbageDates(600) -- response not OK, try again after 10 minutes
end
else
collectGarbageDates(1)
end
end
}

Code: Select all

if (dz.time.addHours(24).rawDate == garbage) and dz.time.matchesRule("at 18:00-22:00") then
dz.notify(longGarbageName(overallEarliestType) .. "wordt morgen opgehaald")
end

Code: Select all

--[[ getGarbageDates.lua for [ dzVents >= 2.4.28 ]
--

Enter your bagid in the appropriate place between the lines starting with --++++
Next is to set your virtual text and or virtual alert device.

the text device will contain the most nearby collectdates for the four types of household garbage
the alert device will contain the date and type for the garbagecollecion that will arrive first

]]--

return
{
        on =
        {
            timer =
            {
                'at 20:00',
                'at 07:00'
            },

            devices =
            {
               -- 'getGarbage',                -- Only for test purposes can be ignored
            },

            httpResponses =
            {
                'getGarbage_Response' -- Trigger to handle Json part
            },
        },

        logging =
        {
            level = domoticz.LOG_ERROR, -- set to LOG_DEBUG when something does not work as expected
            marker = 'collectGarbage',
        },

        data =
        {
            garbage =
            {
                initial = {},              -- Keep a copy of last json just in case
            },
        },

    execute = function(dz, item)

        --++++--------------------- Mandatory: Set your values and device names below this Line --------------------------------------
        local myBagId = "0312200000006752"
        local myYear = os.date("%Y")
        local myTextDevice = "Garbage" -- Name with quotes or idx without when created as virtual text device
        local myAlertDevice = "GarbageAlert" -- Name with quotes or idx without when created as virtual alert device
        
        local myNotificationTable =
        {
             -- table with one or more notification systems.
             -- uncomment the notification systems that you want to be used
             -- Can be one or more of

             -- dz.NSS_FIREBASE_CLOUD_MESSAGING,
             dz.NSS_PUSHOVER,
             -- dz.NSS_HTTP,
             -- dz.NSS_KODI,
             -- dz.NSS_LOGITECH_MEDIASERVER,
             -- dz.NSS_NMA,
             -- dz.NSS_PROWL,
             -- dz.NSS_PUSHALOT,
             -- dz.NSS_PUSHBULLET,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_PUSHSAFER,
             -- dz.NSS_TELEGRAM,
        }

        local longGarbageName =
        {
            [100] = "Plastic",
            [3] = "GFT afval (bruin)",
            [87] = "Oud papier en kartonnen (blauw)",
            [1] = "Restafval (grijs)"
        }

        --++++---------------------------- No changes required below this line --------------------------------------------

        local function collectGarbageDates(secondsFromNow)
            local getGarbage_url = "https://inzamelschema.rmn.nl/rest/adressen/" ..myBagId .. "/kalender/" .. myYear
                dz.openURL ({ url = getGarbage_url ,
                callback = "getGarbage_Response" }).afterSec(secondsFromNow)
        end

        -- Add entry to log and notify to set subsystems
        local function errorMessage(message)
            dz.log(message,dz.LOG_ERROR)
            dz.notify('Garbage',message, dz.PRIORITY_HIGH, dz.SOUND_DEFAULT, "" , myNotificationTable)
        end

        local function convertDateFormat(dateString, fromPattern, toFormat)
            local fromPattern = fromPattern or '(%d+)-(%d+)-(%d+)'
            local toFormat = toFormat or '%a %d %b'
            local runyear, runmonth, runday= dateString:match(fromPattern)
            return os.date(toFormat, os.time({year = runyear, month = runmonth, day = runday}) )
        end

        local function text(lines)
            if dz.utils.deviceExists(myTextDevice) then
               dz.devices(myTextDevice).updateText( table.concat(lines, '\n') )
            end
        end

        local function alertLevel(delta)
            if delta < 2 then return dz.ALERTLEVEL_RED end
            if delta < 3 then return dz.ALERTLEVEL_YELLOW end
            if delta < 4 then return dz.ALERTLEVEL_ORANGE end
            return dz.ALERTLEVEL_GREEN
        end

        local function alert(lines)
            if dz.utils.deviceExists(myAlertDevice) then
                dz.devices(myAlertDevice).updateAlertSensor(alertLevel(lines.delta), lines[1])
            end

            if dz.time.matchesRule('at 05:00-09:00') and lines.delta == 0  then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected today', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            elseif dz.time.matchesRule('at 17:00-22:00') and lines.delta == 1 then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected tomorrow', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            end
        end

        local function selectRecords(t)
            dateRecords = {}
            for _, garbage in ipairs(t) do
                if garbage.ophaaldatum >= dz.time.rawDate then
                    if dateRecords[garbage.ophaaldatum] then
                         table.insert(dateRecords[garbage.ophaaldatum], longGarbageName[garbage.afvalstroom_id] )
                    else
                        dateRecords[garbage.ophaaldatum] = { longGarbageName[garbage.afvalstroom_id] }
                    end
                    dz.log(garbage.ophaaldatum .. ' = ' .. longGarbageName[garbage.afvalstroom_id], dz.LOG_DEBUG)
                end
            end
            return dateRecords
        end

        local function makeLines(t)
            local startDate = dz.time
            local futureDay = 0
            local lineCounter = 1
            local textLines = {}

            while lineCounter < 5 and futureDay < 60 do
                local traverseDate = startDate.addDays(futureDay).rawDate
                if t[traverseDate] then
                    local textLine = convertDateFormat(traverseDate) .. ': ' .. table.concat(t[traverseDate], ' plus ')
                    if lineCounter == 1 then textLines.delta = futureDay end
                    textLines[lineCounter] = textLine
                    lineCounter = lineCounter + 1
                end
                futureDay = futureDay + 1
            end

            return textLines
        end

       local function handleResponse()

            if not(item.ok and item.json) then
                errorMessage('Problem with response (no data). Try using data from earlier run')
                rt  = dz.data.garbage         -- json empty. Get last valid from dz.data
                if #rt < 1 then               -- No valid data in dz.data either
                    errorMessage('No previous data. is bagnumber ok?')
                    return false
                end
            else
                rt = selectRecords(item.json)

                textLines = makeLines(rt)
                alert(textLines)
                text(textLines)
            end
        end

        -- Main
        if item.isHTTPResponse then
            if item.ok then
                handleResponse()
            else
                errorMessage('Problem with response (not ok)')
                collectGarbageDates(600)                                           -- response not OK, try again after 10 minutes
            end
        else
            collectGarbageDates(1)
        end
    end
}

Code: Select all

--[[ getGarbageDates.lua for [ dzVents >= 2.4.28 ]
--

Enter your bagid in the appropriate place between the lines starting with --++++
Next is to set your virtual text and or virtual alert device.

the text device will contain the most nearby collectdates for the four types of household garbage
the alert device will contain the date and type for the garbagecollecion that will arrive first

]]--

return
{
        on =
        {
            timer =
            {
                'at 20:00',
                'at 07:00'
            },

            devices =
            {
               -- 'getGarbage',                -- Only for test purposes can be ignored
            },

            httpResponses =
            {
                'getGarbage_Response' -- Trigger to handle Json part
            },
        },

        logging =
        {
            level = domoticz.LOG_DEBUG, -- set to LOG_DEBUG when something does not work as expected
            marker = 'collectGarbage',
        },

        data =
        {
            garbage =
            {
                initial = {},              -- Keep a copy of last json just in case
            },
        },

    execute = function(dz, item)

        --++++--------------------- Mandatory: Set your values and device names below this Line --------------------------------------
        local myBagId = "XXXXXXXX" -- Find bagid at https://inzamelschema.rmn.nl/rest/adressen/0000aa-99 (zip code - house number)
        local myYear = os.date("%Y")
        local myTextDevice = "Garbage" -- Name with quotes or idx without when created as virtual text device
        local myAlertDevice = "GarbageAlert" -- Name with quotes or idx without when created as virtual alert device
        
        local myNotificationTable =
        {
             -- table with one or more notification systems.
             -- uncomment the notification systems that you want to be used
             -- Can be one or more of

             -- dz.NSS_FIREBASE_CLOUD_MESSAGING,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_HTTP,
             -- dz.NSS_KODI,
             -- dz.NSS_LOGITECH_MEDIASERVER,
             -- dz.NSS_NMA,
             -- dz.NSS_PROWL,
             -- dz.NSS_PUSHALOT,
             -- dz.NSS_PUSHBULLET,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_PUSHSAFER,
             dz.NSS_TELEGRAM,
        }

        local longGarbageName =
        {
            [100] = "Plastic",
            [3] = "GFT afval (bruin)",
            [87] = "Oud papier en kartonnen (blauw)",
            [1] = "Restafval (grijs)"
        }

        --++++---------------------------- No changes required below this line --------------------------------------------

        local function collectGarbageDates(secondsFromNow)
            local getGarbage_url = "https://inzamelschema.rmn.nl/rest/adressen/" ..myBagId .. "/kalender/" .. myYear
                dz.openURL ({ url = getGarbage_url ,
                callback = "getGarbage_Response" }).afterSec(secondsFromNow)
        end

        -- Add entry to log and notify to set subsystems
        local function errorMessage(message)
            dz.log(message,dz.LOG_ERROR)
            dz.notify('Garbage',message, dz.PRIORITY_HIGH, dz.SOUND_DEFAULT, "" , myNotificationTable)
        end

        local function convertDateFormat(dateString, fromPattern, toFormat)
            local fromPattern = fromPattern or '(%d+)-(%d+)-(%d+)'
            local toFormat = toFormat or '%a %d %b'
            local runyear, runmonth, runday= dateString:match(fromPattern)
            return os.date(toFormat, os.time({year = runyear, month = runmonth, day = runday}) )
        end

        local function text(lines)
            if dz.utils.deviceExists(myTextDevice) then
               dz.devices(myTextDevice).updateText( table.concat(lines, '\n') )
            end
        end

        local function alertLevel(delta)
            if delta < 2 then return dz.ALERTLEVEL_RED end
            if delta < 3 then return dz.ALERTLEVEL_YELLOW end
            if delta < 4 then return dz.ALERTLEVEL_ORANGE end
            return dz.ALERTLEVEL_GREEN
        end

        local function alert(lines)
            if dz.utils.deviceExists(myAlertDevice) then
                dz.devices(myAlertDevice).updateAlertSensor(alertLevel(lines.delta), lines[1])
            end

            if dz.time.matchesRule('at 05:00-09:00') and lines.delta == 0  then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected today', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            elseif dz.time.matchesRule('at 17:00-22:00') and lines.delta == 1 then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected tomorrow', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            end
        end

        local function selectRecords(t)
            dateRecords = {}
            for _, garbage in ipairs(t) do
                if garbage.ophaaldatum >= dz.time.rawDate then
                    if dateRecords[garbage.ophaaldatum] then
                         table.insert(dateRecords[garbage.ophaaldatum], longGarbageName[garbage.afvalstroom_id] )
                    else
                        dateRecords[garbage.ophaaldatum] = { longGarbageName[garbage.afvalstroom_id] }
                    end
                    dz.log(garbage.ophaaldatum .. ' = ' .. longGarbageName[garbage.afvalstroom_id], dz.LOG_DEBUG)
                end
            end
            return dateRecords
        end

        local function makeLines(t)
            local startDate = dz.time
            local futureDay = 0
            local lineCounter = 1
            local textLines = {}

            while lineCounter < 5 and futureDay < 60 do
                local traverseDate = startDate.addDays(futureDay).rawDate
                if t[traverseDate] then
                    local textLine = convertDateFormat(traverseDate) .. ': ' .. table.concat(t[traverseDate], ' plus ')
                    if lineCounter == 1 then textLines.delta = futureDay end
                    textLines[lineCounter] = textLine
                    lineCounter = lineCounter + 1
                end
                futureDay = futureDay + 1
            end

            return textLines
        end

       local function handleResponse()

            if not(item.ok and item.json) then
                errorMessage('Problem with response (no data). Try using data from earlier run')
                rt  = dz.data.garbage         -- json empty. Get last valid from dz.data
                if #rt < 1 then               -- No valid data in dz.data either
                    errorMessage('No previous data. is bagnumber ok?')
                    return false
                end
            else
                rt = selectRecords(item.json)

                textLines = makeLines(rt)
                alert(textLines)
                text(textLines)
            end
        end

        -- Main
        if item.isHTTPResponse then
            if item.ok then
                handleResponse()
            else
                errorMessage('Problem with response (not ok)')
                collectGarbageDates(600)                                           -- response not OK, try again after 10 minutes
            end
        else
            collectGarbageDates(1)
        end
    end
}

Code: Select all

--[[ getGarbageDates.lua for [ dzVents >= 2.4.28 ]
--

Enter your bagid in the appropriate place between the lines starting with --++++
Next is to set your virtual text and or virtual alert device.

the text device will contain the most nearby collectdates for the four types of household garbage
the alert device will contain the date and type for the garbagecollecion that will arrive first

]]--

local eveningRun = 'at 20:00'
local morningRun = 'at 07:00'

return
{
        on =
        {
            timer =
            {
                morningRun,
                eveningRun,
            },

            devices =
            {
               -- 'getGarbage',                -- Only for test purposes can be ignored
            },

            httpResponses =
            {
                'getGarbage_Response' -- Trigger to handle Json part
            },
        },

        logging =
        {
            level = domoticz.LOG_DEBUG, -- set to LOG_DEBUG when something does not work as expected
            marker = 'collectGarbage',
        },

        data =
        {
            garbage =
            {
                initial = {},              -- Keep a copy of last json just in case
            },
        },

    execute = function(dz, item)

        --++++--------------------- Mandatory: Set your values and device names below this Line --------------------------------------
        local myBagId = "XXXXXXXX" -- Find bagid at https://inzamelschema.rmn.nl/rest/adressen/0000aa-99 (zip code - house number)
        local myYear = os.date("%Y")
        local myTextDevice = "Garbage" -- Name with quotes or idx without when created as virtual text device
        local myAlertDevice = "GarbageAlert" -- Name with quotes or idx without when created as virtual alert device

        local myNotificationTable =
        {
             -- table with one or more notification systems.
             -- uncomment the notification systems that you want to be used
             -- Can be one or more of

             -- dz.NSS_FIREBASE_CLOUD_MESSAGING,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_HTTP,
             -- dz.NSS_KODI,
             -- dz.NSS_LOGITECH_MEDIASERVER,
             -- dz.NSS_NMA,
             -- dz.NSS_PROWL,
             -- dz.NSS_PUSHALOT,
             -- dz.NSS_PUSHBULLET,
             -- dz.NSS_PUSHOVER,
             -- dz.NSS_PUSHSAFER,
             dz.NSS_TELEGRAM,
        }

        local longGarbageName =
        {
            [100] = "Plastic",
            [3] = "GFT afval (bruin)",
            [87] = "Oud papier en kartonnen (blauw)",
            [1] = "Restafval (grijs)"
        }

        --++++---------------------------- No changes required below this line --------------------------------------------

        local function collectGarbageDates(secondsFromNow)
            local getGarbage_url = "https://inzamelschema.rmn.nl/rest/adressen/" ..myBagId .. "/kalender/" .. myYear
                dz.openURL ({ url = getGarbage_url ,
                callback = "getGarbage_Response" }).afterSec(secondsFromNow)
        end

        -- Add entry to log and notify to set subsystems
        local function errorMessage(message)
            dz.log(message,dz.LOG_ERROR)
            dz.notify('Garbage',message, dz.PRIORITY_HIGH, dz.SOUND_DEFAULT, "" , myNotificationTable)
        end

        local function convertDateFormat(dateString, fromPattern, toFormat)
            local fromPattern = fromPattern or '(%d+)-(%d+)-(%d+)'
            local toFormat = toFormat or '%a %d %b'
            local runyear, runmonth, runday= dateString:match(fromPattern)
            return os.date(toFormat, os.time({year = runyear, month = runmonth, day = runday}) )
        end

        local function text(lines)
            if dz.utils.deviceExists(myTextDevice) then
               dz.devices(myTextDevice).updateText( table.concat(lines, '\n') )
            end
        end

        local function alertLevel(delta)
            if delta < 2 then return dz.ALERTLEVEL_RED end
            if delta < 3 then return dz.ALERTLEVEL_YELLOW end
            if delta < 4 then return dz.ALERTLEVEL_ORANGE end
            return dz.ALERTLEVEL_GREEN
        end

        local function alert(lines)
            if dz.utils.deviceExists(myAlertDevice) then
                dz.devices(myAlertDevice).updateAlertSensor(alertLevel(lines.delta), lines[1])
            end

            if dz.time.matchesRule('at 05:00-09:00') and lines.delta == 0  then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected today', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            elseif dz.time.matchesRule('at 17:00-22:00') and lines.delta == 1 then
                dz.notify('Huisafval',lines[1]:match('%: (.*)')  .. ' will be collected tomorrow', dz.PRIORITY_NORMAL,dz.SOUND_DEFAULT, "" , myNotificationTable)
            end
        end

        local function selectRecords(t)
            dateRecords = {}
            for _, garbage in ipairs(t) do
                if garbage.ophaaldatum >= dz.time.rawDate then
                    if dateRecords[garbage.ophaaldatum] then
                         table.insert(dateRecords[garbage.ophaaldatum], longGarbageName[garbage.afvalstroom_id] )
                    else
                        dateRecords[garbage.ophaaldatum] = { longGarbageName[garbage.afvalstroom_id] }
                    end
                    dz.log(garbage.ophaaldatum .. ' = ' .. longGarbageName[garbage.afvalstroom_id], dz.LOG_DEBUG)
                end
            end
            return dateRecords
        end

        local function makeLines(t)
            local startDate = dz.time
            local futureDay = 0
            local lineCounter = 1
            local textLines = {}

            if dz.time.matchesRule(eveningRun) then futureDay = 1 end

            while lineCounter < 5 and futureDay < 60 do
                local traverseDate = startDate.addDays(futureDay).rawDate
                if t[traverseDate] then
                    local textLine = convertDateFormat(traverseDate) .. ': ' .. table.concat(t[traverseDate], ' plus ')
                    if lineCounter == 1 then textLines.delta = futureDay end
                    textLines[lineCounter] = textLine
                    lineCounter = lineCounter + 1
                end
                futureDay = futureDay + 1
            end

            return textLines
        end

       local function handleResponse()

            if not(item.ok and item.json) then
                errorMessage('Problem with response (no data). Try using data from earlier run')
                rt  = dz.data.garbage         -- json empty. Get last valid from dz.data
                if #rt < 1 then               -- No valid data in dz.data either
                    errorMessage('No previous data. is bagnumber ok?')
                    return false
                end
            else
                rt = selectRecords(item.json)

                textLines = makeLines(rt)
                alert(textLines)
                text(textLines)
            end
        end

        -- Main
        if item.isHTTPResponse then
            if item.ok then
                handleResponse()
            else
                errorMessage('Problem with response (not ok)')
                collectGarbageDates(600)                                           -- response not OK, try again after 10 minutes
            end
        else
            collectGarbageDates(1)
        end
    end
}