Domoticz

Code: Select all

-- Rookmelders Test  with Notification

local Rookmelders = {'Rookmelder_beneden (Test)','Rookmelder_boven (Test)','Rookmelder_zolder (Test)'}

return {
    
    on =
    {
        timer =
        {
            --'at 17:30 on 15/*',
            'at 11:44',
        },

        devices =
        { 
            Rookmelders,
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG, -- change to domoticz.LOG_ERROR when all OK
        marker = 'Rookmelders Test',
    },
   
    execute = function(dz, timer)
        
        if timer.isTimer then
            for index,Name in ipairs(Rookmelders) do
                dz.devices(Name).cancelQueuedCommands()    
                dz.devices(Name).switchOn()
                dz.log(Name .. ' has been pushed to test the device monthly!', dz.LOG_INFO)
                dz.notify(Name, 'Maandelijkse test van ' .. Name .. ' !', dz.PRIORITY_HIGH,'','',dz.NSS_TELEGRAM)
            end
        end 
    end
}

Code: Select all

2020-11-14 11:44:00.319 Error: dzVents: Error: (3.0.15) Rookmelders Test: There is no device with that name or id: Rookmelder_boven (Test)

Code: Select all

2020-11-28 12:36:27.812 Error: (Zigbee2MQTT) A Zigbee publish error occured for device 'Rookmelder_zolder' with error message: Publish 'set' 'sensitivity' to 'Rookmelder_zolder' failed: 'Error: Write 0x00158d000358480c/1 ssIasZone({"65521":{"value":67239936,"type":35}}, {"timeout":35000,"disableResponse":false,"disableRecovery":false,"disableDefaultResponse":true,"direction":0,"srcEndpoint":null,"reservedBits":0,"manufacturerCode":4447,"transactionSequenceNumber":null}) failed (Timeout - 21785 - 1 - 9 - 1280 - 4 after 35000ms)'

Code: Select all

local Rookmelders = {'Rookmelder_beneden (Test)','Rookmelder_boven (Test)','Rookmelder_zolder (Test)'}

Code: Select all

--[[
        Script to (self)test smoke detectors once a month.

        test is repeated for a user defined times if a timeout error message is in the log file after the test.

        test API calls
        http://<domoticz IP:domoticz port>/json.htm?type=command&param=addlogmessage&message=Rookmelder_beneden%20%28Test%29%20failed&level=4
        http://<domoticz IP:domoticz port>/json.htm?type=command&param=addlogmessage&message=Rookmelder_boven%20%28Test%29%20failed&level=4
        http://<domoticz IP:domoticz port>/json.htm?type=command&param=addlogmessage&message=Rookmelder_zolder%20%28Test%29%20failed&level=4

        history:
        20201114 Initial code from gschmidt
        20201128 Add log check
        20201129 Loop over devices

]]--

local scriptVar = 'Monthly smokedetector selftest'
return
{
    on =
    {
        timer =
        {
            'at 17:30 on 15/*',
            -- 'at 21:21', -- Just for test. Can be removed
        },
        httpResponses =
        {
            scriptVar .. '*',
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG, -- set to domoticz.LOG_ERROR when all OK
        marker = scriptVar,
    },

    execute = function(dz, item)

        --- Your settings below this line

        local smokeDetectors = {'Rookmelder_beneden (Test)','Rookmelder_boven (Test)','Rookmelder_zolder (Test)'}
        local maxRetries = 3
        local timeOut = 45

        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 logLevel = { all = 268435455, normal = 1, status = 2, error = 4 }
        local deviceName, callback
        local delay = timeOut + 5

        local function getIndex(t, v)
            for key, value in pairs(t) do
               if v == value then return key end
            end
        end

        local function askDomoticzForLogLines(callback, lastLogTime, delay)
            local jsonString = '/json.htm?type=command' .. '&param=getlog' .. '&lastlogtime=' .. lastLogTime .. '&loglevel=' ..  logLevel.error
            local logURL      =  dz.settings['Domoticz url'] .. jsonString
            dz.openURL  (
            {
                url      = logURL,
                callback = callback,
            }).afterSec(delay)
        end

        local function triggerTestControl(index, try)
            if index > #smokeDetectors then return end
            local callback = scriptVar .. ' (' .. smokeDetectors[index] .. ') ' .. try
            dz.devices(smokeDetectors[index]).switchOn()
            askDomoticzForLogLines(callback, os.time() , delay )
        end

        if item.isTimer then
            triggerTestControl(1,1)
        elseif item.isHTTPResponse and item.isJSON then
            local deviceName = item.trigger:match("%b()"):sub(2,-2):gsub('%s*$','') -- remove () and trailing space
            local timeoutCount = tonumber( item.trigger:sub(-1,-1) )
            local found = false
            local withoutMagic = true
            local timedOut = 'failed'

            if item.json.result then
                for _, logLine in ipairs(item.json.result) do
                    if logLine.message:find(deviceName, 1, withoutMagic ) and logLine.message:find(timedOut, 1, withoutMagic) then
                        found = true
                        break
                    end
                end

                if found then
                    if timeoutCount < maxRetries then
                        triggerTestControl(getIndex(smokeDetectors, deviceName), timeoutCount + 1)
                    else
                        local msg = 'Selftest for ' .. deviceName .. ' timed out for ' .. timeoutCount .. ' times; Giving up now!'
                        dz.log(msg, dz.LOG_ERROR)
                        dz.notify(scriptVar, msg, dz.PRIORITY_HIGH, nil, nil, myNotificationTable)
                        triggerTestControl(getIndex(smokeDetectors, deviceName) + 1, 1)
                    end
                    return
                end
            end
            local msg = 'Selftest for ' .. deviceName .. ' OK'
            dz.log(msg, dz.LOG_DEBUG)
            dz.notify(scriptVar, msg, dz.PRIORITY_NORMAL, nil, nil, myNotificationTable)
            triggerTestControl(getIndex(smokeDetectors, deviceName) + 1, 1)
        else
            dz.log('Access problem to log', dz.LOG_ERROR)
            dz.log(item, dz.LOG_DEBUG)
        end
    end
}