SimNetSystem BeispielServer - (Privat Project)

--SimNetSystem by Simlor (http://www.computercraft.info/forums2/index.php?/user/55655-simlor/)

rednet.open("back") --back,front,top,left,right

userList = {"Simlor", "Tim"}

passList = {"abc", "123"}

--Clear

function Clear()
    term.clear()
    term.setCursorPos(1,1)
end


--Set Cursorposition

function CP(x,y)
    term.setCursorPos(x,y)
end


--Set Background Color

function BC(farbe)
    term.setBackgroundColor(farbe)
end


--Set Text Color

function TC(farbe)
    term.setTextColor(farbe)
end

--Log System

function LogWriter(nachricht)

	local file = fs.open("SimNetSystem/log","a")
	file.writeLine(nachricht)
	file.close()

end

--LoginAbfrage

function LoginAbfrage()

	print("")
	TC(16)
	print("Login gestartet...")

	eingabeP = ""
	eingabeU = ""
	name = false
	pass = false

	rednet.send(SucherID, "login", SaveID)

	oldSucherID = SucherID

	SucherID, eingabeU, SaveID = rednet.receive(SaveID, 0.2)
	SucherID, eingabeP, SaveID = rednet.receive(SaveID, 0.2)

	if eingabeU == "" or eingabeU == nil or eingabeP == "" or eingabeP == nil then

		rednet.send(oldSucherID, "false", SaveID)

		TC(16384)
		print("")
		print("Fehler beim Login")

		LogWriter("--------------------------------")
		LogWriter("")
		LogWriter("Anfrage : Login")
		LogWriter("SucherID: "..oldSucherID)
		LogWriter("Ergebnis: Login aufgrund fehlender Login Daten fehlgeschlagen")
		LogWriter("")

		Feedback = false

	else

		TC(16)

		print("")
		print("Login Daten")
		print("-----------")
		print("")
		print("SucherID: "..SucherID)
		print("SaveID  : "..SaveID)
		print("name    : "..eingabeU)
		print("pass    : "..eingabeP)

		C = 0

		while true do

			C = (C+1)

			if userList[C] == eingabeU and not (name == true) then

				name = true

				if passList[C] == eingabeP and not (pass == true) then

					pass = true

				end

			end

			if name == true and pass == true then

				Feedback = true

				TC(32)
				print("")
				print("Login Daten waren korrekt")

				LogWriter("--------------------------------")
				LogWriter("")
				LogWriter("Anfrage : Login")
				LogWriter("SucherID: "..SucherID)
				LogWriter("username: "..eingabeU)
				LogWriter("passwort: "..eingabeP)
				LogWriter("Ergebnis: Login war erfolgreich")
				LogWriter("")

				break

			end

			if C == (table.getn(userList)) then

				Feedback = false

				rednet.send(SucherID, "false", SaveID)

				TC(16384)
				print("")
				print("Login Daten waren nicht korrekt")

				LogWriter("--------------------------------")
				LogWriter("")
				LogWriter("Anfrage : Login")
				LogWriter("SucherID: "..SucherID)
				LogWriter("username: "..eingabeU)
				LogWriter("passwort: "..eingabeP)
				LogWriter("Ergebnis: Login aufgrund falscher Login Daten fehlgeschlagen")
				LogWriter("")

				break

			end
		end
	end
end

--Text Funktion

function TextAbfrage(num)

	rednet.send(SucherID, "text", SaveID)

	if num == 1 then
		Text = {
		"TestLog",
		"-------",
		"",
		"20:15: Hangover 3"
		}
	elseif num == 2 then
		Text = {
		"Fake"
		}
	end

	C = 0

	while true do

		C = (C+1)

		rednet.send(SucherID, Text[C], SaveID)

		if (table.getn(Text)) == C then

			rednet.send(SucherID, "end", SaveID)

			TC(32)
			print("")
			print("Text wurde uebertragen")

			LogWriter("--------------------------------")
			LogWriter("")
			LogWriter("Anfrage : Text")
			LogWriter("SucherID: "..SucherID)
			LogWriter("Ergebnis: Wurde erfolgreich uebertragen")
			LogWriter("")

			break

		end
	end
end



--System

BC(32768)
Clear()
TC(16)
print("SimTestServer")

while true do

	print("")
	TC(16)
	print("Warte auf eine Anfrage...")

	SaveID = nil
	eingabe = nil
	SucherID = nil

	SucherID, eingabe, SaveID = rednet.receive()

	if SucherID == nil or eingabe == nil or SaveID == nil then --Blockliste

		TC(16384)
		print("")
		print("Es wurde ein falsche Anfrage gestellt.")

		LogWriter("--------------------------------")
		LogWriter("")
		LogWriter("Anfrage : Allgemein")
		LogWriter("SucherID: "..SucherID)
		LogWriter("Ergebnis: Es fehlen bestimmte Anfrage-Daten")
		LogWriter("")

	else

		TC(16)
		print("")
		print("Es wurde eine Anfrage gestellt.")
		print("")
		print("SucherID: "..SucherID)
		print("Anfrage : "..eingabe)
		print("SaveID  : "..SaveID)

		if eingabe == "connect" then

			rednet.send(SucherID, "connect", SaveID)

			--Alle Commands

			rednet.send(SucherID, "server_shutdown", SaveID)
			rednet.send(SucherID, "log", SaveID)

			rednet.send(SucherID, "end", SaveID)

			--END Alle Commands

			TC(32)
			print("")
			print("Anfrage wurde erfolgreich bearbeitet")

			LogWriter("--------------------------------")
			LogWriter("")
			LogWriter("Anfrage : connect")
			LogWriter("SucherID: "..SucherID)
			LogWriter("Ergebnis: Anfrage wurde erfolgreich bearbeitet")
			LogWriter("")

		--Ab hier folgen die Beispiel Commands:

		elseif eingabe == "server_shutdown" then

			LoginAbfrage()


			if Feedback == true then

				LogWriter("--------------------------------")
				LogWriter("")
				LogWriter("Anfrage : server_shutdown")
				LogWriter("SucherID: "..SucherID)
				LogWriter("Ergebnis: Server wird abgeschaltet")
				LogWriter("")

				rednet.send(SucherID, "true", SaveID)

				os.shutdown()

			end

		elseif eingabe == "log" then

			TextAbfrage(1)

			TC(32)
			print("")
			print("Anfrage erfolgreich bearbeitet")


		--END der Beispiel Command Liste

		else

			TC(16384)
			print("")
			print("Es gab einen Fehler")

		end

	end
end