3 local irc = require "irc"
4 local dcc = require "irc.dcc"
8 local ip_prog = io.popen("get_ip")
9 local ip = ip_prog:read()
13 local function print_state()
14 for chan in irc.channels() do
15 print(chan..": Channel ops: "..table.concat(chan:ops(), " "))
16 print(chan..": Channel voices: "..table.concat(chan:voices(), " "))
17 print(chan..": Channel normal users: "..table.concat(chan:users(), " "))
18 print(chan..": All channel members: "..table.concat(chan:members(), " "))
22 local function on_connect()
23 print("Joining channel #doytest...")
25 print("Joining channel #doytest2...")
28 irc.register_callback("connect", on_connect)
30 local function on_me_join(chan)
31 print("Join to " .. chan .. " complete.")
32 print(chan .. ": Channel type: " .. chan.chanmode)
33 if chan.topic.text and chan.topic.text ~= "" then
34 print(chan .. ": Channel topic: " .. chan.topic.text)
35 print(" Set by " .. chan.topic.user ..
36 " at " .. os.date("%c", chan.topic.time))
38 irc.act(chan.name, "is here")
41 irc.register_callback("me_join", on_me_join)
43 local function on_join(chan, user)
44 print("I saw a join to " .. chan)
45 if tostring(user) ~= "doylua" then
46 irc.say(tostring(chan), "Hi, " .. user)
50 irc.register_callback("join", on_join)
52 local function on_part(chan, user, part_msg)
53 print("I saw a part from " .. chan .. " saying " .. part_msg)
56 irc.register_callback("part", on_part)
58 local function on_nick_change(new_nick, old_nick)
59 print("I saw a nick change: " .. old_nick .. " -> " .. new_nick)
62 irc.register_callback("nick_change", on_nick_change)
64 local function on_kick(chan, user)
65 print("I saw a kick in " .. chan)
68 irc.register_callback("kick", on_kick)
70 local function on_quit(chan, user)
71 print("I saw a quit from " .. chan)
74 irc.register_callback("quit", on_quit)
76 local function whois_cb(cb_data)
77 print("WHOIS data for " .. cb_data.nick)
78 if cb_data.user then print("Username: " .. cb_data.user) end
79 if cb_data.host then print("Host: " .. cb_data.host) end
80 if cb_data.realname then print("Realname: " .. cb_data.realname) end
81 if cb_data.server then print("Server: " .. cb_data.server) end
82 if cb_data.serverinfo then print("Serverinfo: " .. cb_data.serverinfo) end
83 if cb_data.away_msg then print("Awaymsg: " .. cb_data.away_msg) end
84 if cb_data.is_oper then print(nick .. "is an IRCop") end
85 if cb_data.idle_time then print("Idletime: " .. cb_data.idle_time) end
86 if cb_data.channels then
87 print("Channel list for " .. cb_data.nick .. ":")
88 for _, channel in ipairs(cb_data.channels) do print(channel) end
92 local function serverversion_cb(cb_data)
93 print("VERSION data for " .. cb_data.server)
94 print("Version: " .. cb_data.version)
95 print("Comments: " .. cb_data.comments)
98 local function ping_cb(cb_data)
99 print("CTCP PING for " .. cb_data.nick)
100 print("Roundtrip time: " .. cb_data.time .. "s")
103 local function time_cb(cb_data)
104 print("CTCP TIME for " .. cb_data.nick)
105 print("Localtime: " .. cb_data.time)
108 local function version_cb(cb_data)
109 print("CTCP VERSION for " .. cb_data.nick)
110 print("Version: " .. cb_data.version)
113 local function stime_cb(cb_data)
114 print("TIME for " .. cb_data.server)
115 print("Server time: " .. cb_data.time)
118 local function on_channel_msg(chan, from, msg)
119 if from == "doy" then
120 if msg == "leave" then
123 elseif msg:sub(1, 3) == "op " then
126 elseif msg:sub(1, 5) == "deop " then
127 chan:deop(msg:sub(6))
129 elseif msg:sub(1, 6) == "voice " then
130 chan:voice(msg:sub(7))
132 elseif msg:sub(1, 8) == "devoice " then
133 chan:devoice(msg:sub(9))
135 elseif msg:sub(1, 5) == "kick " then
136 chan:kick(msg:sub(6))
138 elseif msg:sub(1, 5) == "send " then
139 dcc.send(from, msg:sub(6))
141 elseif msg:sub(1, 6) == "whois " then
142 irc.whois(whois_cb, msg:sub(7))
144 elseif msg:sub(1, 8) == "sversion" then
145 irc.server_version(serverversion_cb)
147 elseif msg:sub(1, 5) == "ping " then
148 irc.ctcp_ping(ping_cb, msg:sub(6))
150 elseif msg:sub(1, 5) == "time " then
151 irc.ctcp_time(time_cb, msg:sub(6))
153 elseif msg:sub(1, 8) == "version " then
154 irc.ctcp_version(version_cb, msg:sub(9))
156 elseif msg:sub(1, 5) == "stime" then
157 irc.server_time(stime_cb)
159 elseif msg:sub(1, 6) == "trace " then
160 irc.trace(trace_cb, msg:sub(7))
162 elseif msg:sub(1, 5) == "trace" then
167 if from ~= "doylua" then
168 irc.say(chan.name, from .. ": " .. msg)
171 irc.register_callback("channel_msg", on_channel_msg)
173 local function on_private_msg(from, msg)
174 if from == "doy" then
175 if msg == "leave" then
178 elseif msg:sub(1, 5) == "send " then
179 dcc.send(from, msg:sub(6))
183 if from ~= "doylua" then
187 irc.register_callback("private_msg", on_private_msg)
189 local function on_channel_act(chan, from, msg)
190 irc.act(chan.name, "jumps on " .. from)
192 irc.register_callback("channel_act", on_channel_act)
194 local function on_private_act(from, msg)
195 irc.act(from, "jumps on you")
197 irc.register_callback("private_act", on_private_act)
199 local function on_op(chan, from, nick)
200 print(nick .. " was opped in " .. chan .. " by " .. from)
203 irc.register_callback("op", on_op)
205 local function on_deop(chan, from, nick)
206 print(nick .. " was deopped in " .. chan .. " by " .. from)
209 irc.register_callback("deop", on_deop)
211 local function on_voice(chan, from, nick)
212 print(nick .. " was voiced in " .. chan .. " by " .. from)
215 irc.register_callback("voice", on_voice)
217 local function on_devoice(chan, from, nick)
218 print(nick .. " was devoiced in " .. chan .. " by " .. from)
221 irc.register_callback("devoice", on_devoice)
223 local function on_dcc_send()
226 irc.register_callback("dcc_send", on_dcc_send)
228 irc.connect{network = "irc.freenode.net", nick = "doylua"}