Trash Manager 2.2.1

local trashListChest = peripheral.wrap("back")
local aeNetwork = peripheral.wrap("right")
while true do
   trash_list = {}
   for i,data in pairs(trashListChest.getAllStacks(false)) do
      data_stack = {["id"] = data.id, ["dmg"] = data.dmg}
      network_item = aeNetwork.getItemDetail(data_stack, false)
      if network_item ~= nil and data_stack ~= nil and data ~= nil then
         while network_item.qty > ( data.qty * 1000 ) do
            if trash_list[data.display_name] == nil then
               trash_list[data.display_name] = aeNetwork.exportItem(data_stack, "up", math.min(network_item.qty - ( data.qty * 1000 ), data.max_size)).size
            else
               trash_list[data.display_name] = trash_list[data.display_name] + aeNetwork.exportItem(data_stack, "up", math.min(network_item.qty - ( data.qty * 1000 ), data.max_size)).size
            end
            sleep(.05)
            network_item = aeNetwork.getItemDetail(data_stack, false)
            if network_item == nil then
               break
            end
         end
      end
   end
   print("Cleaned out:")
   for name,i in pairs(trash_list) do
      print(name.." - "..i)
   end
   sleep(30)
end