1
0
mirror of https://github.com/DigitalDevices/octonet.git synced 2023-10-10 13:36:52 +02:00
octonet/octoserve/var/monitor/fancontrol.lua

132 lines
2.5 KiB
Lua
Raw Normal View History

#!/usr/bin/lua
local socket = require("socket")
local devicepath = "/sys/class/ddbridge/ddbridge0"
local interval = 30
local nValues = 2880
local LogFile = "/tmp/Temperatur.log"
local HighTemp = 50
local LowTemp = 45
function ReadTemp(sensor)
local temp = 0
local file = io.open(devicepath.."/temp"..sensor)
if file then
temp = file:read()
if temp == "no sensor" then
temp = 0
else
temp = math.floor(tonumber(temp)/1000)
end
file:close()
end
return temp
end
function sleep(sec)
socket.select(nil,nil,sec)
end
function SetFan(value)
local gpio = io.open("/sys/class/gpio/gpio106/value","w");
if gpio then
gpio:write(value)
gpio:close()
end
end
local gpio = io.open("/sys/class/gpio/export","w");
if gpio then
gpio:write("106")
gpio:close()
end
local NumSensors = 0
local i
local temps
local temp
local Sensor = {}
local TempList = {}
local StartIndex = 1
local count = interval
local fanstate = 1
--~ sleep(30)
for i = 0,4,1 do
temp = ReadTemp(i)
if temp > 0 then
Sensor[NumSensors] = i
NumSensors = NumSensors + 1
end
end
if NumSensors == 0 then
return
end
SetFan(0)
while true do
sleep(1)
temps = ""
for i = 0, NumSensors - 1, 1 do
temp = ReadTemp(Sensor[i])
if temp == 0 then
print(" fanControl Error ")
return
end
if i == 0 then
temps = temp
else
temps = temps .. "," .. temp
end
if fanstate == 0 and temp >= HighTemp then
SetFan(1)
fanstate = 1
elseif fanstate == 1 and temp < LowTemp then
SetFan(0)
fanstate = 0
end
end
count = count - 1
if count == 0 then
count = interval
if #TempList < nValues then
TempList[#TempList+1] = temps
else
TempList[StartIndex] = temps
StartIndex = StartIndex + 1
if StartIndex > nValues then StartIndex = 1 end
end
TmpLogFile = os.tmpname()
local fh = io.open(TmpLogFile,"w")
if fh then
fh:write(NumSensors..","..interval..","..fanstate.."\n")
for i = StartIndex-1, 1, -1 do
fh:write(TempList[i].."\n")
end
for i = #TempList, StartIndex, -1 do
fh:write(TempList[i].."\n")
end
fh:close()
os.remove(LogFile)
os.rename(TmpLogFile,LogFile)
end
end
collectgarbage()
end