startup

-- file protector
-- v1.0
-- made by wilcomega
local configFile = "files.conf"
local defaultConfig = { { "acces-password", "password" }, { "filemanager-usepass", "0" }, { "filemanager-password", "password" }, { "files", { } } }
local files = { }
_G["fileapi"] = { }

function split( str, pat )
  local t = { }
  local fpat = "(.-)" .. pat
  local last_end = 1
  local s, e, cap = str:find( fpat, 1 )
  while s do
    if s ~= 1 or cap ~= "" then
      table.insert( t, cap )
    end
    last_end = e + 1
    s, e, cap = str:find( fpat, last_end )
  end
  if last_end <= #str then
    cap = str:sub( last_end )
    table.insert( t, cap )
  end
  return t
end

function getFree( t )
  i = 1
  while true do
    if t[i] == nil then return i end
    i = i + 1
  end
end

function saveFile( file, data )
  local f = fs.open( file, "w" )
  f.write( data )
  f.close( )
end

function readFile( file )
  if not fs.exists( file ) then return end
  local f = fs.open( file, "r" )
  local ins = f.readAll( )
  f.close( )
  return ins
end

function readConfig( file )
  local text = readFile( file )
  if not text then return end
  local lines = split( text, "\n" )
  for i = 1, #lines do
    lines[i] = split( lines[i], "=" )
    if lines[i][2]:sub( 1, 1 ) == "{" then
      local mini = { }
      for k,v in pairs( lines[i] ) do mini[k] = v end
      table.remove( mini, 1 )
      mini = table.concat( mini, "=" )
      lines[i][2] = textutils.unserialize( mini )
    end
  end
  return lines
end

function saveConfig( file, conf )
  for i = 1, #conf do
    --print( i, ";1;", type( conf[i] ), ";", conf[i] )
    --print( i, ";2;", type( conf[i][2] ), ";", conf[i][2] )
    if type( conf[i][2] ) == "table" then conf[i][2] = textutils.serialize( conf[i][2] ) end
    --print( i, ";1;", type( conf[i] ), ";", conf[i] )
    --print( i, ";2;", type( conf[i][2] ), ";", conf[i][2] )
    conf[i] = table.concat( conf[i], "=" )
    --print( i, ";3;", type( conf[i] ), ";", conf[i] )
  end
  local text = table.concat( conf, "\n" )
  saveFile( file, text )
end

function findValueByKeyInConfig( conf, key )
  for i = 1, #conf do
    if conf[i][1] == key then
      return conf[i][2]
    end
  end
end

fileapi.readFile = readFile
fileapi.saveFile = saveFile
fileapi.saveConfig = saveConfig
fileapi.readConfig = readConfig
fileapi.getConfigValue = findValueByKeyInConfig

fileapi.protect = function( file, conf )
  local i = getFree( files )
  if type( i ) ~= "number" then error( "something went wrong!" ) end
  print( type( files ), ";", type( files[i] ) )
  files[i] = { }
  files[i].name = fs.getName( file )
  files[i].path = file
  files[i].data = readFile( file )
  files[i].conf = conf

  if conf.hide then
    fs.delete( file )
  end
end

fileapi.unprotect = function( path )
  local file = ""
  local index = 0
  for i = 1, #files do
    if files[i].path == path then
      file = files[i]
      index = i
    end
  end
  if file.conf.hide then
    saveFile( file.path, file.data )
  end
  table.remove( files, index )
end

fileapi.getTable = function( pass )
  local thepassword = findValueByKeyInConfig( loadedConf, "acces-password" )
  local redi = files
  if thepassword == pass then
    return redi
  end
end

print "prepaired functions and variables"

local backup = { }
backup.shutdown = os.shutdown
backup.reboot = os.reboot
os.shutdown = function( )
  local index = findValueByKeyInConfig( loadedConf, "files" )
  index = files
  saveConfig( configFile, loadedConf )
  backup.shutdown( )
end
os.reboot = function( )
  local index = findValueByKeyInConfig( loadedConf, "files" )
  index = files
  saveConfig( configFile, loadedConf )
  backup.reboot( )
end

print "redefined os.shutdown and os.reboot for your file safety"

if not fs.exists( configFile ) then
  saveConfig( configFile, defaultConfig )
end
loadedConf = readConfig( configFile )
files = findValueByKeyInConfig( loadedConf, "files" )

if type( files ) == "string" then error( "something went wrong while loading the config" ) end

print( type( files ), ";", files )

print "loaded the config file"

function runShell( )
  os.run( { ["shell"] = shell }, "rom/programs/shell" )
end

function fileManager( )
  while true do
    local ev = { os.pullEventRaw( ) }

    for i, v in ipairs( files ) do
      if files[i] and not files[i].conf.hide and files[i].conf.protect then
        if not fs.exists( files[i].path ) then
          saveFile( files[i].path, files[i].data )
        else
          local newdata = readFile( files[i].path )
          if newdata ~= files[i].data then saveFile( files[i].path, files[i].data ) end
        end
      end
      if files[i] and files[i].conf.hide and not files[i].conf.protect then
        if fs.exists( files[i].path ) then fs.delete( files[i].path ) end
      end
    end
  end
end

print "starting"
sleep( 1 )
parallel.waitForAny( runShell, fileManager )