Firebox now with a DNS server for world hosted sites [Web Browser]

DNSids = {5, 6, 89}
DNSdomains = {"www.test.com", "www.bob.com", "www.games.com"}

DNSids = {}
DNSdomains = {}
DNSids[1] = 5
DNSdomains[1]  = "www.test.com"

DNSids2[2] = 6
DNSdomains[2]  = "www.bob.com"

DNSids[3] = 89
DNSdomains[3] = "www.games.com"

local tArgs = { ... }
local favorits = { }

--configrable variables
Firebox = shell.getRunningProgram()
edit = "edit" -- textviewing programe for http;
server = nil -- for redbook
install = "" -- for all downloads
dns = 202 -- id of DNS server
DNSids = {201}
DNSdomains = {"www.test.com"}
-- end

if #tArgs < 1 then
   print( "Do you want to 1 enter a url, 2:select from 'firebox_fave'" )
   input = read()
   shell.run( "clear" )
   if input == "2" then
	if(fs.exists("firebox_fave")) then
	local fave = fs.open("firebox_fave", "r")
		   max = 0
		   while true do
		 local line = fave.readLine()
		 if line == nil then --if reached end of file
  break end
		   table.insert(favorits, line)
		   max = max + 1
  end
fave.close()
				i = 0
		   print( "Use the arrows and enter to chose.  " )
		   while true do
		   i = i + 1
		   if favorits[i] == nil then break end
		   print( "  " .. i .. ": " .. favorits[i])
		   end
		   pointer = 1
		   term.setCursorPos(1, pointer + 1)
		   print( "->" )
		   while true do
				   local evt, arg1, arg2 = os.pullEvent()
				   term.setCursorPos(1, pointer + 1)
				   print( "  " )
				   if arg1 == 200 and pointer > 1 then
						   pointer = pointer - 1
				   elseif arg1 == 208 and pointer < max then
						   pointer = pointer + 1
				   end
				   term.setCursorPos(1, pointer + 1)
				   print( "->" )
				   if arg1 == 28 then break end
		   end
		   url = favorits[pointer]

   else
   print("'firebox_fave' dose not exist")
   print("To create a favorits list then store each url on its own line in firebox/fave")
   print("")
   print( "Enter a url or type host to host a server." )
   url = read()
   end
   else
		   print( "Enter a url or type host to host a server." )
		   url = read()
   end
else
  url = tArgs[1]
end
if string.find(url, "192.168.1.") then
-- Connect to rednet
rednetip = string.gsub(url, "192.168.1.", "") * 1
rednet.open("right")
shell.run( "clear" )
rednet.send(rednetip, "http/index")
file = io.open("temp", "w")
id, msg = rednet.receive(20)
if msg == nil then
		print( "The server did not sent a message back. It must not like you." )
else
		file:write(msg)
		file:close()
		response = nil
		shell.run( "temp" )
end
elseif url == "host" then
shell.run( "clear" )
print ( "Server ready to serve." )
rednet.open("right")
print ( "Opening the portholes" )
while true do
  id, message  = rednet.receive()
  if fs.exists(message) then
		  file = io.open( message )
		  filedata = file:read()
		  file:close()
		  rednet.send(id, filedata)
		  print ( "Send that old trash to 192.168.1." .. id )
  elseif fs.exists("http/error") then
		  file = io.open("http/error")
		  filedata = file:read()
		  file:close()
		  rednet.send(id, filedata)
		  print ( "Send that old trash to 192.168.1." .. id )
  else
		  rednet.send(id, "print( \"Error, This server (192.168.1." .. id .. ") could not sent you your request.\")")
		  print ( "Failed to give 192.168.1." .. id  .. " his present." )
  end
end
elseif string.find(url, "http://") then
--Connect to internet
				local response = http.get(url)
		 if response then
			   while response do
				local sResponse = response.readAll()
				   response.close()
				   shell.run( "clear" )
				   cache = shell.resolve( "temp" )
				   local file = fs.open( cache, "w" )
				   file.write( sResponse )
				   file.close()
				   response = nil
				   shell.run( edit, "temp" )
				  end
				else
		 -- if page is not reseved
			print( "Error, Could not load page." )
				end
elseif string.find(url, "rdnt://") then
--Connect to Rednet DNS
rednetDomain = string.gsub(url, "rdnt://", "")
rednet.open("right")
shell.run( "clear" )
rednet.send(dns, rednetDomain)
file = io.open("temp", "w")
id, msg = rednet.receive(20)
if msg == nil then
	   print( "The Domain Name Server did not sent a message back. It must have got it self in a fight with the website you are trying to connect to." )
else
	   file:write(msg)
	   file:close()
	   response = nil
	   shell.run( "temp" )
end
elseif string.find(url, "hostDNS") then
--Host a DNS server
rednet.open("right")
print ( "DNS ready to serve." )
while true do
client, message  = rednet.receive()
		print( "192.168.1." .. client .. " whats to connect to " .. message )
i = 1

devidingCharater = string.find(message, "/")
length  = string.len(message)
message = string.lower(message)
Domainname = string.sub(message, devidingCharater, length - devidingCharater)
subDomain = string.sub(message, devidingCharater, length)

print("request:" .. message)
print("Domainname:" .. Domainname)

print("subDomain:" .. subDomain)
while DNSids[i] do
if(message == DNSdomains[i]) then
rednet.send(DNSids[i], "http/" .. subDomain)
	   print( "Trying to find 192.168.1." .. client .. " to 192.168.1." .. DNSids[i])
	   id, msg = rednet.receive(20)
	   if msg == nil then
			   print( "All as been lost." )
	   else
			   rednet.send(client, msg)  
			   print( "Found him. Matching up." )
		 end
end
i = i + 1
end
end

else
-- Connect to Craftnet
		 --  root = "http://localhost/minecraft/"
		   root = "http://www.lozengia.com/tmas/Downloads/Minecraft/firebox/"
		local response = http.get(root .. url)
		if response then
		-- if page is reseved
		   while response do
				   local sResponse = response.readAll()
				   response.close()
				   shell.run( "clear" )
				   cache = shell.resolve( "temp" )
				   local file = fs.open( cache, "w" )
				   file.write( sResponse )
				   file.close()
				   response = nil
				   shell.run( "temp" )
		   end
		   shell.run( "clear" )
		else
		-- if page is not reseved
		   print( "Error, Could not load page." )
		end
end

print ( "Server ready to serve." )
rednet.open("right")
print ( "Opening the portholes" )
while true do
  id, message  = rednet.receive()
  if fs.exists(message) then
		  file = io.open( message )
		  filedata = file:read()
		  file:close()
		  rednet.send(id, filedata)
		  print ( "Send that old trash to 192.168.1." .. id )
  elseif fs.exists("http/error") then
		  file = io.open("http/error")
		  filedata = file:read()
		  file:close()
		  rednet.send(id, filedata)
		  print ( "Send that old trash to 192.168.1." .. id )
  else
		  rednet.send(id, "print( \"Error, could not sent you your request.\")")
		  print ( "Failed to give 192.168.1." .. id  .. "his present." )
  end
end

DNSids = {201}
DNSdomains = {"www.test.com"}
-- end

rednet.open("right")
print ( "DNS ready to serve." )
while true do
client, message  = rednet.receive()
	   print( "192.168.1." .. client .. " whats to connect to " .. message )
i = 1

devidingCharater = string.find(message, "/")
print("request:" .. message)
if devidingCharater then
length  = string.len(message)
message = string.lower(message)
Domainname = string.sub(message, 1, devidingCharater - 1)
subDomain = string.sub(message, devidingCharater + 1, length)

else
Domainname = message
subDomain = ""
end
print("Domainname:" .. Domainname)
print("subDomain:" .. subDomain)

while DNSids[i] do
if(Domainname == DNSdomains[i]) then
if subDomain == "" then
rednet.send(DNSids[i], "http/index")
else
rednet.send(DNSids[i], "http/" .. subDomain)
end
	   print( "Trying to find 192.168.1." .. client .. " to 192.168.1." .. DNSids[i])
	   id, msg = rednet.receive(20)
	   if msg == nil then
			   print( "All as been lost." )
	   else
			   rednet.send(client, msg)  
			   print( "Found him. Matching up." )
		end
end
i = i + 1
end
end

local tArgs = { ... }
shell.run( "clear" )
if #tArgs < 1 then
	print( "Relay want to serve, but first what ip do you want?" )
	url = read()
else
   url = tArgs[1]
end
rednetip = string.gsub(url, "192.168.1.", "") * 1
rednet.open("right")
print ( "Relay ready to serve." )
while true do
	client, message  = rednet.receive()
	print( "192.168.1." .. client .. " whats to connect." )
	rednet.send(rednetip, message)
	print( "Trying to find 192.168.1." .. client .. " a freind." )
	id, msg = rednet.receive(20)
	if msg == nil then
		print( "All as been lost." )
	else
		rednet.send(client, msg)  
		print( "Found him. Matching up." )
	end
end