ComputerCraft System Controller (SysCon)

--[[ Door Roaming Login Server ]]--
--[[ Login Details ]]--
tUsernames = {	-- Add users to the list, make sure there is the corresponding password and user status in the correct index
"StirfryNoodles",
"99Doomsday",
"CyrusShock",
"ANYONE :D/>/>/>/>/>/>/>/>"
}
tPasswords = {
"12345",
"54321",
"13524",
"AND ANY PASSWORD"

}
tUserStatus = {
"ADMIN",
"ADMIN",
"USER",
"SET STATUS HERE :D/>/>/>/>/>/>/>/>"
}
tAcceptedSenders = { 1, 3, 4, 5 }
--[[ Local Variables ]]--
bRunning = true	 -- Main loop controller ( boolean value )
localComputerID = os.getComputerID()
activityLogServerID = 0   -- Change the ID shown here to the one of the Activity Log Server
sWirelessModemSide = "right" -- Change to the side that has the wireless modem... Obviously
statusReport = "User logged into Door Server: "..localComputerID
--[[ Local Functions ]]--
function clearScreen()
term.clear()
term.setCursorPos( 1,1 )
end
function IsAcceptableTerminal(nTerminalID)
for i = 1, #tAcceptedSenders do
  if tAcceptedSenders[i] == nTerminalID then
   return true
  end
end
return false
end
function ValidateUser(sUser, sPass)
retVal = "";
for i = 1, #tUsernames do
  if tUsernames[i] == sUser then
   if tPasswords[i] == sPass then
	retVal = tUserStatus[i]
	break
   end
  end
end
return retVal
end
function sendReport()
tTable = { sUserType, tCredentials[1], "User has logged on" }
sTable = textutils.serialize( tTable )
rednet.send( activityLogServerID, sTable )
end
--[[ Program Start ]]--
-- No os.pullEvent() = os.pullEventRaw() because this is a server, you may need to shut it down manually.
while bRunning do   -- Main program loop, it doesn't end. At all. Use Ctrl-T to terminate it. :)/>/>/>/>/>/>/>/>
clearScreen()
rednet.open( sWirelessModemSide )
print( "Login Server Online at Terminal: "..localComputerID )
print( "Accepting transmissions from: " )
for nIndex = 1, #tAcceptedSenders do
  write( tAcceptedSenders[nIndex]..", " )
end

initialSenderID, sentCredentials = rednet.receive()
term.setCursorPos( 1,5 )
while true do
  if IsAcceptableTerminal(initialSenderID) then
   tCredentials = textutils.unserialize(sentCredentials)
   print ( "Username = " .. tCredentials[1] .. " with Passowrd = " .. tCredentials[2] )
   sUserType = ValidateUser(tCredentials[1], tCredentials[2])
   print ("UserType = " .. sUserType)
   rednet.send(initialSenderID, sUserType)
   if sUserType == "ADMIN" or sUserType == "USER" then
	sendReport()
   end
   initialSenderID, sentCredentials = rednet.receive()
  end
end
end

--[[ Door Control Program ]]--
-- BUILD IN PROGRESS

--[[ Local Variables ]]--
bRunning = true	 -- DO NOT CHANGE THESE BOOLEAN VALUES. AT ALL. BIG MISTAKE.
bCheckForLockDown = true
bWaitingForUser = false
bInUserLoginScreen = false
bInPassLoginScreen = false
bInUserMenu = false
bInAdminMenu = false
bSystemFailSafe = true
local nTermWidth, nTermHeight = term.getSize()
sWirelessModemSide = "right" -- Change to the side of the wireless modem.
sBundledCableSide = "left"  -- Change to the side of the bundled cable.
local lockDownRedstoneCheck = redstone.testBundledInput( sBundledCableSide, 16384 ) -- BTW that colour is red.
loginServerID = 2   -- Change server IDs to match their respective jobs.
activityLogServerID = 0
sLocalDoorCode = "D1"  -- Change to the name of the appropriate door.
--[[ Local Functions ]]--
function clearScreen()
term.clear()
term.setCursorPos(1,1)
end
function printCentered( nStartHeight, sString )
term.setCursorPos( nTermWidth/2 - string.len( sString )/2 + 1, nStartHeight )
term.write( sString )
end
function printErrorMessage( sErrorCode )
term.clear()
term.setCursorPos( 1,1 )
print( "An unexpected error has occurred, please contact\nthe Network Administrator and quote the error code,\nso they can help solve your problem.\n\nSorry for any inconvenience.\n\nError Code: "..sErrorCode.."\nSysCon v1.1" )
sleep( 5 )
os.shutdown()
end
function SendStatusReport( sStatusToBeSent )
tTable = { sUserType, enteredUsername, sStatusToBeSent }
sTable = textutils.serialize( tTable )
rednet.send( activityLogServerID, sTable )
end
--[[ Program Start ]]--
clearScreen()
print( "Loading program, please wait..." )
sleep( 1 )
print( "Load complete." )
sleep( 0.5 )
clearScreen()
rednet.open( sWirelessModemSide )
print( "Rednet port opened on side: "..sWirelessModemSide )
sleep( 0.5 )
while bRunning do
while bCheckForLockDown do
  clearScreen()
  print( "Checking systems..." )
  sleep( 0.5 )
  while lockDownRedstoneCheck do	 -- This will actually need to do something in the future... Where in case of lock-down, only admins can access terminals.
   clearScreen()
   print( "Currently unstable..." )
   -- SECTION INCOMPLETE
  end
  print( "Check complete. Starting core functions." )
  sleep( 1 )
  bCheckForLockDown = false
  -- bWaitingForUser = true
  bInUserLoginScreen = true
end

while bWaitingForUser do   -- This section of code is curently unused as I can't seem to clear the buffer of the os.pullEvent( "key" )
  clearScreen()
  printCentered( 9, "Press 'L' To Login" )
  printCentered( 12, "** WARNING: Roaming Logon Enabled **" )
  local sEvent, lKey = os.pullEvent( "key" )
  if lKey == keys.l then
   bInUserLoginScreen = true
   bWaitingForUser = false
  end

end

while bInUserLoginScreen do
  clearScreen()
  printCentered( 3, "Enter Username then Press Enter" )
  printCentered( 5, "Enter 'Q' into Username to Quit" )
  printCentered( 8, "############################" )
  printCentered( 9, "# Username:				#" )
  printCentered( 10, "############################" )
  printCentered( 11, "# Password:				#" )
  printCentered( 12, "############################" )
  printCentered( 14, "** WARNING: Roaming Logon Enabled **" )
  term.setCursorPos( nTermWidth/2 - string.len( "# Username:				#" )/2 + 12, 9 )
  enteredUsername = read()
  if enteredUsername == "q" then
   bInUserLoginScreen = false
   bRunning = false
   os.shutdown()
  elseif enteredUsername == "Q" then
   bInUserLoginScreen = false
   bRunning = false
   os.shutdown()
  elseif enteredUsername == "756312746815634" then
   clearScreen()
   print( "Machine debug overide key detected, please wait..." )
   print( "Stopping processess..." )
   sleep( 1 )
   print( "Done." )
   sleep( 1.5 )
   print( "WARNING: SYSTEM IS NOW VULNERABLE.\n		 PLEASE REBOOT WHEN FINISHED." )
   print( "WARNING: ACTIVITY LOG HAS BEEN NOTIFIED." )
   sleep( 1 )
   tTable = { "SYSTEM", "TERMINAL", "MACHINE HAS ENTERED DEBUG MODE." }
   sTable = textutils.serialize( tTable )
   rednet.send( activityLogServerID, sTable )
   bInUserLoginScreen = false
   bRunning = false
   bSystemFailSafe = false
  else
   bInPassLoginScreen = true
   bInUserLoginScreen = false
  end
end

while bInPassLoginScreen do
  term.setCursorPos( nTermWidth/2 - string.len( "# Password:				#" )/2 + 12, 11 )
  enteredPassword = read( "*" )
  tCredentials = { enteredUsername, enteredPassword }
  sCredentials = textutils.serialize(tCredentials)
  rednet.send( loginServerID, sCredentials )
  senderId, sUserType = rednet.receive()
  if senderId == loginServerID then
   print(sUserType)
   if sUserType == "ADMIN" then
	clearScreen()
	bInAdminMenu = true
	bInPassLoginScreen = false
	print( "Authentication successful. Please wait." )
  
   elseif sUserType == "USER" then
	clearScreen()
	bInUserMenu = true
	bInPassLoginScreen = false
	print( "Authentication successful. Please wait." )
   else
	printCentered( 16, "Authentication failed. Please try again." )
	bInPassLoginScreen = false
	bInUserLoginScreen = true
	sleep( 1.5 )
   end
  end
end

while bInUserMenu do
  clearScreen()
  print( "Successfully got to User Menu." )
  printCentered( 3, "Press the number to select option." )
  term.setCursorPos( 17, 6 )
  print( "[1] Open Doors" )
  term.setCursorPos( 17, 7 )
  print( "[2] Log Out" )
  term.setCursorPos( 17, 8 )
  print( "[3] Shutdown" )
  local sEvent, nKey = os.pullEvent( "key" )
  if nKey == 2 then
   clearScreen()
   print( "Option 1 has been selected." )
   print( "Doors will open for 3 seconds, please wait..." )
   print( "WARNING: Notifying Activity Log..." )
   SendStatusReport( "User has opened door: " .. sLocalDoorCode )
   sleep( 0.5 )
   -- SECTION INCOMPLETE
   -- Make doors open and stuff like that for 3 seconds
   sleep( 3 )
   print( "Auto-logout, logging out, please wait..." )
   SendStatusReport( "User has logged out." )
   sleep( 1.5 )
   bInUserMenu = false
   bCheckForLockDown = true
  elseif nKey == 3 then
   clearScreen()
   print( "Logging out, please wait..." )
   sleep( 1.5 )
   bInUserMenu = false
   bCheckForLockDown = true
   SendStatusReport( "User has logged out." )
  elseif nKey == 4 then
   clearScreen()
   print( "Shutting down, please wait..." )
   SendStatusReport( "User has logged out." )
   sleep( 1.5 )
   bInUserMenu = false
   bRunning = false
   os.shutdown()
  end
end

while bInAdminMenu do
  clearScreen()
  print( "Successfully got to Admin Menu." )
  -- SECTION INCOMPLETE...
  sleep( 2 )
end
end
while bSystemFailSafe do
printErrorMessage( "#001-A" )
end
print( "The program has terminated." )

--[[ Activity Log ]]--
--[[
Notes:
- Program is designed to run on a monitor for easy use and viewing.
-
]]--
--[[ Local Variables ]]--
bRunning = true
sWirelessModemSide = "right"  -- Change modem side as required, default is "right" for testing purposes.
nWriteLineHeight = 2
tAcceptedSenders = { 1, 2, 3, 4 } -- Change to match accepted senders

--[[ Local Functions ]]--
function printStatus()
local t = os.time()
t = textutils.formatTime( t, true )
print( "[ " .. t .. " ] >> " .. tStatusReport[1] .. "-" .. tStatusReport[2] .. "; Terminal: " .. initialSenderID )
print( "		  >> " .. tStatusReport[3] )
end
function clearScreen()
term.clear()
term.setCursorPos(1,1)
end
function IsAcceptableTerminal(nTerminalID)
for i = 1, #tAcceptedSenders do
  if tAcceptedSenders[i] == nTerminalID then
   return true
  end
end
return false
end

--[[ Program Start ]]--
clearScreen()
print("")
while bRunning do
x, y = term.getCursorPos()
term.setCursorPos( 1, 1 )
print( "Activity Log Server Online, Hold Ctl-T to Quit" )
term.setCursorPos(x, y)

rednet.open( sWirelessModemSide )
initialSenderID, sentStatusReport = rednet.receive()
if IsAcceptableTerminal( initialSenderID ) then
  tStatusReport = textutils.unserialize( sentStatusReport )
  printStatus()
  nWriteLineHeight = nWriteLineHeight + 2
end
end