OpenComputers: AE2 Sorter

--[[

 If the Nuclear Reactor overheats the Robot drops not only depleted Uran Rods into the Trash...
 If your using Applied Energistics (like me) for Supporting the Robot you will have much such Rods after some Days
 which will blow you storages...
 And here comes this Script in place:
 Extract all used Uran Rods from AE System and split them into a Chest. This Chest can than be linked to another AE or whatever..

 Setup:
 - Connect an ME_Interface to an OC Adapter.
 - Put the biggest Database-Upgrade (81 entries) into the Adapter.
 - Connect the Adapter with a Cable to a Computer.

 Alternative you can put the Adapter directly to the ME_Controller..but than you have to change the Script...
 - Put an Adapter in front of the ME_Controller. (directly to it)
 - Connect the Adapter with a Cable to the Computer.
 - You need to change the meInterfaceBus to meControllerBus lines as well as 'getAvailableItems()' to 'getItemsInNetwork()' ...



http://oc.cil.li/index.php?/topic/616-applied-energistics-2-using-oc-as-an-advanced-importexport-system/?hl=applied
http://oc.cil.li/index.php?/topic/411-extracting-items-from-me-network-applied-energetics/
http://oc.cil.li/index.php?/topic/481-ae-item-management-puzzle-whats-the-best-way-to-do-this/?hl=database

--]]


--[[ Internal values - DONT change! ]]


local component = require('component')
local side = require('sides')
local string = require('string')
local meExportBus = component.getPrimary('me_exportbus')
--local meExportBus = component.proxy(component.list("me_exportbus")())
--local meExportBus = component.me_exportbus
local meInterfaceBus = component.getPrimary('me_interface')
--local meController = component.getPrimary('me_controller')
local db = component.database
--local dbAddress = db.address
--local dbAddress = false
--for k,_ in component.list('database') do dbAddress = k break end
--dbInit = false

local version = 0.1


---[[ CONFIG - START ]]




---[[ CONFIG - END ]]


function stringMatch(text, find)
    if string.find(string.lower(text), string.lower(find)) then
        return true
    else
        return false
    end
end


--[[
function init_db()
    -- init database with all items?
    if (dbInit == false) then
        draw_text_term(1, linecount+1, 'Initialize Database!')
        for i=1, #RequiredReactorInventory do
            local Added = false
            while (Added == false) do
                if (ic.store(side.front, i, dbAddress, i) == true) then
                    Added = true
                end
            end
        end
        dbInit = true
    end
end

for i = 0, 4 do
    print("--------- Run " .. i .. " Start ---------\n")
    print("Set Config: ",exBus.setExportConfiguration(busSide, 1, db.address, i+1))

    config = exBus.getExportConfiguration(busSide, 1)
    print("\n!! Export Bus Config Start !!\n")
    for k,v in pairs(config) do
        print(k,v)
    end
    print("\n!! Export Bus Config End !!\n")

    print("Try Export: ",exBus.exportIntoSlot(busSide,i+1), "\n") -- try export an item
end

exBus.setExportConfiguration(0) --clear the config

--]]



local exportBusSide
for i = 0, 5 do
    if select(2, meExportBus.getConfiguration(i)) ~= "no export bus" then
        exportBusSide = i
        break
    end
end

local entryNum = {}
for i = 1, 81 do
    local item = db.get(i)
    if item then entryNum[item.name] = i end
end


local itemList = meInterfaceBus.getAvailableItems()

for k, v in pairs(itemList) do
    if (v.fingerprint) then
        for key,value in (v.fingerprint) do
            if (stringMatch(key.id, "reactoruranium")) then
                print(key.id, key.value)
            end
        end
    end
end
--meExportBus.setConfiguration(exportBusSide, 1, db.address, entryNum[v.name])
--meExportBus.exportIntoSlot(exportBusSide, 1)




--
-- EOF
--