89 lines
1.9 KiB
Lua
89 lines
1.9 KiB
Lua
args = {...}
|
|
|
|
url = "http://lua.gaywine.org"
|
|
|
|
path = "bin/"
|
|
if not fs.exists(path) then
|
|
fs.makeDir(path)
|
|
end
|
|
temp = "temp/"
|
|
if not fs.exists(temp) then
|
|
fs.makeDir(temp)
|
|
end
|
|
|
|
if #args > 0 then
|
|
programToInstall = args[1]
|
|
end
|
|
if #args > 1 then
|
|
customPath = shell.resolve(args[2])
|
|
end
|
|
|
|
function downloadFile(filename)
|
|
fileUrl = url .. "/files/" .. programToInstall .. "/" .. filename
|
|
|
|
result = http.get(fileUrl)
|
|
resultText = result.readAll()
|
|
|
|
file = fs.open(temp .. filename, "w")
|
|
file.write(resultText)
|
|
file.close()
|
|
end
|
|
|
|
function split(pString, pPattern)
|
|
local Table = {} -- NOTE: use {n = 0} in Lua-5.0
|
|
local fpat = "(.-)" .. pPattern
|
|
local last_end = 1
|
|
local s, e, cap = pString:find(fpat, 1)
|
|
while s do
|
|
if s ~= 1 or cap ~= "" then
|
|
table.insert(Table,cap)
|
|
end
|
|
last_end = e+1
|
|
s, e, cap = pString:find(fpat, last_end)
|
|
end
|
|
if last_end <= #pString then
|
|
cap = pString:sub(last_end)
|
|
table.insert(Table, cap)
|
|
end
|
|
return Table
|
|
end
|
|
|
|
function getAllFiles()
|
|
indexesUrl = url .. "/indexes/" .. programToInstall
|
|
|
|
result = http.get(indexesUrl)
|
|
resultText = result.readAll()
|
|
resultTable = split(resultText, "\n")
|
|
|
|
finalResult = {}
|
|
for key, value in ipairs(resultTable) do
|
|
finalResult[key] = split(value, " ")[1]
|
|
end
|
|
|
|
return finalResult
|
|
end
|
|
|
|
function finishInstall(files)
|
|
for key, file in ipairs(files) do
|
|
if customPath ~= nil then
|
|
fs.move(temp .. file, customPath .. "/" .. file)
|
|
else
|
|
fs.move(temp .. binary, path .. binary)
|
|
end
|
|
end
|
|
|
|
if customPath ~= nil then
|
|
program = "shell.run(" .. customPath .. "/run.lua)"
|
|
file = fs.open(path .. programToInstall .. "/run.lua")
|
|
file.write(program)
|
|
file.close()
|
|
end
|
|
|
|
fs.delete(temp)
|
|
end
|
|
|
|
local files = getAllFiles()
|
|
for _,value in ipairs(files) do
|
|
downloadFile(value)
|
|
end
|
|
finishInstall(files) |