-- Permet d'envoyer un courriel en passant en paramètre le message et l'objet (facultatif)
function josdEnvoyerCourriel(message, objet)
  local smtp = require("socket.smtp")
  local emetteur     = "<@_courriel_emetteur>"
  local destinataire = "<@_courriel_destinataire>"
  if (type(objet)=="string") then objet="[Vera]".." "..objet else objet="[Vera]" end
  message="Bonjour, ceci est un courriel envoyé par la VeraLite ("..os.date("%A %B %Y, %H:%M:%S")..")\n\n"..message.."\n\nCordialement, VeraLite"
  local mesgt = {
    headers = {
      to = destinataire,
      from = emetteur,
      subject = objet,
      ["content-type"] = "text/plain; charset=utf8"
    },
    body = message
  }
  smtp.send{ from=emetteur, rcpt=destinataire, source=smtp.message(mesgt), server="<smtp>", port="25" }
end

-- Permet d'envoyer un courriel en passant en paramètre le message et l'objet (facultatif) function josdEnvoyerCourriel(message, objet) local smtp = require("socket.smtp") local emetteur = "<@_courriel_emetteur>" local destinataire = "<@_courriel_destinataire>" if (type(objet)=="string") then objet="[Vera]".." "..objet else objet="[Vera]" end message="Bonjour, ceci est un courriel envoyé par la VeraLite ("..os.date("%A %B %Y, %H:%M:%S")..")\n\n"..message.."\n\nCordialement, VeraLite" local mesgt = { headers = { to = destinataire, from = emetteur, subject = objet, ["content-type"] = "text/plain; charset=utf8" }, body = message } smtp.send{ from=emetteur, rcpt=destinataire, source=smtp.message(mesgt), server="<smtp>", port="25" } end

-- Permet d'exécuter une commande système sur la Vera
-- commande    : la chaîne de caractères contenant la commande
-- Retourne vrai en cas de succès plus le résultat (stdout) de la commande
function josdOsExecute(commande)
  local cmd=commande..' > /tmp/josdOsExecute.log 2>&1'
  local reponse=os.execute(cmd)
  local file=assert(io.open("/tmp/josdOsExecute.log", "r"))
  local stdout=file:read("*all")
  assert(file:close())
  return (reponse==0 or reponse==true), stdout
end

-- Permet d'exécuter une commande système sur la Vera -- commande : la chaîne de caractères contenant la commande -- Retourne vrai en cas de succès plus le résultat (stdout) de la commande function josdOsExecute(commande) local cmd=commande..' > /tmp/josdOsExecute.log 2>&1' local reponse=os.execute(cmd) local file=assert(io.open("/tmp/josdOsExecute.log", "r")) local stdout=file:read("*all") assert(file:close()) return (reponse==0 or reponse==true), stdout end

-- Permet de faire un ping sur une adresse
function josdPing(adresse)
  local nbPing=3     -- -c CNT : Send only CNT pings
  local nbSecondes=5 -- -w SEC : Seconds until ping exits
  assert(type(adresse)=="string")
  return josdOsExecute("ping -c"..nbPing.." -w"..nbSecondes.." -W"..nbSecondes.." "..adresse)
end

-- Permet de faire un ping sur une adresse function josdPing(adresse) local nbPing=3 -- -c CNT : Send only CNT pings local nbSecondes=5 -- -w SEC : Seconds until ping exits assert(type(adresse)=="string") return josdOsExecute("ping -c"..nbPing.." -w"..nbSecondes.." -W"..nbSecondes.." "..adresse) end

-- Permet de connaitre le taux d'occupation du processeur de la VeraLite
-- Retourne la charge système moyenne pour les 1, 5 et 15 dernières minutes.
function josdLoadEverage()
  local succes,message=josdOsExecute("uptime")
  if (succes) then
    local l1,l2,l3=string.match(message, "load average[^0-9.]*([0-9.]*)[^0-9.]*([0-9.]*)[^0-9.]*([0-9.]*)")
    return tonumber(l1),tonumber(l2),tonumber(l3)
  end
end

-- Permet de connaitre le taux d'occupation du processeur de la VeraLite -- Retourne la charge système moyenne pour les 1, 5 et 15 dernières minutes. function josdLoadEverage() local succes,message=josdOsExecute("uptime") if (succes) then local l1,l2,l3=string.match(message, "load average[^0-9.]*([0-9.]*)[^0-9.]*([0-9.]*)[^0-9.]*([0-9.]*)") return tonumber(l1),tonumber(l2),tonumber(l3) end end

-- Vrai si les trois valeurs du taux d'occupation du processeur sont inférieures à la limite
function josdLimiteLoadEverage(limite)
  limite=limite or 0.33 -- Valeur par défaut
  local l1,l2,l3=josdLoadEverage()
  return(l1<limite and l2<limite and l3<limite)
end

-- Vrai si les trois valeurs du taux d'occupation du processeur sont inférieures à la limite function josdLimiteLoadEverage(limite) limite=limite or 0.33 -- Valeur par défaut local l1,l2,l3=josdLoadEverage() return(l1<limite and l2<limite and l3<limite) end