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

67 lines
1.5 KiB
Lua
Raw Normal View History

2015-08-05 22:22:06 +02:00
#!/usr/bin/lua
local host = os.getenv("HTTP_HOST")
local proto = os.getenv("SERVER_PROTOCOL")
local query = os.getenv("QUERY_STRING")
if arg[1] then
query = arg[1]
if query == "get" then query = "" end
proto = "HTTP/1.0"
host = "local"
end
function SendError(err,desc)
io.stdout:write(proto.." "..err.."\r\n")
io.stdout:write("\r\n")
local file = io.open("e404.html")
if file then
local tmp = file:read("*a")
tmp = string.gsub(tmp,"404 Not Found",err .. " " .. desc)
io.stdout:write(tmp)
file:close()
end
end
local path = nil
local tmp = "/var/tmp/xxxx"
if string.match(query,"select=user") then
local file = io.open("/config/channels/sourcelist.csv")
if file then
path = "/config/channels"
file:close()
else
path = "/var/channels"
end
elseif string.match(query,"select=system") then
path = "/var/channels"
else
SendError("404","channel list not found")
return
end
local gz = nil
os.execute("cd ".. path .. ";tar -cf " .. tmp .. ".tar" .. " *.csv *.txt");
local p = io.popen("gzip -c " .. tmp .. ".tar")
if p then
gz = p:read("*a")
p:close()
end
if gz then
io.stdout:write(proto.." 200" .."\r\n")
io.stdout:write("Pragma: no-cache".."\r\n")
io.stdout:write("Content-Type: application/gzip".."\r\n")
io.stdout:write('Content-Disposition: filename="channels.tar.gz"'.."\r\n")
io.stdout:write(string.format("Content-Length: %d",#gz).."\r\n")
io.stdout:write("\r\n")
io.stdout:write(gz)
else
SendError("500","internal error")
end