so here is my submission. definitely not the best but works all the same. Probably best to use the above codes not mine . but I coded this so I might as well post it.
file sever:
Spoiler
version = 1.0
local fileLocation = "/rom/programs/redset" -- this is an example change it as needed
local function openRednet()
-- local listOfSides = { "top" , "bottom" , "front" , "left" , "right" , "back" }
local listOfSides = rs.getSides()
local listofPossibles = {}
local counter1 = 0
while true do
counter1 = counter1 +1
if peripheral.isPresent(tostring(listOfSides[counter1])) and peripheral.getType(listOfSides[counter1]) == "modem" then
table.insert(listofPossibles,tostring(listOfSides[counter1]))
end
if counter1 == 6 and table.maxn(listofPossibles) == 0 then
print("no wifi present")
return nil
end
if counter1 == 6 and table.maxn(listofPossibles) ~= 0 then
rednet.open(listofPossibles[1])
return listofPossibles[1]
end
end
end
modemOn = openRednet()
if modemOn == nil then
print("No WIFI Modem")
print("Will shutdown in 3 seconds")
sleep(3)
os.shutdown()
else
print("Opened wifi on "..modemOn.." side")
end
local function stringLocator(acton,looking,stpos,reverse,last)
local tempvar = tonumber(stpos)
if tempvar == nil then tempvar = 1 end
local this = string.byte(looking)
local endof = string.len(acton)
while true do
if last == "p" then
print(string.sub(acton,tempvar,tempvar).." "..looking)
end
if string.byte(acton,tempvar) == this then
return tempvar
end
if tempvar == endof and reverse ~= "r" or tempvar == 1 and reverse == "r" then return end
if reverse == "r" then
tempvar = tempvar - 1
else
tempvar = tempvar + 1
end
end
end
local fileData = nil
if fs.exists(fileLocation) then
print("file found reading to memory")
file = fs.open(fileLocation,"r")
fileData = file.readAll() -- this will now hold the files contence
file.close()
else
print("File Not Found") -- if the file dosent exist program ends
return
end
local tempvar = stringLocator(fileLocation,"/",string.len(fileLocation),"r")
if tempvar == nil then
tempvar = 1
end
local fileName = string.sub(fileLocation,tempvar+1,string.len(fileLocation))
while true do
e,e1,e2,e3,e4,e5 = os.pullEvent()
if e == "rednet_message" then
if e2 == "CHECK-" then
sleep(0.1)
rednet.send(e1,tostring(version))
end
if e2 == "UPDATE-" then
sleep(0.1)
rednet.send(e1,"NEW"..fileName..":"..fileData)
end
end
end
External updater ( so run this when you want to update the program ) cant be run from within it.)
Spoiler
version = 0.1
local function openRednet()
-- local listOfSides = { "top" , "bottom" , "front" , "left" , "right" , "back" }
local listOfSides = rs.getSides()
local listofPossibles = {}
local counter1 = 0
while true do
counter1 = counter1 +1
if peripheral.isPresent(tostring(listOfSides[counter1])) and peripheral.getType(listOfSides[counter1]) == "modem" then
table.insert(listofPossibles,tostring(listOfSides[counter1]))
end
if counter1 == 6 and table.maxn(listofPossibles) == 0 then
print("no wifi present")
return nil
end
if counter1 == 6 and table.maxn(listofPossibles) ~= 0 then
rednet.open(listofPossibles[1])
return listofPossibles[1]
end
end
end
modemOn = openRednet()
if modemOn == nil then
print("No WIFI Modem")
print("Will shutdown in 3 seconds")
sleep(3)
os.shutdown()
else
print("Opened wifi on "..modemOn.." side")
end
local function stringLocator(acton,looking,stpos,reverse,last)
local tempvar = tonumber(stpos)
if tempvar == nil then tempvar = 1 end
local this = string.byte(looking)
local endof = string.len(acton)
while true do
if last == "p" then
print(string.sub(acton,tempvar,tempvar).." "..looking)
end
if string.byte(acton,tempvar) == this then
return tempvar
end
if tempvar == endof and reverse ~= "r" or tempvar == 1 and reverse == "r" then return end
if reverse == "r" then
tempvar = tempvar - 1
else
tempvar = tempvar + 1
end
end
end
local continue = true
function update()
rednet.broadcast("CHECK-")
id, message = rednet.receive()
if version < tonumber(message) then
rednet.send(id, "UPDATE-")
while continue do
id, message = rednet.receive()
if string.sub(message,1,3) == "NEW" then
local testvar2 = stringLocator(message,":",1)
if testvar2 == nil then
print("error failed to update")
else
local fileName = string.sub(message,4,testvar2-1)
local fileData = string.sub(message,testvar2+1,string.len(message))
print("Saving Update")
continue = false
file = fs.open("/"..fileName,"w")
file.write(fileData)
file.close()
end
end
end
end
end
update()
concidering that computer craft is all about lua code the text editor on these forums is a pain and really messes with your code. all the tabs get converted to spaces?? makes code look stupid and it you mess up the code tags all the spaces get removed and code becomes more or less useless
