degesch: add an auto-rejoin.lua plugin
This commit is contained in:
parent
fa5e005728
commit
75c4645f10
47
plugins/degesch/auto-rejoin.lua
Normal file
47
plugins/degesch/auto-rejoin.lua
Normal file
@ -0,0 +1,47 @@
|
||||
--
|
||||
-- auto-rejoin.lua: join back automatically when someone kicks you
|
||||
--
|
||||
-- Copyright (c) 2016, Přemysl Janouch <p.janouch@gmail.com>
|
||||
--
|
||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||
-- purpose with or without fee is hereby granted, provided that the above
|
||||
-- copyright notice and this permission notice appear in all copies.
|
||||
--
|
||||
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
||||
-- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
||||
-- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
||||
-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
--
|
||||
|
||||
local timeout
|
||||
degesch.setup_config {
|
||||
timeout = {
|
||||
type = "integer",
|
||||
comment = "auto rejoin timeout",
|
||||
default = "0",
|
||||
|
||||
on_change = function (v)
|
||||
timeout = v
|
||||
end,
|
||||
validate = function (v)
|
||||
if v < 0 then error ("timeout must not be negative", 0) end
|
||||
end,
|
||||
},
|
||||
}
|
||||
|
||||
degesch.hook_irc (function (hook, server, line)
|
||||
local msg = degesch.parse (line)
|
||||
if msg.command ~= "KICK" then return line end
|
||||
|
||||
local who = msg.prefix:match ("^[^!]*")
|
||||
local channel, whom = table.unpack (msg.params)
|
||||
if who ~= whom and whom == server.user.nickname then
|
||||
degesch.hook_timer (function (hook)
|
||||
server:send ("JOIN " .. channel)
|
||||
end, timeout * 1000)
|
||||
end
|
||||
return line
|
||||
end)
|
Loading…
Reference in New Issue
Block a user