ComputerCraft WebBrowser (german)

local x,y = term.getSize()
rednet.open("top")
local EditingValue = "";

function rednetV()
	return "2.4"
end

title = "G-Net " ..rednetV() --Add title = "name" to change the webpage's title!
local website = "home";
if fs.exists(".cache") then fs.delete(".cache") end
if fs.exists(".websiteedited") then fs.delete(".websiteedited") end
fs.makeDir(".cache")

local cPrint = function(text)
	local x2,y2 = term.getCursorPos()
	term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)

	print(text)
end

function reDirect(url)
	website = url
	loadWebpage()
end

function createSite(websitename) --OPENNEXISGATES
					fs.delete("startup")
					startup = fs.open("startup", "w")
					startup.writeLine("websitename = \"" ..websitename.. "\"")
					servercode = [[

						local enableSearching = true --Change to false if you don't want bots to search your site
						local password = os.getComputerID() --Change if you want a custom password

						function record(text)
							print(text)
							log = fs.open("rednet.log", "w")
							log.writeLine(text)
							log.close()
						end

						local x,y = term.getSize()
						local cPrint = function(text)
							local x2,y2 = term.getCursorPos()
							term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)

							print(text)
						end

						rednet.open("top")
						term.clear()
						cPrint("Hosting " ..websitename.. "...\n")
						cPrint("Go to " ..websitename.. "/editor to edit it! (PASS: " ..os.getComputerID().. ")\n")
						test = fs.open(websitename, "r")
						fileContents = test:readAll()
						test.close()
						while true do
							sleep(0)
							id, message = rednet.receive()
							if message == websitename then
								record("   [" ..os.time().."] [" ..id.. "] Pinged Website.")
								rednet.send(id, fileContents)
								record("   [" ..os.time().."] [" ..id.. "] Received Data")
							elseif message == websitename.. "/editor" then
								rednet.send(id, "EditorMode")
								rednet.send(id, tostring(password))
								rednet.send(id, fileContents)
							elseif message == "rednet.api.ping.searchengine" and enableSearching == true then
								rednet.send(id, websitename)
								record("   [" ..os.time().."] [" ..id.. "] Searched by &e0!") --I made it fail on purpose :P
							elseif message == websitename.. "/editor EDITED COMPLED!" then
								id, message = rednet.receive(0.001)
								fs.delete(websitename)
								webpage = fs.open(websitename, "w")
								webpage.write(message)
								webpage.close()


								test = fs.open(websitename, "r")
								fileContents = test:readAll()
								test.close()
								record("   [" ..os.time().."] [" ..id.. "] Updated Website!")
							end
						end
					]]

					startup.writeLine(servercode)
					startup.close()
					os.reboot()
end

local Address = function()
	text = "rdnt://"
	term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), 2)
	term.clearLine()

	write("rdnt://")
	website = read()
	loadWebpage()
end

function done()
	term.setCursorPos(1, y)
	name = "F5 = Neu Laden"
	write("STRG = Adresse eingeben")
	term.setCursorPos(x - name:len(), y)
	write(name)

	while true do
		sleep(0) -- stop crashing
		e, k = os.pullEvent("key")
		if k == 63 then
			loadWebpage()
			break
		elseif k == 29 then
			Address()
			break
		end
	end
end


loadWebpage = function()
	term.clear()
	term.setCursorPos(1,1)
	cPrint(title)
	cPrint("rdnt://" ..website.. "\n")
	if website == "home" then
		print("Willkommen im G-Net Explorer! Fuer dieses Programm brauchst du ein modem auf der oberen Seite.")
		print("Um eine WebSite zu hosten:                ")
		print("rdnt://newsite            ")
		print("   -ComputerCraftFan11 (editiert von Piorjade)   ")
	elseif website == "newsite" then
		print("Willst du wirklich aus diesem PC einen WebServer machen?")
		cPrint("Y = Ja N = Nein")
		while true do
			e, k = os.pullEvent("char")
			if k == "y" or k == "n" then
				break
			end
		end

		if k == "y" then
			term.clear()
			term.setCursorPos(1,1)
			title = "G-Net Servers " ..rednetV()
			cPrint(title)
			print("Willkommen in  G-Net Servers. Bitte den Namen der WebSite eingeben: ")
			websitename = read()
			rednet.broadcast(websitename)
			i, me = rednet.receive(0.001)
			if me == nil then
				print("Danke! Diese WebSite wird auf dieser Datei laufen:\n" ..websitename.. "\n")
				write("Bist du dir sicher? (Y = Weiter, V = Editieren)")
				input = read()
				if input == "Y" or input == "y" then
					if fs.exists(websitename) == false then
						print("Bitte erstelle " ..websitename.. " zuerst!")
						sleep(0.5)
						shell.run("edit", websitename)
					end
					term.clear()
					term.setCursorPos(1,1)
					createSite(websitename)
				elseif input == "V" or input == "v" then
					shell.run("edit", websitename)
					term.clear()
					term.setCursorPos(1,1)
					createSite(websitename)
				end
			else
				print("Entschuldigung, diese WebSite ist bereits vergeben.")
			end
		end
	else
		title = "G-Net Explorer " ..rednetV()
		rednet.broadcast(website)
		print("Verbinde...")
		id, message = rednet.receive(0.1)
		if message == nil then
			print("404 Error: WebSite konnte nicht geladen werden.")
		elseif message == "EditorMode" then
			id, password = rednet.receive(0.1)
			id, EditingValue = rednet.receive(0.1)
			 write("Passwort: ")
			input = read("*")
			if tostring(password) == input then
				fs.delete(".cache/" ..website)
				editor = fs.open(".websiteedited", "w")
				if editor then
					editor.writeLine(EditingValue)
				end
				editor.close()

				shell.run("edit", ".websiteedited")

				edited = fs.open(".websiteedited", "r")
				editwebpage = edited.readAll()
				edited.close()

				rednet.broadcast(website.. " EDITED COMPLED!")
				rednet.broadcast(editwebpage)
				website = "home"
				loadWebpage()

			else

				website = "home"
				loadWebpage()

			end
		else
			if fs.exists(".cache/" ..website) then fs.delete(".cache/" ..website) end
			webpage = fs.open(".cache/" ..website, "w")
			webpage.write(message)
			webpage.close()
			term.clear()
			term.setCursorPos(1,1)
			cPrint(title)
			cPrint("rdnt://" ..website.. "\n")
			shell.run(".cache/" ..website)
		end
	end

	done()
end

loadWebpage()