Domoticz

Code: Select all

local NAME = ''
local LATITUDE = 0
local LONGITUDE = 0
local ALTITUDE = 0
local SPEED = 0
local SPEEDLIMIT = 120
local COURSE = 0
local TIME = 0

return {
    active = true,
--      active = false,

    on = {
        timer = {
--          'every minute',
            'at *:01',
        },
            variables = {
                  'Location',
              },
        devices = {
            'Dummy Action',
        },
    },
    logging = {
        level = domoticz.LOG_INFO,
--      level = domoticz.LOG_DEBUG,
        marker = "Traccar-test"
    },
    data = {
        Location = { initial = 'XXXX;51.9;5.5;75.1;120.00;314;1722869616000' },
    },

    execute = function(dz, item)

        -- Data from traccar to Domoticz Location variable
        -- {name};{latitude};{longitude};{altitude};{speed};{course};{fixTime}
        local function fillVars(sValue)
            local t = dz.utils.stringSplit(sValue, ';')
            if #t == 7 then
                NAME = t[1]
                LATITUDE = tonumber(t[2])
                LONGITUDE = tonumber(t[3])
                ALTITUDE = tonumber(t[4])
                SPEED = tonumber(t[5])
                COURSE = tonumber(t[6])
                TIME = tonumber(t[7])
                return 0
            else
                return 1
            end
        end
        local function convertTime(nTime)
            return dz.time.timestampToDate(TIME / 1000, 'yyyy-mm-dd time')
        end

        if (item.isVariable) then
            if not fillVars(item.value) then
                return
            end
        elseif (item.isTimer) or (item.isDevice) then
            if not fillVars(dz.data.Location) then
                return
            end
                        dz.log('================================================================================', dz.LOG_FORCE)
            dz.log('Data of '..NAME..' - '..LATITUDE..' - '..LONGITUDE..' - '..ALTITUDE..' - '..SPEED..' - '..COURSE..' - '..
                TIME..' - '.. convertTime(TIME), dz.LOG_FORCE)
                end
        end
}

Code: Select all

-- Calculate distance in km using Haversine formula
function calculateDistance(lat1, lon1, lat2, lon2, ele1, ele2)
    if lat1 == nil or lon1 == nil or lat2 == nil or lon2 == nil then
        return nil
    end
    local dLat = math.rad(lat2 - lat1)
    local dLon = math.rad(lon2 - lon1)
    local a = math.sin(dLat/2)^2 + math.cos(math.rad(lat1)) * math.cos(math.rad(lat2)) * math.sin(dLon/2)^2
    local angle = 2 * math.atan(math.sqrt(a), math.sqrt(1 - a))
    local distance = R * angle
    if ele1 ~= nil and ele2 ~= nil then
        -- Add the elevation to the calculation
        local elevation = 0
        elevation = math.abs(ele1 - ele2) / 1000;  --in km
        if (elevation > 0) then
            distance = math.sqrt(elevation^2 + distance^2 )
        end
    end
    return distance     --distance in km
end