Changeset 49


Ignore:
Timestamp:
2014-09-06 12:38:50 (11 years ago)
Author:
zoot1612
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified branches/UI7/L_DenonReceiver1.lua

    r47 r49  
    2626 
    2727local MODEL = { 
    28     ['300'] = {zones = ""}, 
    29     ['1000'] = {zones = "2"}, 
    30     ['1713'] = {zones = "2"}, 
    31     ['1913'] = {zones = "2"}, 
    32     ['2000'] = {zones = "2"}, 
    33     ['2106'] = {zones = "2"}, 
    34     ['2307'] = {zones = "1"}, 
    35     ['2803'] = {zones = "1"}, 
    36     ['2805'] = {zones = "2"}, 
    37     ['2807'] = {zones = "2"}, 
    38     ['3312'] = {zones = "2,3"}, 
    39     ['3313'] = {zones = "2,3"}, 
    40     ['3803'] = {zones = "1"}, 
    41     ['3805'] = {zones = "1,2"}, 
    42     ['3806'] = {zones = "2,3"}, 
    43     ['3808'] = {zones = "2,3"}, 
    44     ['4000'] = {zones = "2,3"}, 
    45     ['4306'] = {zones = "2,3"}, 
    46     ['4520'] = {zones = "2,3,4"}, 
    47     ['4802'] = {zones = "1"}, 
    48     ['4806'] = {zones = "2,3"}, 
    49     ['5803'] = {zones = "1,2"}, 
    50     ['5805'] = {zones = "2,3,4"} 
     28    ['300'] = {zones = ""}, 
     29    ['1000'] = {zones = "2"}, 
     30    ['1713'] = {zones = "2"}, 
     31    ['1913'] = {zones = "2"}, 
     32    ['2000'] = {zones = "2"}, 
     33    ['2106'] = {zones = "2"}, 
     34    ['2307'] = {zones = "1"}, 
     35    ['2803'] = {zones = "1"}, 
     36    ['2805'] = {zones = "2"}, 
     37    ['2807'] = {zones = "2"}, 
     38    ['3312'] = {zones = "2,3"}, 
     39    ['3313'] = {zones = "2,3"}, 
     40    ['3803'] = {zones = "1"}, 
     41    ['3805'] = {zones = "1,2"}, 
     42    ['3806'] = {zones = "2,3"}, 
     43    ['3808'] = {zones = "2,3"}, 
     44    ['4000'] = {zones = "2,3"}, 
     45    ['4306'] = {zones = "2,3"}, 
     46    ['4520'] = {zones = "2,3,4"}, 
     47    ['4802'] = {zones = "1"}, 
     48    ['4806'] = {zones = "2,3"}, 
     49    ['5803'] = {zones = "1,2"}, 
     50    ['5805'] = {zones = "2,3,4"} 
    5151} 
    5252 
    … …  
    5454------------------------------------------------------------------------------------------ 
    5555local function log (text,level) 
     56 
    5657  luup.log("AVRReceiverPlugin::" .. text,level or 50) 
     58   
    5759end 
    5860------------------------------------------------------------------------------------------ 
    5961function debug (text,level) 
     62 
    6063  if (DEBUG_MODE == true) then 
    6164    log(text,level or 1) 
    6265  end 
     66   
    6367end 
    6468------------------------------------------------------------------------------------------ 
    6569function trim(s) 
     70 
    6671  return s:match "^%s*(.-)%s*$" 
     72   
    6773end 
    6874------------------------------------------------------------------------------------------ 
    6975function listTable(table) 
    70     for k, v in pairs(table) do 
    71         debug('listTable: key: _' .. k .. ' value: _' .. v .. '.') 
    72     end 
     76 
     77    for k, v in pairs(table) do 
     78        debug('listTable: key: _' .. k .. ' value: _' .. v .. '.') 
     79    end 
     80     
    7381end 
    7482------------------------------------------------------------------------------------------ 
    7583function normaliseVolume(device, volume) 
    7684 
    77     quant,frac = math.modf(volume) 
    78     frac = ((device == avr_rec_dev) and (string.format("%.1f", frac) == "0.5")) and "5" or "" 
    79     if ((device ~= avr_rec_dev) and (tonumber(quant) <= tonumber(MIN_VOL_ZONE))) then quant = MIN_VOL_ZONE end 
    80     return (string.format("%02i", quant)..frac) 
     85    quant,frac = math.modf(volume) 
     86    frac = ((device == avr_rec_dev) and (string.format("%.1f", frac) == "0.5")) and "5" or "" 
     87    if ((device ~= avr_rec_dev) and (tonumber(quant) <= tonumber(MIN_VOL_ZONE))) then quant = MIN_VOL_ZONE end 
     88    return (string.format("%02i", quant)..frac) 
    8189 
    8290end 
    … …  
    98106function setMute(device, mute) 
    99107 
    100     local zone = findZone(device) 
    101     local prefix = (zone ~= "ZM") and zone or "" 
    102     AVRReceiverSend(prefix .. "MU" .. mute) 
     108    local zone = findZone(device) 
     109    local prefix = (zone ~= "ZM") and zone or "" 
     110    AVRReceiverSend(prefix .. "MU" .. mute) 
    103111 
    104112end 
    … …  
    106114function setMasterPower(status) 
    107115 
    108     for k, v in pairs(luup.devices) do 
    109         if(v.device_num_parent == avr_rec_dev or k == avr_rec_dev) then 
    110             debug("setMasterPower: Device:" .. k) 
    111             luup.variable_set(DEN_SID,"PowerStatus", status, k) 
    112         end 
    113     end 
     116    for k, v in pairs(luup.devices) do 
     117        if(v.device_num_parent == avr_rec_dev or k == avr_rec_dev) then 
     118            debug("setMasterPower: Device:" .. k) 
     119            luup.variable_set(DEN_SID,"PowerStatus", status, k) 
     120        end 
     121    end 
    114122 
    115123end 
    … …  
    117125function setVolume(device, volume) 
    118126 
    119     local zone = findZone(device) 
    120     local prefix = (zone ~= "ZM") and zone or "MV" 
    121     local current_volume = tonumber(luup.variable_get(REN_SID,"Volume",avr_rec_dev),10) 
    122     if ((tonumber(volume)) ~= nil) then 
    123         volume = normaliseVolume(device, tonumber(volume)) 
    124         AVRReceiverSend(prefix .. volume) 
    125     else 
    126         volume = (volume == "UP") and "UP" or "DOWN" 
    127         AVRReceiverSend(prefix .. volume) 
    128     end 
     127    local zone = findZone(device) 
     128    local prefix = (zone ~= "ZM") and zone or "MV" 
     129    local current_volume = tonumber(luup.variable_get(REN_SID,"Volume",avr_rec_dev),10) 
     130     
     131    if ((tonumber(volume)) ~= nil) then 
     132        volume = normaliseVolume(device, tonumber(volume)) 
     133        AVRReceiverSend(prefix .. volume) 
     134    else 
     135        volume = (volume == "UP") and "UP" or "DOWN" 
     136        AVRReceiverSend(prefix .. volume) 
     137    end 
    129138 
    130139end 
    131140------------------------------------------------------------------------------------------ 
    132141function get_source(input_source) 
    133     for k, v in pairs(g_sourceName) do 
    134         local source = (g_sourceName[k]["source"]) 
    135         debug("get_source: " .. input_source  .. " " .. k .. " " .. source,1) 
    136         if source == input_source then 
    137             return k 
    138         end 
    139     end 
    140     return false 
    141 end 
    142  
     142 
     143    for k, v in pairs(g_sourceName) do 
     144        local source = (g_sourceName[k]["source"]) 
     145        debug("get_source: " .. input_source  .. " " .. k .. " " .. source,1) 
     146        if source == input_source then 
     147            return k 
     148        end 
     149    end 
     150     
     151    return false 
     152     
     153end 
    143154------------------------------------------------------------------------------------------ 
    144155function setInput(device, input_no) 
    145156 
    146     local zone = findZone(device) 
    147     local prefix = (zone ~= "ZM") and zone or "SI" 
    148     local source = "" 
    149  
    150     if(tonumber(input_no,10)~= nil) then 
    151         source = (g_sourceName[tonumber(input_no,10)]["source"]) or false 
    152     else 
    153         for k, v in pairs(g_sourceName) do 
    154             source = g_sourceName[k]["source"] or false 
    155         end 
    156  
    157     end 
    158     if(source ~= false) then 
    159         AVRReceiverSend(prefix .. source) 
    160     end 
     157    local zone = findZone(device) 
     158    local prefix = (zone ~= "ZM") and zone or "SI" 
     159    local source = "" 
     160 
     161    if(tonumber(input_no,10)~= nil) then 
     162        source = (g_sourceName[tonumber(input_no,10)]["source"]) or false 
     163    else 
     164        for k, v in pairs(g_sourceName) do 
     165            source = g_sourceName[k]["source"] or false 
     166        end 
     167    end 
     168     
     169    if(source ~= false) then 
     170        AVRReceiverSend(prefix .. source) 
     171    end 
    161172 
    162173end 
    163174------------------------------------------------------------------------------------------ 
    164175function tablePrint(table, format) 
     176 
    165177  local jsonString = '{\"PRESETS\": [' 
    166  
    167178  local xmlString = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><PRESETS>' 
     179   
    168180  for key, value in pairs(table) do 
    169181    jsonString = jsonString .. '{\"PRESETNO\": \"' .. key .. '\",' .. '\"STATION\": \"' ..  value .. '\"},' 
    170182    xmlString = xmlString .. '<PRESET><PRESETNO>' .. key .. '</PRESETNO><STATION>' ..  value .. '</STATION></PRESET>' 
    171183  end 
     184   
    172185  jsonString = (jsonString:sub(1,-2):len() == 0) and jsonString .. ']}' or jsonString:sub(1,-2) .. ']}' 
    173  
    174186  xmlString = xmlString .. "</PRESETS>" 
    175  
    176     local string = format == "json" and jsonString or xmlString 
     187  local string = format == "json" and jsonString or xmlString 
    177188  return string 
     189   
    178190end 
    179191------------------------------------------------------------------------------------------ 
    180192function callbackHandler(lul_request, lul_parameters, lul_outputformat) 
     193 
    181194  local functionName = "callbackHandler" 
    182195 
    … …  
    190203------------------------------------------------------------------------------------------ 
    191204function handleResponse(data) 
    192     log("handleResponse: data received " .. data) 
    193     local msgFrom = data:sub(1,1) 
    194     local msgType = data:sub(1,2) 
    195  
    196     local msgZone = nil 
    197     local message = "" 
    198     local message_type2 = "" 
    199  
    200     if(data:match("^Z[M?%d].")) then 
    201  
    202         message = data:sub(3) 
    203  
    204         msgZone = findChild(msgType) 
    205         log("handleResponse: message from device: " .. tostring(msgZone)) 
    206         if(message:match("^CV[FCS][LR]%s%d+")) then 
    207             msgType, message_type2 = (message:sub(3)):match("^([FCS][LR])%s(%d+)$") 
    208  
    209         elseif (message:match("^%d+")) then 
    210             msgType = "MV" 
    211             data = data:sub(3) 
    212  
    213         elseif (message:match("^OFF$") or message:match("^ON$")) then 
    214             msgType = "PZ" 
    215  
    216         elseif (message:match("^MUON$") or message:match("^MUOFF$")) then 
    217             msgType = message:sub(1,2) 
    218             data = message:sub(3) 
    219  
    220         elseif (get_source(message) ~= false) then 
    221             msgType = "SI" 
    222             data = data:sub(3) 
    223  
    224         else 
    225             msgType = data:sub(1,2) 
    226             data = data:sub(3) 
    227         end 
    228  
    229     elseif(data:match("^R[%d].*")) then 
    230         msgType = "RR" 
    231         msgZone = avr_rec_dev 
    232  
    233     else 
    234         msgType = data:sub(1,2) 
    235         data = data:sub(3) 
    236         msgZone = avr_rec_dev 
    237  
    238     end 
    239  
    240     if(msgZone == nil) then msgZone = avr_rec_dev end 
    241     log("handleResponse: Data:" .. data .. ' Type:' .. msgType .. ' Zone:' .. msgZone) 
    242     processMessage (data, msgType, msgZone) 
    243     return true 
     205 
     206    log("handleResponse: data received " .. data) 
     207    local msgFrom = data:sub(1,1) 
     208    local msgType = data:sub(1,2) 
     209    local msgZone = nil 
     210    local message = "" 
     211    local message_type2 = "" 
     212 
     213    if(data:match("^Z[M?%d].")) then 
     214 
     215        message = data:sub(3) 
     216 
     217        msgZone = findChild(msgType) 
     218        log("handleResponse: message from device: " .. tostring(msgZone)) 
     219        if(message:match("^CV[FCS][LR]%s%d+")) then 
     220            msgType, message_type2 = (message:sub(3)):match("^([FCS][LR])%s(%d+)$") 
     221 
     222        elseif (message:match("^%d+")) then 
     223            msgType = "MV" 
     224            data = data:sub(3) 
     225 
     226        elseif (message:match("^OFF$") or message:match("^ON$")) then 
     227            msgType = "PZ" 
     228 
     229        elseif (message:match("^MUON$") or message:match("^MUOFF$")) then 
     230            msgType = message:sub(1,2) 
     231            data = message:sub(3) 
     232 
     233        elseif (get_source(message) ~= false) then 
     234            msgType = "SI" 
     235            data = data:sub(3) 
     236 
     237        else 
     238            msgType = data:sub(1,2) 
     239            data = data:sub(3) 
     240        end 
     241 
     242    elseif(data:match("^R[%d].*")) then 
     243        msgType = "RR" 
     244        msgZone = avr_rec_dev 
     245 
     246    else 
     247        msgType = data:sub(1,2) 
     248        data = data:sub(3) 
     249        msgZone = avr_rec_dev 
     250 
     251    end 
     252 
     253    if(msgZone == nil) then msgZone = avr_rec_dev end 
     254    log("handleResponse: Data:" .. data .. ' Type:' .. msgType .. ' Zone:' .. msgZone) 
     255    processMessage (data, msgType, msgZone) 
     256    return true 
     257     
    244258end 
    245259------------------------------------------------------------------------------------------ 
    246260local RECEIVER_RESPONSES = { 
    247261 
    248         ["MV"] = { 
    249         description = "Volume level change", 
    250         handlerFunc = function (self, data, msgZone) 
     262        ["MV"] = { 
     263        description = "Volume level change", 
     264        handlerFunc = function (self, data, msgZone) 
    251265      local volume = data:match("(%d+)") 
    252266      volume = (volume:len() == 3) and tonumber(volume/10) or tonumber(volume) 
    253       volume = (volume == 99) and 0 or volume 
    254             if ((string.find(data, "MAX"))) then 
    255                 log(self.description..": Setting MAX_VOL: " .. volume) 
    256                 MAX_VOL = volume 
    257                 return true 
    258             end 
    259             debug(self.description..": Volume: " .. volume .. " db: " .. (volume-80)) 
    260             luup.variable_set(REN_SID,"VolumeDB",volume-80,msgZone) 
    261             luup.variable_set(REN_SID,"Volume",volume,msgZone) 
    262             return true 
    263         end 
    264     }, 
    265  
    266         ["MU"] = { 
    267         description = "MUTE status change", 
    268         handlerFunc = function (self, data, msgZone) 
    269             log(self.description..": Mute: " .. data) 
    270             if (data == "OFF") then 
    271                 luup.variable_set(REN_SID,"Mute","0",msgZone) 
    272             elseif (data == "ON") then 
    273                 luup.variable_set(REN_SID,"Mute","1",msgZone) 
    274             else 
    275                 log("response: unkown mute command" .. data .. " " .. self.description) 
    276             end 
    277             log("response: data received MU " .. data .. " " .. self.description) 
    278             return true 
    279         end 
     267      volume = (volume == 99) and 0 or volume 
     268            if ((string.find(data, "MAX"))) then 
     269                log(self.description..": Setting MAX_VOL: " .. volume) 
     270                MAX_VOL = volume 
     271                return true 
     272            end 
     273            debug(self.description..": Volume: " .. volume .. " db: " .. (volume-80)) 
     274            luup.variable_set(REN_SID,"VolumeDB",volume-80,msgZone) 
     275            luup.variable_set(REN_SID,"Volume",volume,msgZone) 
     276            return true 
     277        end 
     278    }, 
     279 
     280        ["MU"] = { 
     281        description = "MUTE status change", 
     282        handlerFunc = function (self, data, msgZone) 
     283            log(self.description..": Mute: " .. data) 
     284            if (data == "OFF") then 
     285                luup.variable_set(REN_SID,"Mute","0",msgZone) 
     286            elseif (data == "ON") then 
     287                luup.variable_set(REN_SID,"Mute","1",msgZone) 
     288            else 
     289                log("response: unkown mute command" .. data .. " " .. self.description) 
     290            end 
     291            log("response: data received MU " .. data .. " " .. self.description) 
     292            return true 
     293        end 
    280294    }, 
    281295 
    282296    ["PW"] = { 
    283297    description = "Power status change", 
    284         handlerFunc = function (self, data, msgZone) 
    285             log(self.description ..": Power: " .. data) 
    286             if (string.find(data, "STANDBY")) then 
    287                 setMasterPower("0") 
    288             elseif (string.find(data, "ON")) then 
    289                 setMasterPower("1") 
    290             else 
    291             end 
    292             log("response: data received PW " .. data .. " " .. self.description) 
    293             return true 
    294         end 
     298        handlerFunc = function (self, data, msgZone) 
     299            log(self.description ..": Power: " .. data) 
     300            if (string.find(data, "STANDBY")) then 
     301                setMasterPower("0") 
     302            elseif (string.find(data, "ON")) then 
     303                setMasterPower("1") 
     304            else 
     305            end 
     306            log("response: data received PW " .. data .. " " .. self.description) 
     307            return true 
     308        end 
    295309    }, 
    296310 
    297311    ["PZ"] = { 
    298312    description = "Power status change", 
    299         handlerFunc = function (self, data, msgZone) 
    300             log(self.description ..": Power: " .. data) 
    301             if (string.find(data, "OFF")) then 
    302                 luup.variable_set(SWP_SID,SWP_STATUS,"0",msgZone) 
    303             elseif (string.find(data, "ON")) then 
    304                 luup.variable_set(SWP_SID,SWP_STATUS,"1",msgZone) 
    305             else 
    306             end 
    307             log("response: data received PW " .. data .. " " .. self.description) 
    308             return true 
    309         end 
     313        handlerFunc = function (self, data, msgZone) 
     314            log(self.description ..": Power: " .. data) 
     315            if (string.find(data, "OFF")) then 
     316                luup.variable_set(SWP_SID,SWP_STATUS,"0",msgZone) 
     317            elseif (string.find(data, "ON")) then 
     318                luup.variable_set(SWP_SID,SWP_STATUS,"1",msgZone) 
     319            else 
     320            end 
     321            log("response: data received PW " .. data .. " " .. self.description) 
     322            return true 
     323        end 
    310324    }, 
    311325 
    … …  
    313327    description = "INPUT source change", 
    314328    handlerFunc = function (self, data, msgZone) 
    315             log(self.description..": Input Source: " .. data) 
    316             luup.variable_set(DEN_SID,"Input",data,msgZone) 
    317             local source =get_source(data) or " Unknown" 
    318             --luup.variable_set(IPS_IID,"Source","Input"..source,msgZone) 
    319             luup.variable_set(DEN_SID,"Source","Input"..source,msgZone) 
    320             log("response: data received SI " .. data .. " " .. self.description) 
    321             return true 
    322             end 
     329            log(self.description..": Input Source: " .. data) 
     330            luup.variable_set(DEN_SID,"Input",data,msgZone) 
     331            local source =get_source(data) or " Unknown" 
     332            --luup.variable_set(IPS_IID,"Source","Input"..source,msgZone) 
     333            luup.variable_set(DEN_SID,"Source","Input"..source,msgZone) 
     334            log("response: data received SI " .. data .. " " .. self.description) 
     335            return true 
     336            end 
    323337    }, 
    324338 
    … …  
    326340    description = "VIDEO source change", 
    327341    handlerFunc = function (self, data, msgZone) 
    328             log(self.description..": Video Source: " .. data) 
    329             luup.variable_set(DEN_SID,"Video",data,msgZone) 
    330             log("response: data received SV " .. data .. " " .. self.description) 
    331             return true 
    332             end 
     342            log(self.description..": Video Source: " .. data) 
     343            luup.variable_set(DEN_SID,"Video",data,msgZone) 
     344            log("response: data received SV " .. data .. " " .. self.description) 
     345            return true 
     346            end 
    333347    }, 
    334348 
    … …  
    336350    description = "SURROUND mode change", 
    337351    handlerFunc = function (self, data, msgZone) 
    338             log(self.description..": Surround: " .. data) 
    339             luup.variable_set(DEN_SID,"Surround",data,msgZone) 
    340             log("response: data received MS " .. data .. " " .. self.description) 
    341             return true 
    342             end 
     352            log(self.description..": Surround: " .. data) 
     353            luup.variable_set(DEN_SID,"Surround",data,msgZone) 
     354            log("response: data received MS " .. data .. " " .. self.description) 
     355            return true 
     356            end 
    343357    }, 
    344358 
    … …  
    346360    description = "SETUP function name", 
    347361    handlerFunc = function (self, data, msgZone) 
    348             if (data:sub(1,3) == "FUN") then 
    349                 data = data:sub(4) 
    350                 local source, name = data:match("^(.-)%s(.+)$") 
    351                 name = trim(name):gsub("\\","\\\\") 
    352                 log("handlerFunction: data received SS source:" .. source .. ":source name:" .. name ..":") 
    353                 if (not tostring(source):find("^%s*$")) then 
    354                     table.insert(g_sourceName,({["source"] = source,["name"] = name})) 
    355                     debug(self.description..": Length of table: " .. #g_sourceName .. " Source name: " .. source) 
    356                 end 
    357             end 
    358             if (data:sub(1,3) == "TPN") then 
    359                 local source = data:sub(4,5) 
    360                 local name = trim((data:sub(6))) 
    361                 log("handlerFunction: data received SS tuner preset:" .. source .. ":tuner freq:" .. name ..":") 
    362                 if (not tostring(source):find("^%s*$")) then 
    363                     g_tuner[source] = name 
    364                     debug(self.description  .. ": Preset name: " .. source .. " Freq: _" .. name .. "_.") 
    365                 end 
    366             end 
    367             if (data:sub(1,3) == "XPN") then 
    368                 local source = data:sub(4,5) 
    369                 local name = trim((data:sub(6))) 
    370                 log("handlerFunction: data received SS XM preset:" .. source .. ":XM name:" .. name ..":") 
    371                 if (not tostring(source):find("^%s*$")) then 
    372                     g_xm[source] = name 
    373                     debug(self.description ..  ": Preset name: " .. source .. " XM Channel: _" .. name .. "_.") 
    374                 end 
    375             end 
    376             return true 
    377         end 
     362            if (data:sub(1,3) == "FUN") then 
     363                data = data:sub(4) 
     364                local source, name = data:match("^(.-)%s(.+)$") 
     365                name = trim(name):gsub("\\","\\\\") 
     366                log("handlerFunction: data received SS source:" .. source .. ":source name:" .. name ..":") 
     367                if (not tostring(source):find("^%s*$")) then 
     368                    table.insert(g_sourceName,({["source"] = source,["name"] = name})) 
     369                    debug(self.description..": Length of table: " .. #g_sourceName .. " Source name: " .. source) 
     370                end 
     371            end 
     372            if (data:sub(1,3) == "TPN") then 
     373                local source = data:sub(4,5) 
     374                local name = trim((data:sub(6))) 
     375                log("handlerFunction: data received SS tuner preset:" .. source .. ":tuner freq:" .. name ..":") 
     376                if (not tostring(source):find("^%s*$")) then 
     377                    g_tuner[source] = name 
     378                    debug(self.description  .. ": Preset name: " .. source .. " Freq: _" .. name .. "_.") 
     379                end 
     380            end 
     381            if (data:sub(1,3) == "XPN") then 
     382                local source = data:sub(4,5) 
     383                local name = trim((data:sub(6))) 
     384                log("handlerFunction: data received SS XM preset:" .. source .. ":XM name:" .. name ..":") 
     385                if (not tostring(source):find("^%s*$")) then 
     386                    g_xm[source] = name 
     387                    debug(self.description ..  ": Preset name: " .. source .. " XM Channel: _" .. name .. "_.") 
     388                end 
     389            end 
     390            return true 
     391        end 
    378392    }, 
    379393 
    … …  
    381395    description = "Model number", 
    382396    handlerFunc = function (self, data, msgZone) 
    383             if (data:sub(1,2) == "MO") then 
    384                 local modelName = (data:sub(3)):gsub("(%s+)$", "") 
    385                 luup.attr_set("model", modelName, avr_rec_dev) 
    386             end 
    387             return true 
    388         end 
     397            if (data:sub(1,2) == "MO") then 
     398                local modelName = (data:sub(3)):gsub("(%s+)$", "") 
     399                luup.attr_set("model", modelName, avr_rec_dev) 
     400            end 
     401            return true 
     402        end 
    389403    }, 
    390404 
    … …  
    392406    description = "zone names", 
    393407    handlerFunc = function (self, data, msgZone) 
    394             data = trim(data) 
    395             local zone = tonumber(data:sub(2,2)) 
    396             local zonePrefix = data:sub(1,2) 
    397             local zoneName = trim(data:sub(3)) 
    398             zoneName = zoneName ~= '' and zoneName or zonePrefix 
    399             debug(self.description .. ": Zone Prefix:_" .. zonePrefix .. "_ Zone Name:_".. zoneName .. "_.") 
    400             g_zones[zone] = zoneName 
    401             --listTable(g_zones) 
    402             return true 
    403         end 
     408            data = trim(data) 
     409            local zone = tonumber(data:sub(2,2)) 
     410            local zonePrefix = data:sub(1,2) 
     411            local zoneName = trim(data:sub(3)) 
     412            zoneName = zoneName ~= '' and zoneName or zonePrefix 
     413            debug(self.description .. ": Zone Prefix:_" .. zonePrefix .. "_ Zone Name:_".. zoneName .. "_.") 
     414            g_zones[zone] = zoneName 
     415            --listTable(g_zones) 
     416            return true 
     417        end 
    404418    }, 
    405419 
    … …  
    407421    description = "tuner frequency", 
    408422    handlerFunc = function (self, data, msgZone) 
    409             data = trim(data) 
    410             local zonePrefix = data:sub(1,2) 
    411             local zoneName = trim(data:sub(3)) 
    412             debug(self.description .. ": Freq1:_" .. zonePrefix .. "_ Freq2:_".. zoneName .. "_.") 
    413             return true 
    414         end 
     423            data = trim(data) 
     424            local zonePrefix = data:sub(1,2) 
     425            local zoneName = trim(data:sub(3)) 
     426            debug(self.description .. ": Freq1:_" .. zonePrefix .. "_ Freq2:_".. zoneName .. "_.") 
     427            return true 
     428        end 
    415429    }, 
    416430 
    … …  
    418432    description = "tuner mode", 
    419433    handlerFunc = function (self, data, msgZone) 
    420             data = trim(data) 
    421             local zonePrefix = data:sub(1,2) 
    422             local zoneName = trim(data:sub(3)) 
    423             debug(self.description .. ": Mode1:_" .. zonePrefix .. "_ Mode2:_".. zoneName .. "_.") 
    424             return true 
    425         end 
     434            data = trim(data) 
     435            local zonePrefix = data:sub(1,2) 
     436            local zoneName = trim(data:sub(3)) 
     437            debug(self.description .. ": Mode1:_" .. zonePrefix .. "_ Mode2:_".. zoneName .. "_.") 
     438            return true 
     439        end 
    426440    }, 
    427441 
    … …  
    429443    description = "tuner preset", 
    430444    handlerFunc = function (self, data, msgZone) 
    431             data = trim(data) 
    432             local zonePrefix = data:sub(1,2) 
    433             local zoneName = trim(data:sub(3)) 
    434             debug(self.description .. ": Preset1:_" .. zonePrefix .. "_ Preset2:_".. zoneName .. "_.") 
    435             return true 
    436         end 
     445            data = trim(data) 
     446            local zonePrefix = data:sub(1,2) 
     447            local zoneName = trim(data:sub(3)) 
     448            debug(self.description .. ": Preset1:_" .. zonePrefix .. "_ Preset2:_".. zoneName .. "_.") 
     449            return true 
     450        end 
    437451    } 
    438452 
    … …  
    470484 
    471485local function checkMessage (msg) 
     486 
    472487    if (not msg or msg == "") then 
    473488        log("checkMessage: ERROR: Empty message.") 
    474489        return nil 
    475490    end 
     491     
    476492end 
    477493 
    478494------------------------------------------------------------------------------------------ 
    479495function findZone (lul_device) 
     496 
    480497    log("Trying to find zone for device: " .. lul_device) 
    481498    local DeviceAltId = tostring(luup.devices[lul_device].id) 
    … …  
    483500    debug("DeviceID: " .. lul_device .. ", Parent:"..ParentDevice .. ", Zone: " .. DeviceAltId) 
    484501    return DeviceAltId 
     502     
    485503end 
    486504------------------------------------------------------------------------------------------ 
    487505local function setInitialParameters(avr_rec_dev) 
    488506 
    489     luup.variable_set(DEN_SID,"Version",VERSION,avr_rec_dev) 
    490     AVRReceiverSendIntercept("MS?") 
    491     AVRReceiverSendIntercept("SI?") 
    492     AVRReceiverSendIntercept("SV?") 
    493     AVRReceiverSendIntercept("MU?") 
    494     AVRReceiverSendIntercept("ZM?") 
    495     AVRReceiverSendIntercept("MV?") 
     507    luup.variable_set(DEN_SID,"Version",VERSION,avr_rec_dev) 
     508    AVRReceiverSendIntercept("MS?") 
     509    AVRReceiverSendIntercept("SI?") 
     510    AVRReceiverSendIntercept("SV?") 
     511    AVRReceiverSendIntercept("MU?") 
     512    AVRReceiverSendIntercept("ZM?") 
     513    AVRReceiverSendIntercept("MV?") 
    496514 
    497515end 
    … …  
    499517function findChild(label) 
    500518 
    501     if(label == "ZM") then return avr_rec_dev end 
    502  
    503     for k, v in pairs(luup.devices) do 
    504         if(v.device_num_parent == avr_rec_dev and v.id == label) then 
    505             debug("findChild: " .. v.device_num_parent  .. " " .. avr_rec_dev  .. " " ..  v.id  .. " " ..  label,1) 
    506             return k 
    507         end 
    508     end 
    509  
    510     return false 
     519    if(label == "ZM") then return avr_rec_dev end 
     520 
     521    for k, v in pairs(luup.devices) do 
     522        if(v.device_num_parent == avr_rec_dev and v.id == label) then 
     523            debug("findChild: " .. v.device_num_parent  .. " " .. avr_rec_dev  .. " " ..  v.id  .. " " ..  label,1) 
     524            return k 
     525        end 
     526    end 
     527 
     528    return false 
     529     
    511530end 
    512531------------------------------------------------------------------------------------------ 
    513532function processInterceptedMessage(command) 
    514     command = (command:sub(1,2) == "RR") and command:sub(1,1) or command:sub(1,2) 
     533 
     534    command = (command:sub(1,2) == "RR") and command:sub(1,1) or command:sub(1,2) 
    515535 
    516536  while true do 
    517         data = luup.io.read() 
    518         if (data ~= nil) then 
    519             local result = (data:sub(1,1) == 'R') and data:sub(1,1) or data:sub(1,2) 
    520             if (command ~= result) then 
    521                 handleResponse(data) 
    522                 luup.io.intercept() 
    523             else 
    524                 return handleResponse(data) 
    525             end 
    526         end 
    527     end 
    528     return false 
     537        data = luup.io.read() 
     538        if (data ~= nil) then 
     539            local result = (data:sub(1,1) == 'R') and data:sub(1,1) or data:sub(1,2) 
     540            if (command ~= result) then 
     541                handleResponse(data) 
     542                luup.io.intercept() 
     543            else 
     544                return handleResponse(data) 
     545            end 
     546        end 
     547    end 
     548    return false 
    529549 
    530550end 
    531551------------------------------------------------------------------------------------------ 
    532552function AVRReceiverSendIntercept(command) 
    533     luup.sleep(200) 
     553 
     554    luup.sleep(200) 
    534555    local dataSize = string.len(command) 
    535556    assert(dataSize <= 135) 
    … …  
    550571local function createZones(avr_rec_dev) 
    551572 
    552     log("createZones: Starting") 
    553  
    554     child_devices = luup.chdev.start(avr_rec_dev) 
    555  
    556     local detected_model = luup.attr_get("model", avr_rec_dev) 
    557     local modelNumber = string.match(detected_model, "%d+") 
    558     local manual_zones = luup.variable_get(DEN_SID, "Zones", avr_rec_dev) 
    559     local zones = "" 
    560  
    561     if (not manual_zones or manual_zones == "") then 
    562         luup.variable_set(DEN_SID, "Zones",  "", avr_rec_dev) 
    563     end 
    564  
    565     if(manual_zones == "") then 
    566       zones = (MODEL[modelNumber] ~= nil) and MODEL[modelNumber].zones or "" 
    567     else 
    568       zones = manual_zones or "" 
    569     end 
    570      
    571     local setupStatus = luup.variable_get(DEN_SID, "Setup", avr_rec_dev) or "" 
    572     if (setupStatus == "" or setupStatus == "0") then 
    573         luup.attr_set("name", (detected_model or "AVR") .. '_' ..(g_zones[1]), avr_rec_dev) 
    574     end 
    575      
    576     for zone_num in zones:gmatch("%d+") do 
    577         local autoName = g_zones[tonumber(zone_num)] 
    578         zoneName = (detected_model or 'AVR') .. '_' .. autoName 
    579         DEVICEFILE_DENON_AVR_CONTROL = luup.attr_get("device_file", avr_rec_dev) 
    580         luup.chdev.append(avr_rec_dev,child_devices, "Z" .. zone_num,zoneName,DEVICETYPE_DENON_AVR_CONTROL,DEVICEFILE_DENON_AVR_CONTROL,"I_DenonReceiver1.xml","",true) 
    581         debug("createZone: Zone number:" .. zone_num .. " Zone name:" .. zoneName .. ".",1) 
    582     end 
     573    log("createZones: Starting") 
     574 
     575    child_devices = luup.chdev.start(avr_rec_dev) 
     576 
     577    local detected_model = luup.attr_get("model", avr_rec_dev) 
     578    local modelNumber = string.match(detected_model, "%d+") 
     579    local manual_zones = luup.variable_get(DEN_SID, "Zones", avr_rec_dev) 
     580    local zones = "" 
     581 
     582    if (not manual_zones or manual_zones == "") then 
     583        luup.variable_set(DEN_SID, "Zones",  "", avr_rec_dev) 
     584    end 
     585 
     586    if(manual_zones == "") then 
     587      zones = (MODEL[modelNumber] ~= nil) and MODEL[modelNumber].zones or "" 
     588    else 
     589      zones = manual_zones or "" 
     590    end 
     591     
     592    local setupStatus = luup.variable_get(DEN_SID, "Setup", avr_rec_dev) or "" 
     593    if (setupStatus == "" or setupStatus == "0") then 
     594        luup.attr_set("name", (detected_model or "AVR") .. '_' ..(g_zones[1]), avr_rec_dev) 
     595    end 
     596     
     597    for zone_num in zones:gmatch("%d+") do 
     598        local autoName = g_zones[tonumber(zone_num)] 
     599        zoneName = (detected_model or 'AVR') .. '_' .. autoName 
     600        DEVICEFILE_DENON_AVR_CONTROL = luup.attr_get("device_file", avr_rec_dev) 
     601        luup.chdev.append(avr_rec_dev,child_devices, "Z" .. zone_num,zoneName,DEVICETYPE_DENON_AVR_CONTROL,DEVICEFILE_DENON_AVR_CONTROL,"I_DenonReceiver1.xml","",true) 
     602        debug("createZone: Zone number:" .. zone_num .. " Zone name:" .. zoneName .. ".",1) 
     603    end 
    583604 
    584605    luup.chdev.sync(avr_rec_dev,child_devices) 
    585606 
    586     for k, v in pairs(luup.devices) do 
    587         if(v.device_num_parent == avr_rec_dev) then 
    588           AVRReceiverSendIntercept(v.id .. "?") 
    589           AVRReceiverSendIntercept(v.id .. "MU?") 
    590           debug("createZone: Device number:" .. k .. " Device name:" .. v.id .. ".",1) 
    591         end 
    592     end 
     607    for k, v in pairs(luup.devices) do 
     608        if(v.device_num_parent == avr_rec_dev) then 
     609          AVRReceiverSendIntercept(v.id .. "?") 
     610          AVRReceiverSendIntercept(v.id .. "MU?") 
     611          debug("createZone: Device number:" .. k .. " Device name:" .. v.id .. ".",1) 
     612        end 
     613    end 
    593614 
    594615  return true 
    … …  
    596617end 
    597618------------------------------------------------------------------------------------------ 
    598 --misc 
    599 ------------------------------------------------------------------------------------------ 
    600 local function miscSetup(avr_rec_dev) 
    601  
    602     log("miscSetup: Starting") 
    603  
    604   --[[ 
    605     if(modelNumber ~= "4520") then 
    606       AVRReceiverSendIntercept("SSTPN ?")  --preset info (tuner) 
    607       AVRReceiverSendIntercept("SSXPN ?")  --preset info (XM) 
    608     end 
    609     AVRReceiverSendIntercept("NSE")  --Display info ASCII 
    610   ]]-- 
    611  
    612     return true 
    613  
    614 end 
    615 ------------------------------------------------------------------------------------------ 
    616619--Connection Setup 
    617620------------------------------------------------------------------------------------------ 
    618621local function connectionType() 
    619     local ip = luup.devices[avr_rec_dev].ip or "" 
    620     if (ip == "") then 
    621         log("connectionType: Running on Serial.") 
    622     else 
    623         local ipAddress, port = ip:match("^([^:]+):?(%d-)$") 
    624         if (ipAddress and ipAddress ~= "") then 
    625             if (not port or port == "") then 
    626         port = 23 
    627       else 
    628         port = tonumber(port, 10) 
     622 
     623  local ip = luup.devices[avr_rec_dev].ip or "" 
     624  if (ip == "") then 
     625    log("connectionType: Running on Serial.") 
     626  else 
     627    local ipAddress, port = ip:match("^([^:]+):?(%d-)$") 
     628    if (ipAddress and ipAddress ~= "") then 
     629      port = (not port or port == "") and 23 or tonumber(port, 10) 
     630      log("connectionType: ipAddress = "..(ipAddress or "nil")..", port = "..(port or "nil")..".") 
     631      luup.io.open(avr_rec_dev, ipAddress, port) 
     632      if( luup.io.is_connected(avr_rec_dev)==false ) then 
     633  return false 
    629634      end 
    630             log("connectionType: ipAddress = "..(ipAddress or "nil")..", port = "..(port or "nil")..".") 
    631         luup.io.open(avr_rec_dev, ipAddress, port) 
    632  
    633             if( luup.io.is_connected(avr_rec_dev)==false ) then 
    634                 return false 
    635             end 
    636  
    637         end 
    638     return true 
    639     end 
     635    end 
     636  return true 
     637  end 
     638   
    640639end 
    641640------------------------------------------------------------------------------------------ 
    … …  
    645644 
    646645  log(":AVR Plugin version " .. VERSION .. ".") 
    647     avr_rec_dev = lul_device 
    648  
    649     luup.attr_set("altid", "ZM", avr_rec_dev) 
    650  
    651     local cj = require("createJSON") 
    652  
    653     if (not connectionType()) then 
    654         return false, "Communications error", "AVR Receiver" 
    655     end 
    656     luup.set_failure(false, lul_device) 
    657  
    658     --Set initial power status 
    659     luup.variable_set(SWP_SID,SWP_STATUS,"0",avr_rec_dev) 
    660  
    661     --Returns power status. 
    662     if (not AVRReceiverSendIntercept("PW?")) then 
    663         return false, "Device not currently available", "AVR Receiver" 
    664     end 
    665  
    666     AVRReceiverSendIntercept("RR?") 
    667     AVRReceiverSendIntercept("SSFUN ?") 
    668     AVRReceiverSendIntercept("SYMO") 
    669  
    670     --main zone initial parameters 
    671     setInitialParameters(avr_rec_dev) 
    672  
    673     createZones(avr_rec_dev) 
    674  
    675     local setupStatus = luup.variable_get(DEN_SID, "Setup", avr_rec_dev) or "" 
    676     if (setupStatus == "" or setupStatus == "0") then 
    677         local status = cj.create_static_json(g_sourceName, avr_rec_dev) 
    678         if (status == true) then 
    679             luup.variable_set(DEN_SID, "Setup",  "1", avr_rec_dev) 
    680         end 
    681     end 
    682  
    683     luup.register_handler("callbackHandler", "tuner") 
    684     luup.register_handler("callbackHandler", "xm") 
    685  
    686     return true, "Startup successful.", "AVR Receiver" 
    687  
    688 end 
    689  
     646    avr_rec_dev = lul_device 
     647 
     648    luup.attr_set("altid", "ZM", avr_rec_dev) 
     649 
     650    local cj = require("createJSON") 
     651 
     652    if (not connectionType()) then 
     653        return false, "Communications error", "AVR Receiver" 
     654    end 
     655    luup.set_failure(false, lul_device) 
     656 
     657    --Set initial power status 
     658    luup.variable_set(SWP_SID,SWP_STATUS,"0",avr_rec_dev) 
     659 
     660    --Returns power status. 
     661    if (not AVRReceiverSendIntercept("PW?")) then 
     662        return false, "Device not currently available", "AVR Receiver" 
     663    end 
     664 
     665    AVRReceiverSendIntercept("RR?") 
     666    AVRReceiverSendIntercept("SSFUN ?") 
     667    AVRReceiverSendIntercept("SYMO") 
     668 
     669    --main zone initial parameters 
     670    setInitialParameters(avr_rec_dev) 
     671 
     672    createZones(avr_rec_dev) 
     673 
     674    local setupStatus = luup.variable_get(DEN_SID, "Setup", avr_rec_dev) or "" 
     675    if (setupStatus == "" or setupStatus == "0") then 
     676        local status = cj.create_static_json(g_sourceName, avr_rec_dev) 
     677        if (status == true) then 
     678            luup.variable_set(DEN_SID, "Setup",  "1", avr_rec_dev) 
     679        end 
     680    end 
     681 
     682    luup.register_handler("callbackHandler", "tuner") 
     683    luup.register_handler("callbackHandler", "xm") 
     684 
     685    return true, "Startup successful.", "AVR Receiver" 
     686 
     687end 
     688 
Note: See TracChangeset for help on using the changeset viewer.