OC-MultICE/modules/applications/ircbridge.lua

_G.tircb = {}
function ircb(h,p,n) -- host, port
 s("IRC bridge connector", function()
  local ip,h,p = component.proxy(component.list("internet")()),h,p
  local c=ip.connect(h,p)
  local ct = computer.uptime()
  while computer.uptime() < ct+5 do
   C.yield()
   c.finishConnect()
  end
  if c.finishConnect() then
   local ct=computer.uptime()
   print("Connected successfully.")
   local function wl(s)
    print("-->| "..s)
    c.write(s.."\n") 
   end
   _G.wil = wl
   function sc(u,s) wl("PRIVMSG "..u.." :"..s) end
   local function prs(line)
    h,m = string.match(line,":?(.-):(.+)") tH = {} 
    for w in h:gmatch("%S+") do tH[#tH+1] = w end
    if tH[1] == "PING" then
     wl("PONG :"..m)
    elseif tH[2] == "PRIVMSG" then
     local n,r,h = tH[1]:match("(.+)!(.+)@(.+)")
     print(n.." ("..r.."@"..h.."): "..m)
     local t,f,p,ms = m:match("(.+),(.+),(.+),(.+)")
     if t and f and p and ms then
      t,f,p,ms = ub64(t),n..":"..ub64(f),ub64(p),ub64(ms)
      for k,v in ipairs(tM) do
       v.broadcast(nP,t,f,p,ms)
      end
     end
    else
     print("|<-- "..line)
    end
   end
   wl("NICK "..n)
   wl("USER "..n.." "..n.." "..n.." "..n)
   while c.finishConnect() do
    coroutine.yield()
    local d=c.read()
    if type(d) == "string" then
     if d ~= "" and d ~= "\n" then
      for line in d:gmatch("[^\r\n]+") do
       pcall(prs,line)
      end
     end
    end
    if ct+0.25 < computer.uptime() then
     if #tircb > 0 then
      sc(T.unpack(T.remove(tircb,1)))
     end
     ct=computer.uptime()
    end
   end
  else
   print("Failed to connect:")
   print(c.finishConnect())
  end
 end)
 s("IRC bridge",function()
  while true do
   if ev[1] == "modem_message"then
    local pa,pb = ev[7]:match("(.+):(.+)")
    if pa and pb then tircb[#tircb+1] = {pa,b64(pb)..","..b64(ev[8])..","..b64(ev[9])..","..b64(ev[10])} end
   end
   coroutine.yield()
  end
 end)
end