You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
260 lines
6.9 KiB
260 lines
6.9 KiB
local socket = require "socket"
|
|
local serialization = require "serialization"
|
|
|
|
config = {}
|
|
cmds = {}
|
|
hooks = {}
|
|
timers = {}
|
|
|
|
function loadconfig()
|
|
local f = io.open("./config.lua","rb")
|
|
local content = f:read("*a")
|
|
f:close()
|
|
print(content)
|
|
config = serialization.unserialize(content)
|
|
hooks = {}
|
|
for k,v in pairs(config.hooks) do
|
|
print("Loading hook "..v)
|
|
local fo=io.open("./hooks/" .. v)
|
|
local c = fo:read("*a")
|
|
local s,f = pcall(load,c)
|
|
fo:close()
|
|
if s then
|
|
table.insert(hooks,#hooks+1,f)
|
|
print("Hook "..v.." loaded")
|
|
else
|
|
print("Hook "..v.." failed to load:")
|
|
print(f)
|
|
end
|
|
end
|
|
cmds = {}
|
|
for k,v in pairs(config.cmds) do
|
|
local fo=io.open("./cmds/" .. v)
|
|
local s,f = pcall(load,fo:read("*a"))
|
|
fo:close()
|
|
if s then
|
|
cmds[k]=f
|
|
print("Command "..v.." loaded")
|
|
else
|
|
print("Command "..v.." failed to load:")
|
|
print(f)
|
|
end
|
|
end
|
|
timers = {}
|
|
for k,v in pairs(config.timers) do
|
|
local fo=io.open("./timers/" .. v)
|
|
local s,f = pcall(load,fo:read("*a"))
|
|
fo:close()
|
|
if s then
|
|
table.insert(timers,f)
|
|
print("Timer "..v.." loaded")
|
|
else
|
|
print("Timer "..v.."Failed to load:")
|
|
print(f)
|
|
end
|
|
end
|
|
end
|
|
|
|
function saveconfig()
|
|
local newconfig = serialization.serialize(config)
|
|
local f = io.open("config.lua","wb")
|
|
f:write(newconfig)
|
|
f:close()
|
|
end
|
|
|
|
function reply(chan,msg)
|
|
|
|
end
|
|
|
|
function os.sleep(n)
|
|
os.execute("sleep ".. tostring(tonumber(n)))
|
|
end
|
|
|
|
function checkAdmin(nick)
|
|
local pass=false
|
|
writeln("WHOIS "..nick)
|
|
repeat
|
|
line = readln()
|
|
print(line)
|
|
until line:find("330") ~= nil or line == nil
|
|
print ("Line: "..line)
|
|
if line == nil then return false end -- wat
|
|
local _,e = line:find(nick.." ")
|
|
print("Start: "..tostring(e))
|
|
local n,_ = line:find(" ",e+1)
|
|
print("End: "..tostring(n))
|
|
nick = line:sub(e+1,n-1)
|
|
print("Logged in as "..nick)
|
|
for k,v in pairs(config.admins) do
|
|
if nick == v then
|
|
print(v .. " = " .. nick)
|
|
pass = true
|
|
break
|
|
else
|
|
print(nick .. " != " .. v)
|
|
end
|
|
end
|
|
return pass
|
|
end
|
|
|
|
function addcommand(fname,str)
|
|
-- don't use this without pcall
|
|
cmds[fname] = load(str)
|
|
end
|
|
|
|
leftHanging = {0,false}
|
|
|
|
function parsemsg(nick,chan,message)
|
|
for k,v in pairs(hooks) do
|
|
-- print("Running hook "..k)
|
|
local fail,errors = pcall(v,nick,chan,message)
|
|
if not fail then print(errors) end
|
|
end
|
|
if string.find(message,config.prefix) == 1 then
|
|
local command = message:sub(2) .. " "
|
|
if command == "" then return end
|
|
local tCommand = {}
|
|
for word in command:gmatch("%S+") do
|
|
table.insert(tCommand,word)
|
|
end
|
|
if tCommand[1]:lower() == "echo" then
|
|
local s = command:sub(6)
|
|
sendchan(chan,s)
|
|
elseif tCommand[1] == "echochan" then
|
|
local s = command:sub(11 + tCommand[2]:len())
|
|
sendchan(tCommand[2],s)
|
|
elseif tCommand[1]:lower() == "action" then
|
|
local s = command:sub(7)
|
|
sendchan(chan,string.char(1).."ACTION"..s..string.char(1))
|
|
elseif tCommand[1] == "actionchan" then
|
|
local s = command:sub(string.len("actionchan")+2+ tCommand[2]:len())
|
|
sendchan(tCommand[2],string.char(1).."ACTION"..s..string.char(1))
|
|
elseif tCommand[1] == "rawecho" then
|
|
if checkAdmin(nick) then
|
|
writeln(command:sub(9))
|
|
end
|
|
elseif tCommand[1] == "drop" then
|
|
leftHanging = {0, false}
|
|
elseif tCommand[1] == "join" then
|
|
writeln("JOIN "..tCommand[2])
|
|
elseif tCommand[1] == "lua" then
|
|
if checkAdmin(nick) then
|
|
local s = command:sub(4)
|
|
local worked,rval = pcall(load(s))
|
|
sendchan(chan,tostring(worked).." "..tostring(rval))
|
|
end
|
|
elseif tCommand[1] == "whois" then
|
|
writeln("WHOIS "..tCommand[2])
|
|
elseif tCommand[1] == "addcmd" and checkAdmin(nick) then
|
|
--I'll get back to this eventually
|
|
elseif tCommand[1] == "quit" then
|
|
if checkAdmin(nick) then
|
|
sendchan(chan,"Bye! o/")
|
|
writeln("QUIT :Blame telstra.")
|
|
print("Killed by "..nick)
|
|
os.exit(0)
|
|
end
|
|
elseif tCommand[1] == "restart" then
|
|
if checkAdmin(nick) then
|
|
sendchan(chan,"Bye! o/")
|
|
writeln("QUIT :Blame telstra.")
|
|
print("Killed by "..nick)
|
|
os.exit(1)
|
|
end
|
|
elseif tCommand[1] == "debug" then
|
|
if checkAdmin(nick) then
|
|
config.debug = not config.debug
|
|
end
|
|
elseif cmds[tCommand[1]] ~= nil then
|
|
local fail, errors = pcall(cmds[tCommand[1]],nick,chan,tCommand,message)
|
|
if not fail then print(errors) end
|
|
end
|
|
end
|
|
end
|
|
|
|
function parse(line)
|
|
if string.find(line, "PING :") == 1 then
|
|
local _,pingid = string.match(line,"([^,]+):([^,]+)")
|
|
writeln("PONG :"..pingid)
|
|
print("[Ping] "..pingid)
|
|
elseif string.find(line,":") == 1 and string.find(line,"PRIVMSG") ~= nil and string.find(line,"005") == nil then
|
|
local s = string.sub(line,2) -- I
|
|
local ms,me = string.find(s,"!") -- me = match end, ms = match start
|
|
local nick = string.sub(s,1,ms-1)
|
|
s=string.sub(s,me+1)
|
|
local ms,me = string.find(s," PRIVMSG ")
|
|
s=string.sub(s,me+1)
|
|
local ms,me = string.find(s," :")
|
|
local chan = string.sub(s,1,ms-1)
|
|
local msg = string.sub(s,me+1)
|
|
--[[
|
|
-- old parser, kept for hysterical rasins
|
|
local nick,s = string.match(s,"([^,]+)!([^\n]+)") -- am
|
|
local _,s = string.match(s,"([^,]+) PRIVMSG ([^\n]+)") -- a
|
|
local chan, msg = string.match(s,"([^,]+) :([^\n]+)") -- terrible
|
|
if chan == config.nick then chan = nick end
|
|
]]--
|
|
print("["..chan.."] <"..nick.."> "..msg) --person
|
|
parsemsg(nick,chan,msg)
|
|
end
|
|
end
|
|
|
|
function main()
|
|
print("Loading config.")
|
|
loadconfig()
|
|
print("Config loaded, resolving "..config.server)
|
|
local ip = socket.dns.toip(config.server)
|
|
print("Opening connection to "..ip)
|
|
local connection = socket.connect(ip,config.port)
|
|
function writeln(l) connection:send(l.."\n") end
|
|
function sendchan(chan,msg) writeln("PRIVMSG "..chan.." :"..msg) end
|
|
function readln() return connection:receive() end
|
|
connection:settimeout(1)
|
|
print("Connected!")
|
|
os.sleep(1)
|
|
connection:receive() -- drop a line
|
|
print("Logging in.")
|
|
connection:send("NICK "..config.nick.."\n")
|
|
connection:send("USER "..config.username.." "..config.hostname.." "..config.servername.." "..config.realname.."\n")
|
|
repeat
|
|
line = connection:receive() or ""
|
|
if string.find(line, "PING :") == 1 then
|
|
local _,pingid = string.match(line,"([^,]+):([^,]+)")
|
|
writeln("PONG :"..pingid)
|
|
print("Pinged: "..pingid)
|
|
_G.lastping = os.time()
|
|
end
|
|
if line ~= "" then
|
|
print(line)
|
|
end
|
|
until string.match(line or "","%+i") ~= nil
|
|
os.sleep(2)
|
|
print("Sent everything relevant. Joining channels.")
|
|
if config.autojoin then
|
|
for k,v in pairs(config.channels) do
|
|
connection:send("JOIN " .. v.."\n")
|
|
end
|
|
end
|
|
_G.lastping = os.time()
|
|
repeat
|
|
line = connection:receive()
|
|
if line ~= nil and line ~= "timeout" then
|
|
if config.debug then print(line) end
|
|
pcall(parse,line)
|
|
else
|
|
--[[ if (line == "timeout" or line == nil) and os.time() > _G.lastping + config.timeout then
|
|
print(line)
|
|
print("Connection to IRC timed out, aborting.")
|
|
os.exit(1)
|
|
end]]--
|
|
end
|
|
for k,v in ipairs(timers) do
|
|
local fail, errors = pcall(v,line)
|
|
if not fail then print(errors) end
|
|
end
|
|
if line == nil then line = "" end
|
|
until string.find(line,"ERROR :Closing link:") ~= nil
|
|
print(connection:receive())
|
|
end
|
|
|
|
main()
|
|
|