remote DJ play

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

local message = {}

rednet.open("bottom")

 while true do
        event, id, text = os.pullEvent()
        if event == "rednet_message" then
                message = split(text,":")
        if message[2] == "stop" then shell.run("dj stop")
        elseif message[2] == "play" then shell.run("dj play "..message[1]) end
        end
end