--============================= Z-Range test v1.0 ===============================
lgF="<font color=#8ab92d>";gF="<font color=Chartreuse>";yF="<font color=yellow>";ygF="<font color=yellowgreen>";cF="<font color=cadetblue>";bF="<font color=blue>";snHC=api.get("/settings/info/")["serialNumber"]
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}jP={}jMesh={}
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}
nStat={["ok"]=lgF.."ok"..eF,["error"]=irF.."error"..eF,["in progress"]=cF.."in progress"..eF,["pending"]=yF.."pending"..eF};endStr={"<br>","","",""}
tHeader={" # ","Parent ID:Description","Last Route","iRoute","iSee","Status","Time Stamp"};dNum={0,0,0};dMaxLen=0;iSeeTotal=0;iSeeMax=0;iSeeMax1=0;iSeeHC=0;meshFactor=.5
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:11px; text-align:left; color:black; z-index:1;}"..
  ".drop-value {display:none; position:absolute;padding:5px 5px; border:outset AntiqueWhite; top:20px; right:-10px; background-color:black; line-height:1.2; font-size:10.5px; 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;}"..
  " td {padding:0px 3px;border:1px solid dimgray;font-size:11px;} th,td {text-align:center;} tr:nth-child(even) {background-color:#161616;} tr:hover {background-color:#001a33;} td:hover {background-color:#554D06;} "..
  "th {border-collapse:collapse;padding:2px;border:2px solid dimgray;font-size:12px;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 
for i,j in pairs(api.get("/devices/")) do if j.id==1 or not j.properties.nodeId then goto nextId end
if not debug then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages") end;print(ygF.."Retrieving working routes and neighbor lists for "..eF..wF..j.id..":"..j.name.."</font>")
  if not jDlist[j.parentId] then jDlist[j.parentId]=" "..bF..j.properties.zwaveCompany.."<sup> v"..j.properties.zwaveVersion..eF.."</sup> <br><br>" end 
  if j.parentId>1 then jDlist["numDev"]=jDlist["numDev"]+1;jDlist[j.parentId]=jDlist[j.parentId]..string.format("%4d",j.id)..":"..j.name.." <br>"        
  elseif j.parentId==1 and j.properties.lastWorkingRoute then jP[#jP+1]=j.id;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
    elseif #mStr >1 then 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]+10)
    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;
    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;jDlist["iSee"..j.id]=jDlist["iSee"..j.id]-1 else iSeeMax1=math.max(iSeeMax1,jDlist["iSee"..j.id]) end end
::nextId:: end dateRange.range="<font color=black>12</font><font color=lightgrey>Devices: masters="..jDlist["phDev"].." slaves="..jDlist["numDev"].."<font color=black>123</font><small>Date range: "..os.date("%d %b %Y   -   ",dateRange.min)..os.date("%d %b %Y</font></small>",dateRange.Max)
for _,j in ipairs(jP) do iSeeTotal=iSeeTotal+math.floor(math.min(jDlist["iSee"..j], jDlist["phDev"]*meshFactor));jDlist["iCdev"..j]="";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=jDlist["iCtable"..j][i];jDlist["iCdev"..j]=jDlist["iCdev"..j]..jDlist["idColor"..inId]..string.format("%-"..dMaxLen.."s",inId..":"..jDlist["pName"..inId]..":"..jDlist["roomName"..inId])..endStr[(i % sMod)+1]..eF end end 
zBuf[#zBuf+1]="<h><font color=sandybrown><font size=4>" ..api.get("/settings/info/")["hcName"].."</font><font size=3><sup>"..snHC.."</sup></font> efficiency:</font> "
specLocAll=irF..math.min(100,math.ceil(iSeeTotal/(jDlist["phDev"]*jDlist["phDev"])*100)).."</font>%";
specLoc="<font color=darkgreen>"..math.min(100,math.ceil(iSeeTotal/((jDlist["phDev"]-dNum[3])*(jDlist["phDev"]-dNum[3]))*100)).."</font>%"
if dNum[3]>0 then zBuf[#zBuf+1]=wF.."HC location <font size=2>"..irF..math.min(100,math.ceil(iSeeHC/jDlist["phDev"]*100))..eF.."%/"..lgF..math.min(100,math.ceil(iSeeHC/(dNum[1]+dNum[2])*100))..eF.."%</font>  Devices location <font size=2><span class='dropdown'><u>"..
   irF..math.min(100,math.ceil(iSeeTotal/(jDlist["phDev"]*jDlist["phDev"]*meshFactor)*100))..eF.."%/"..lgF..math.min(100,math.ceil(iSeeTotal/((jDlist["phDev"]-dNum[3])*(jDlist["phDev"]-dNum[3])*meshFactor)*100))..eF.."%</u><div class='drop-content'>Full mesh setup %<br><br>    "..specLocAll.." / "..specLoc.."</div></span></font></font></h><table>"
else zBuf[#zBuf+1]=wF.."HC location <font size=2>"..math.min(100,math.ceil(iSeeHC/jDlist["phDev"]*100)).."%</font>    Devices location <font size=2><span class='dropdown'><u>"..math.min(100,math.ceil(iSeeTotal/(jDlist["phDev"]*jDlist["phDev"]*meshFactor)*100)).."%</u><div class='drop-content'>Full mesh setup %<br><br>        "..specLocAll.."</div></span></font></font></h><table>" end
for i=1,#tHeader do zBuf[#zBuf+1]="<th>"..tHeader[i].."</th>" end;jMesh["iRouteMax"]=0
for _,j in ipairs(jP) do iSeeTotal=iSeeTotal+math.min(jDlist["iSee"..j], jDlist["phDev"]*meshFactor);  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
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.."<b>"..string.format("%4d",jP[i]).."</b>"..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)..eF.."<span class='drop-value'>"..jDlist["pRoute"..jP[i]]:gsub("(%d+),",function(a) return jDlist["idColor"..a]..string.format("%4d",a)..":"..jDlist["pName"..a]..":"..jDlist["roomName"..a].."</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
   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("1:HC") then tmpNum=math.max(0,(math.floor(200/iSeeMax1*jDlist["iSee"..jP[i]])));tmpStr=string.format("<font color=#FF%02X%02X>",tmpNum,tmpNum) end 
        zBuf[#zBuf+1]="<td class=dropdown>"..tmpStr..jDlist["iSee"..jP[i]].." <span style='font-size:10px;'>("..math.min(99,math.ceil(jDlist["iSee"..jP[i]]/(jDlist["phDev"]*meshFactor)*100)).."%/"..math.min(99,math.ceil(jDlist["iSee"..jP[i]]/iSeeMax*100)).."%/"..math.min(99,math.ceil(jDlist["iSee"..jP[i]]/jDlist["phDev"]*100)).."%)</span>"..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></tr>" end end end
if not debug then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages") end
print("<font color=CornflowerBlue><sub>Z</sub>Range<sup>v1.0</sup></font>"..dateRange.range.."<pre>"..table.concat(zBuf).."</table><br><br><font color=lightgrey>Color index:<br>"..irF.."   "..dNum[3].." Device(s) unknown working route."..eF.."<br>"..
"   "..yF..dNum[2]..eF.." device(s) in shades from <font color=#FF8700>orange "..eF.."<font color=#FFC300>to </font><font color=#FFFF00>yellow "..eF.."in descending order of nodes number in route.   <br>"..eF..lgF.."   "..dNum[1].." Device(s) in direct route to controller."..eF.."<br><br>")