author | Mikael Berthe <mikael@lilotux.net> |
Tue, 27 Nov 2012 16:26:04 +0100 | |
changeset 66 | d9c00a9fe9d5 |
parent 16 | 064a50911e05 |
child 67 | 5c756a9d7d8c |
permissions | -rw-r--r-- |
66
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
1 |
|
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
2 |
-- This module is part of the McBot / mcabbot project |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
3 |
-- What-The-F... module. |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
4 |
-- |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
5 |
-- Copyright (C) 2010-2012 Mikael Berthe <mikael@lilotux.net> |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
6 |
-- |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
7 |
-- This program is free software; you can redistribute it and/or modify |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
8 |
-- it under the terms of the GNU General Public License as published by |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
9 |
-- the Free Software Foundation; either version 2 of the License, or (at |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
10 |
-- your option) any later version. |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
11 |
-- |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
12 |
-- Please check the license in the COPYING file at the root of the tree. |
d9c00a9fe9d5
Add notices before public release
Mikael Berthe <mikael@lilotux.net>
parents:
16
diff
changeset
|
13 |
-- |
0 | 14 |
|
15 |
local wtfdbfile = "/home/mikael/.mcabber/lua/mcbot/wtfdb.txt" |
|
16 |
||
16
064a50911e05
Update command infrastructure
Mikael Berthe <mikael@lilotux.net>
parents:
0
diff
changeset
|
17 |
local wtf = { ["desc"] = "Acronym dictionary" } |
064a50911e05
Update command infrastructure
Mikael Berthe <mikael@lilotux.net>
parents:
0
diff
changeset
|
18 |
|
064a50911e05
Update command infrastructure
Mikael Berthe <mikael@lilotux.net>
parents:
0
diff
changeset
|
19 |
function wtf.cmd (args) |
0 | 20 |
local r = {} |
21 |
if not args then return nil, "WTH do you want?" end |
|
22 |
args = args:gsub("[%s%?%.%!]+$", ""):upper() |
|
23 |
for line in io.lines(wtfdbfile) do |
|
24 |
if line:starts(args.."\t") then |
|
25 |
table.insert(r, line) |
|
26 |
end |
|
27 |
end |
|
28 |
local len = table.getn(r) |
|
29 |
if len == 0 then |
|
30 |
return nil, "I don't know, Sir" |
|
31 |
end |
|
32 |
local strresult = r[1] |
|
33 |
for i = 2, len do |
|
34 |
strresult = strresult .. "\n" .. r[i] |
|
35 |
end |
|
36 |
return strresult |
|
37 |
end |
|
38 |
||
39 |
mcbot_register_command("wtf", wtf) |