local user = 4;
local list = {341,691,383,520,697,612}
local subject = 'Battery Low';
local message = 'Device Battery Status '
local deviceID = fibaro:getSelfId()
for I, dev in pairs(list)
do
  local level = fibaro:get(dev, 'batteryLevel')
  local send  = false;
  if level == nil
  then level = 'dead'; send = true;
  elseif tonumber(level) <= 80
  then level = 'low'; send = true;
  end;
  fibaro:debug (dev..':'..level)
  fibaro:call (deviceID, 'setProperty', 'ui.Label'..I..'.value', level) 
  if send
  then 
    local name = fibaro:getName (dev); fibaro:debug (name);
    if name == nil then name = ''; end;
    fibaro:call (user, 'sendEmail', subject, message..dev..'.'..name..':'..level);
  end;  
end;
--fibaro:sleep (86400000)
for J = 0,23,1
do
  fibaro:sleep (60*60000)
end;