backup

--Get arguments
tArgs = {...}

local function backup(dir)
  local files = {}
  for fileNumber, fileName in ipairs(fs.list(dir)) do
    print("Backing up file "..fileNumber.." with name "..fileName)
    local myHandle = fs.open(fs.combine(dir, fileName), "r")
    local myData = myHandle.readAll()
    myHandle.close()
    table.insert(files, myData)
  end
  local servfile = fs.open("system/serversettings", "r")
  local servID = tonumber(servfile.readAll())
  print("Sending files to Backup Server with ID "..servID)
  rednet.send(servID, textutils.serialize(files))
end

if #tArgs < 1 or #tArgs > 1 then
  print("Usage: backup <directory>")
  print("Usage: backup all")
else
  if fs.isDir(tArgs[1]) then
    backup(tArgs[1])
  else
    print("Please use a valid directory.")
  end
end