--============================= Z-Range test v1.3 ===============================
--======================== User configurable parameters ===================================
showDevices=false --if set to true, list of unsorted devices will be dispalyed.
fontSize=100 --font size percentage (80-150).100% default
--==================================================================================
lgF="<font color=#8ab92d>";gF="<font color=Chartreuse>";yF="<font color=yellow>";ygF="<font color=yellowgreen>";cF="<font color=lightBlue>";bF="<font color=blue>";oF="<font color=orange>";snHC=api.get("/settings/info/")["serialNumber"]
pF="<font color=pink>";wF="<font color=wheat>";rF="<font color=red>";irF="<font color=indianred>";eF="</font>";jDlist={["numDev"]=0,["phDev"]=0,["idColor1"]=lgF,["roomName1"]=api.get("/settings/info/")["hcName"],["pName1"]=snHC}
order={irF,"<font color=#FF8700>","<font color=#FFA500>","<font color=#FFC300>","<font color=#FFE100>","<font color=#FFFF00>",lgF};sn=0;dateRange={min=os.time(),max=0,range}jP={}jMesh={}jF={}badId={}jFnum={}jCntrl={}
credits="<sup><font color=black>123</font>credits:  <span style=background-color:#0059b3> @10der</span> <span style=background-color:#0059b3>@Alex</span></sup>";byRoom={}roomDev={}roomEff={}
nStat={["ok"]=lgF.."ok"..eF,["error"]=irF.."error"..eF,["in progress"]=cF.."inProgress"..eF,["pending"]=yF.."pending"..eF};endStr={"<br>","","",""};absent="<font color=grey>";hMax=0
tHeader={" # ","Parent ID:Description","Last Route","iRoute","iSee","Status","Time Stamp","24History"};dNum={0,0,0};dMaxLen=0;iSeeTotal=0;iSeeMax=0;iSeeMax1=0;iSeeHC=0;fSize=math.min(math.max(fontSize,80),150)/100
rHeader={" # "," Room Name "," Parent ID:Name "," % ","iSee","Last Route","iRoute","Status","Time Stamp","24History"}
zBuf={}zBuf[1]="<style> .txtLeft {text-align:left;} .dropdown {position:relative; display:table-cell;text-align:left;}"..
  ".drop-content {display:none; position:absolute;padding:5px 5px; border:outset AntiqueWhite; top:20px; right:-10px;background-color:gold; font-weight:bold; line-height:1; font-size:"..11*fSize.."px; text-align:left; color:black; z-index:1;}"..
  ".drop-value {display:none; position:absolute;padding:5px 5px; border:outset AntiqueWhite; top:20px; right:15px; background-color:black; line-height:1.2; font-size:"..10.5*fSize.."px; text-align:left; color:yellow; z-index:1;}"..
  ".dropdown:hover .drop-content {display:block;} .dropdown:hover .drop-value {display:block; text-align:left;background-color:black;}"..
  " tr {background-color:#1a1a1a;} td {padding:0px 3px;border:1px solid dimgray;font-size:"..11*fSize.."px;} th,td {text-align:center;} tr:hover {background-color:#001a33;} td:hover {background-color:#554D06;} "..
  " th {border-collapse:collapse;padding:2px;border:2px solid dimgray;font-size:"..12*fSize.."px;font-weight:normal;background-color:DarkSlateGrey;} table {table-layout: fixed; border-collapse: collapse;border: 1px solid black;} </style>"
function getRoom(roomId) return roomId==0 and "Unassigned" or api.get("/rooms/"..roomId)["name"] end 
function getWeekSpot() local wSpot,zLevel,tmpRoom=":",{},{}
  for w=1,#jP do iSeeLvl=300;did=nil
    for i=1,#jP do 
      if not wSpot:find(":"..jP[i]..":") and not zLevel[jDlist["childRoom"..jP[i]]] then 
        if jDlist["iSee"..jP[i]]>0 then iSeeIn=jDlist["iSee"..jP[i]] else iSeeIn=200 end
        iSeeLvl=math.min(iSeeLvl,iSeeIn);if iSeeLvl==iSeeIn then did=jP[i] end end
    end
    if did then wSpot=wSpot..did..":";zLevel[jDlist["childRoom"..did]]="found";tmpRoom[#tmpRoom+1]=jDlist["childRoom"..did];roomDev[jDlist["childRoom"..did]]={};roomEff[jDlist["childRoom"..did]]=0;dIn=0;pNum=0 
        for i=1,#jP do if jDlist["childRoom"..did]==jDlist["childRoom"..jP[i]] then dIn=dIn+1
         if jDlist["iSee"..jP[i]]>0 then pNum=pNum+1; 
          roomEff[jDlist["childRoom"..did]]=roomEff[jDlist["childRoom"..did]]+math.min(99,math.ceil(jDlist["iSee"..jP[i]]/iSeeAvg*100)) end
          roomDev[jDlist["childRoom"..did]][dIn]=jDlist["iSee"..jP[i]]*10000+jP[i] end end
       roomEff[jDlist["childRoom"..did]]=math.ceil(roomEff[jDlist["childRoom"..did]]/pNum)
       table.sort(roomDev[jDlist["childRoom"..did]]) end
  end   
  for w=1,#tmpRoom do iSeeLvl=300;did=nil
     for i=1,#tmpRoom do  if not json.encode(byRoom):find(tmpRoom[i]:gsub("[%?%(%)%+%-%*%[%]%$]",function (a) return "%"..a end)) then
       if roomEff[tmpRoom[i]]>0 then iSeeIn=roomEff[tmpRoom[i]] else iSeeIn=200 end
          iSeeLvl=math.min(iSeeLvl,iSeeIn);if iSeeLvl==iSeeIn then did=i end end
     end
    if did then byRoom[#byRoom+1]=tmpRoom[did] end 
 end
end --=============================================  
function percentTrueColor(percent,msg) if percent<=25 then pClr=lgF elseif percent<=50 then pClr=yF elseif percent<=75 then pClr=oF else pClr=rF end return  pClr..msg.."%"..eF end 
function percentColor(percent,msg) if percent<=25 then pClr=rF elseif percent<=50 then pClr=oF elseif percent<=75 then pClr=yF else pClr=lgF end
  return tostring(percent)=="-nan" and absent..(msg or "").."na"..eF or pClr..(msg or "")..percent.."%"..eF end -- ================================
--====================================================
function getData(i,j) local x=0
  if j.parentId>1 then if not jDlist[j.parentId] then jDlist[j.parentId]=" "..bF..(#j.properties.zwaveCompany>2 and j.properties.zwaveCompany or "Unknown") .."<sup> v"..j.properties.zwaveVersion..eF.."</sup> <br><br>" end 
    jDlist["childRoom"..j.parentId]=(jDlist["childRoom"..j.parentId] or getRoom(j.roomID))
    jDlist["childName"..j.parentId]=(jDlist["childName"..j.parentId] or j.name)
    jDlist["numDev"]=jDlist["numDev"]+1;
    for k=#hist,1,-1 do if hist[k]["deviceID"]==j.id then x=x+1 end end 
    jDlist[j.parentId]=jDlist[j.parentId]..bF..string.format("%4d",j.id)..eF..":"..j.name..":"..getRoom(j.roomID)..(x>0 and "<small> ("..x..")</small>"or "").."<br>"     
    jDlist["hist"..j.parentId]=(jDlist["hist"..j.parentId] or 0)+x;hMax=math.max(hMax,jDlist["hist"..j.parentId])
  elseif j.parentId==1 then mStr=json.encode(j.properties.lastWorkingRoute):gsub("[%[%]]","")
    if     #mStr==1 then jDlist["idColor"..j.id]=lgF;mStr="";dNum[1]=dNum[1]+1
    elseif #mStr==0 then jDlist["idColor"..j.id]=irF;mStr="";dNum[3]=dNum[3]+1
    else   mStr=","..mStr:sub(3)..",";_,tmpNum=mStr:gsub(",","");jDlist["idColor"..j.id]=string.format("<font color=#FF%02X00>",255-math.min(4,tmpNum-2)*30);dNum[2]=dNum[2]+1 end
    jDlist["iCtable"..j.id]=j.properties.neighborList;jDlist["pRoute"..j.id]=mStr;jDlist["pName"..j.id]=j.name;jDlist["pRoom"..j.id]=j.roomID;jDlist["roomName"..j.id]=getRoom(j.roomID);jDlist["phDev"]=jDlist["phDev"]+1;dMaxLen=math.max(dMaxLen,#j.name + #jDlist["roomName"..j.id]+6)
    jDlist["nList"..j.id]=j.properties.neighborListRequestStatus:gsub(".+",function (a) if nStat[a:lower()] then return nStat[a:lower()] else return a end end)
    if j.properties.lastWorkingRouteResponseTimestamp > 0 then dateRange.min=math.min(dateRange.min,j.properties.lastWorkingRouteResponseTimestamp);dateRange.max=math.max(dateRange.min,j.properties.lastWorkingRouteResponseTimestamp) end
    jDlist["nDate"..j.id]=jDlist["idColor"..j.id]..os.date("%b/%d/%y %X",j.properties.lastWorkingRouteResponseTimestamp):gsub(".+",function (a) if a:find("01/70") then return "out of date" else return a end end)..eF;
    if #j.properties.neighborList>0 then iSeeNumDev=(iSeeNumDev or 0) +1; iSeeTotal=iSeeTotal+ #j.properties.neighborList end
    jDlist["iSee"..j.id]=#j.properties.neighborList;iSeeMax=math.max(iSeeMax,jDlist["iSee"..j.id]);if j.properties.neighborList[1]==1 then iSeeHC=iSeeHC+1 else iSeeMax1=math.max(iSeeMax1,jDlist["iSee"..j.id]) end end
end --========================== 
if not debug then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages") end
print(ygF.."Retrieving working routes and neighbors mesh data...</font>")
hist=api.get("/panels/history?&from="..os.time()-24*3600 .."&to="..os.time())
print(ygF.."Retrieving history of last 24 hours...</font>")
for i,j in pairs(api.get("/devices/")) do if j.id==1 or not j.parentId or j.parentId==0 or not j.properties.nodeId then goto nextId end; 
  st,res=pcall(getData,i,j)
  if not st then jDlist["pName"..j.id]="Corrupt";jDlist["roomName"..j.id]="Device";jDlist["idColor"..j.id]=nil --"<font color=grey>"
    badId[#badId+1]=rF.."<u>/api/devices/"..j.id.." </u></font>"..wF.." mesh data coruppted: "..res:gsub(".-:(%d+):",function(a) return "lua."..a..":" end).."</font>" 
  else if j.parentId==1 then 
  if not tonumber(j.properties.zwaveInfo:match("(%d+),.+")) or tonumber(j.properties.zwaveInfo:match("(%d+),.+"))<=2 then jCntrl[#jCntrl+1]=j.id else jP[#jP+1]=j.id; end end
  end 
::nextId:: end iSeeAvg=math.ceil(iSeeTotal/iSeeNumDev);iSeeTotal=0;hFactor=math.floor(99/(math.floor(hMax/#hist*1000)/10)*100)/100
dateRange.range=wF.."<font color=black>12</font>Devices: masters="..jDlist["phDev"].." slaves="..jDlist["numDev"].."<font color=black>123</font><small>Data date range: "..os.date("%d %b %Y   -   ",dateRange.min)..os.date("%d %b %Y</font></small>",dateRange.max)
for _,j in ipairs(jP) do 
  if jDlist["childRoom"..j] then jDlist["roomName"..j]=(jDlist["roomName"..j]:match("Unassigned") and "("..jDlist["childRoom"..j]..")" or jDlist["roomName"..j]) end 
  if jDlist["childName"..j] then jDlist["pName"..j]=(tonumber(jDlist["pName"..j]) and "("..jDlist["childName"..j]..")" or jDlist["pName"..j]) end
  iSeeTotal=iSeeTotal+math.ceil(math.min(jDlist["iSee"..j],iSeeAvg));
  jDlist["mStyle"..j]=">";sMod=math.min(4,math.ceil(#jDlist["iCtable"..j]/10))     
  if sMod>1 then jDlist["mStyle"..j]="style='position:fixed;top:auto;bottom:10px;right:40px;'>" end 
  for i=1,#jDlist["iCtable"..j] do inId=tostring(jDlist["iCtable"..j][i]); 
    if not jDlist["idColor"..inId] then jFnum[inId]=(jFnum[inId] or 0 ) +1;
      jF[inId]=(jF[inId] or "")..(jDlist["idColor"..j] or absent)..string.format(((jDlist["idColor"..j] or absent):match(absent) or cF).."<b>%4s</b></font>%-"..dMaxLen.."s",j,":"..jDlist["pName"..j]..":"..jDlist["roomName"..j])..eF..endStr[(jFnum[inId] % 2)+1]
      if not json.encode(badId):find(":"..inId.."<") then badId[#badId+1]=rF.."<u>Device:"..inId..eF.."</u>"..wF.." found in routes table, but not in system's devices !</font>" end
    end jDlist["iCdev"..j]=(jDlist["iCdev"..j] or "")..(jDlist["idColor"..inId] or absent)..string.format(((jDlist["idColor"..inId] or absent):match(absent) or cF).."<b>%4s</b></font>%-"..dMaxLen.."s",inId,":"..(jDlist["pName"..inId] or "Absent")..":"..(jDlist["roomName"..inId] or "Device"))..endStr[(i % sMod)+1]..eF end end
cIndex=wF.."Table color index:<br>\t"..irF..dNum[3].." Device(s) unknown working route."..eF.."<br>\t"..yF..dNum[2]..eF.." device(s) in shades <font color=#FF8700>orange "..eF.."<font color=#FFC300>to </font><font color=#FFFF00>yellow "..eF.."in descending order of nodes number in route.<br>\t"..
  lgF..dNum[1].." Device(s) in direct route to controller.</font><br><br>"..eF..cF.."<i>Z-Capacity: "..math.ceil(jDlist["phDev"]/232*100).."%</i></font>"
zBuf[#zBuf+1]="<h><p class='dropdown'><u><font color=sandybrown><font size=4>"..api.get("/settings/info/")["hcName"].."</u></font><font size=3><sup>"..snHC.."</sup></font><span class='drop-value' style='right:auto;left:auto;'>"..cIndex.."</span></p> efficiency:</font> "
if dNum[3]>0 then zBuf[#zBuf+1]=wF.."<p class='dropdown'><u><font size=2>HC2 location "..percentColor(math.min(100,math.ceil(iSeeHC/jDlist["phDev"]*100))).."/"..percentColor(math.min(100,math.ceil(iSeeHC/(dNum[1]+dNum[2])*100))).."  Devices location "..
   percentColor(math.min(100,math.ceil(iSeeTotal/(jDlist["phDev"]*iSeeAvg)*100))).."/"..percentColor(math.min(100,math.ceil(iSeeTotal/((jDlist["phDev"]-dNum[3])*iSeeAvg)*100)))..
    "</font></u></font><span class='drop-value'>\t  Percentage calculations color index:<br><br>"..wF.."First  % - includes "..irF..dNum[3]..eF.." devices with no routes & neighbors data<br>Second % - excludes devices above</font></span></p></h><table>"
else zBuf[#zBuf+1]=wF.."HC2 location "..percentColor(math.min(100,math.ceil(iSeeHC/jDlist["phDev"]*100))).."    Devices location "..percentColor(math.min(100,math.ceil(iSeeTotal/(jDlist["phDev"]*iSeeAvg)*100))).."</font></h><table>" end
jMesh["iRouteMax"]=0
for _,j in ipairs(jP) do if not jMesh["iRoute"..j] then jMesh["iRoute"..j]="";jMesh[j]=0 end
  for i=1,#jP do if jDlist["pRoute"..jP[i]]:find(","..j..",") then jMesh[j]=jMesh[j]+1;jMesh["iRouteMax"]=math.max(jMesh["iRouteMax"],jMesh[j]);jMesh["iRoute"..j]=jMesh["iRoute"..j]..jDlist["idColor"..jP[i]]..string.format("%4s",jP[i])..":"..jDlist["pName"..jP[i]]..":"..jDlist["roomName"..jP[i]]..eF.." <br>"; end end end
if showDevices then
    for i=1,#tHeader do zBuf[#zBuf+1]="<th>"..tHeader[i].."</th>" end;
  for j=1,#order do
 for i=1,#jP do if jDlist["idColor"..jP[i]]==order[j] then sn=sn+1;zBuf[#zBuf+1]="<tr><td>"..wF..sn..eF.."</td>"
   zBuf[#zBuf+1]="<td class=dropdown>"..cF..string.format("%4d",jP[i])..eF..jDlist["idColor"..jP[i]]..":"..jDlist["pName"..jP[i]]..":"..jDlist["roomName"..jP[i]]..eF.."<span class='drop-content'>"..jDlist[jP[i]]:sub(1,-5).." </span></td>"
     if not jDlist["pRoute"..jP[i]]:find(",") then zBuf[#zBuf+1]="<td></td>" else
        zBuf[#zBuf+1]="<td class=dropdown style='text-align:center;'>"..jDlist["idColor"..jP[i]]..jDlist["pRoute"..jP[i]]:sub(2,-2):gsub("(%d+)",function(a) return jF[a] and absent..a..eF or a end)..eF.."<span class='drop-value'>"..
          jDlist["pRoute"..jP[i]]:gsub("(%d+),",function(a) return (jDlist["idColor"..a] or absent)..string.format((jDlist["idColor"..a] and cF or absent).."<b>%4d</b></font>",a)..":"..(jDlist["pName"..a] or "Absent")..":"..(jDlist["roomName"..a] or "Device").."</font><br>" end):sub(2).."</span></td>" end 
   tmpNum=math.max(0,255-(math.floor(150/jMesh["iRouteMax"]*jMesh[jP[i]])));
   if jMesh[jP[i]]>0 then zBuf[#zBuf+1]="<td class=dropdown style='text-align:center;'>"..string.format("<font color=#FF%02X%02X>",tmpNum,tmpNum)..jMesh[jP[i]]..eF.."<span class='drop-value'>"..jMesh["iRoute"..jP[i]]:sub(1,-5).." </span></td>" else zBuf[#zBuf+1]="<td></td>" end
   if jDlist["iSee"..jP[i]]>0 then _,badNum=jDlist["iCdev"..jP[i]]:gsub(absent,"");jDlist["iSee"..jP[i]]=jDlist["iSee"..jP[i]]-badNum/2 end
   tmpNum=math.max(0,255-(math.floor(255/jDlist["phDev"]*jDlist["iSee"..jP[i]])));tmpStr=string.format("<font color=#%02XFF%02X>",tmpNum,tmpNum)
      if jDlist["iSee"..jP[i]]>0 then if not jDlist["iCdev"..jP[i]]:find(":HC2%-") then tmpNum=math.max(0,(math.ceil(200/iSeeMax1*jDlist["iSee"..jP[i]])));tmpStr=string.format("<font color=#FF%02X%02X>",tmpNum,tmpNum) end 
         zBuf[#zBuf+1]="<td class=dropdown>"..tmpStr..string.format("%3d",jDlist["iSee"..jP[i]])..(jDlist["iCdev"..jP[i]]:match(absent) and absent or "").." <sup>"..math.min(99,math.ceil(jDlist["iSee"..jP[i]]/iSeeAvg*100)).."%</sup>"..eF.."<span class='drop-value' "..jDlist["mStyle"..jP[i]]..jDlist["iCdev"..jP[i]].."</span></td>" else zBuf[#zBuf+1]="<td></td>" end
      zBuf[#zBuf+1]="<td>"..jDlist["nList"..jP[i]].."</td>";zBuf[#zBuf+1]="<td>"..jDlist["nDate"..jP[i]].."</td>"
      if jDlist["hist"..jP[i]]>0 then zBuf[#zBuf+1]="<td>"..percentTrueColor(math.floor(jDlist["hist"..jP[i]]/#hist*1000)/10*hFactor,jDlist["hist"..jP[i]].."/"..math.floor(jDlist["hist"..jP[i]]/#hist*1000)/10).."</td></tr>" else zBuf[#zBuf+1]="<td></td></tr>" end end end end
  sIn=0
   for j=1,#jCntrl do did=jCntrl[j];sn=sn+1;zBuf[#zBuf+1]="<tr><td>"..cF..sn..eF.."</td>"
     zBuf[#zBuf+1]="<td class=dropdown>"..cF..string.format("%4d",did)..":"..jDlist["pName"..did]..":"..jDlist["roomName"..did]..eF.."<span class='drop-content'>"..jDlist[tonumber(did)]:sub(1,-5).." </span></td>"
     if j==1 then zBuf[#zBuf+1]="<td colspan=3 rowspan="..#jCntrl..">"..cF.." Controllers + "..eF end --.."</td><td></td><td></td>"
     zBuf[#zBuf+1]="<td>"..jDlist["nList"..did].."</td>";zBuf[#zBuf+1]="<td>"..jDlist["nDate"..did].."</td></tr>" 
   end zBuf[#zBuf+1]="</table><br><font color=sandybrown><font size=3>".."Residence location efficiency (in ascending order)</font></font><table>";
end; getWeekSpot()
for i=1,#rHeader do zBuf[#zBuf+1]="<th>"..rHeader[i].."</th>" end; sn=0
for i=1,#byRoom do sIn=0
  for j=1,#roomDev[byRoom[i]] do sIn=sIn+1;sn=sn+1;zBuf[#zBuf+1]="<tr><td style='font-size:"..9*fSize.."px;'>"..wF..sn.."/"..sIn..eF.."</td>"
    if j==1 then zBuf[#zBuf+1]="<td rowspan="..#roomDev[byRoom[i]]..">"..percentColor(roomEff[byRoom[i]],byRoom[i].." <sup>").."</sup></td>" end
    did=roomDev[byRoom[i]][j]-math.floor(roomDev[byRoom[i]][j]/10000)*10000
-- Parent ID =============
    zBuf[#zBuf+1]="<td class=dropdown>"..cF..string.format("%4d",did)..eF..jDlist["idColor"..did]..":"..jDlist["pName"..did]..eF.."<span class='drop-content'>"..jDlist[tonumber(did)]:sub(1,-5).." </span></td>"
    -- %
    if jDlist["iSee"..did]>0 then zBuf[#zBuf+1]="<td>"..percentColor(math.min(99,math.ceil(jDlist["iSee"..did]/iSeeAvg*100))).."</td>" else zBuf[#zBuf+1]="<td>"..absent.."na</font></td>" end
-- iSee devices ===========
    tmpNum=math.max(0,255-(math.floor(255/jDlist["phDev"]*jDlist["iSee"..did])));tmpStr=string.format("<font color=#%02XFF%02X>",tmpNum,tmpNum)
    if jDlist["iSee"..did]>0 then if not jDlist["iCdev"..did]:find(":HC2%-") then tmpNum=math.max(0,(math.ceil(200/iSeeMax1*jDlist["iSee"..did])));tmpStr=string.format("<font color=#FF%02X%02X>",tmpNum,tmpNum) end 
         zBuf[#zBuf+1]="<td class=dropdown>"..tmpStr..string.format("%3s",(jDlist["iCdev"..did]:match(absent) and "~" or "")..jDlist["iSee"..did])..eF.."<span class='drop-value' "..jDlist["mStyle"..did]..jDlist["iCdev"..did].."</span></td>" else zBuf[#zBuf+1]="<td>"..absent.."na</font></td>" end
-- Last Route =============
      if not jDlist["pRoute"..did]:find(",") then if jDlist["iSee"..did]==0 then zBuf[#zBuf+1]="<td>"..absent.."na</font></td>" else zBuf[#zBuf+1]="<td></td>"end  
      else zBuf[#zBuf+1]="<td class=dropdown style='text-align:center;'>"..jDlist["idColor"..did]..jDlist["pRoute"..did]:sub(2,-2):gsub("(%d+)",function(a) return jF[a] and absent..a..eF or a end)..eF.."<span class='drop-value'>"..
          jDlist["pRoute"..did]:gsub("(%d+),",function(a) return (jDlist["idColor"..a] or absent)..string.format((jDlist["idColor"..a] and cF or absent).."<b>%4d</b></font>",a)..":"..(jDlist["pName"..a] or "Absent")..":"..(jDlist["roomName"..a] or "Device").."</font><br>" end):sub(2).."</span></td>" end 
-- iRoute ===================
      tmpNum=math.max(0,255-(math.floor(150/jMesh["iRouteMax"]*jMesh[did])));
   if jMesh[did]>0 then zBuf[#zBuf+1]="<td class=dropdown style='text-align:center;'>"..string.format("<font color=#FF%02X%02X>",tmpNum,tmpNum)..jMesh[did]..eF.."<span class='drop-value'>"..jMesh["iRoute"..did]:sub(1,-5).." </span></td>" else zBuf[#zBuf+1]="<td></td>" end
-- Status and Date ============
      zBuf[#zBuf+1]="<td>"..jDlist["nList"..did].."</td>";zBuf[#zBuf+1]="<td>"..jDlist["nDate"..did].."</td>" 
-- 24History ============
     if  jDlist["hist"..did]>0 then zBuf[#zBuf+1]="<td>"..percentTrueColor(math.floor(jDlist["hist"..did]/#hist*1000)/10*hFactor,jDlist["hist"..did].."/"..math.floor(jDlist["hist"..did]/#hist*1000)/10) .."</td></tr>" else  zBuf[#zBuf+1]="<td></td></tr>"end  
  end --for j=1,#roomDev[byRoom[i]]
  if i ~= #byRoom then zBuf[#zBuf+1]="<tr><td colspan="..#rHeader.." style='border:1px solid dimgrey;'></td></tr><tr><td colspan="..#rHeader.." style='border:6px solid black;'></td></tr><tr><td colspan="..#rHeader.." style='border:1px solid dimgrey;'></td></tr>" end
end sIn=0
zBuf[#zBuf+1]="<tr><td colspan="..#rHeader.." style='border:1px solid dimgrey;'></td></tr><tr><td colspan="..#rHeader.." style='border:14px solid black;'></td></tr><tr><td colspan=4 style='border:1px solid dimgrey;'></td></tr>" 
for j=1,#jCntrl do did=jCntrl[j];sIn=sIn+1;sn=sn+1;zBuf[#zBuf+1]="<tr><td style='font-size:"..9*fSize.."px;'>"..cF..sn.."/"..sIn..eF.."</td>"
  if j==1 then zBuf[#zBuf+1]="<td rowspan="..#jCntrl..">"..cF.."Controllers +</font></td>" end
  zBuf[#zBuf+1]="<td colspan=4 class=dropdown>"..cF..string.format("%4d",did)..":"..jDlist["pName"..did]..":"..jDlist["roomName"..did]..eF.."<span class='drop-content'>"..jDlist[tonumber(did)]:sub(1,-5).." </span></td>"
end zBuf[#zBuf+1]="</table>"
if not debug then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages") end
for i=1,#badId do if i<15 then headStr=(headStr or "")..rF.."<font size=4>&#9760</font><sub>"..i.."</sub></font> " end
errStr=(errStr or "").."<p><div class='dropdown'>"..badId[i].."<span class='drop-value' style='background-color:#230000;left:auto;right:auto;'><pre>"..wF.."<font size=2>\tIn routes & neighbor list of:</font><br>"..eF..(jF[badId[i]:match(":(%d+)<")] or "Mesh data corrupted").."</pre></span></div></p>" end
if errStr then errStr=headStr.."<br>"..errStr.."<br>" end
tmpStr="<font color=#66b3ff><sub>Z</sub>Range<sup>v1.3 </sup></font>"
zBuf[#zBuf+1]=wF.."<br><i> Last 24History data is based on saved logs in event panel "..eF..pF.."(some devices might be excluded)</i><br>"..eF..cF.."\tTotal saved events = "..#hist.."<br>\tAverage  Z-traffic = "..math.floor((24*3600)/#hist*10)/10 .." sec."..eF
print((errStr or "")..tmpStr..dateRange.range.."<pre>"..table.concat(zBuf).."</pre><br><br><br><br>")