Wed, 06 Jan 2010 03:50:37 +0000
Initial commit
0 | 1 | require "verse" |
2 | require "verse.client" | |
3 | ||
4 | local command = arg[1]; | |
5 | ||
6 | if not command then | |
7 | print("Command Line XMPP, available commands:"); | |
8 | for module in pairs(package.preload) do | |
9 | if module:match("^clix%.") then | |
10 | local m = require(module); | |
11 | m{ "--short-help" }; | |
12 | end | |
13 | end | |
14 | return 0; | |
15 | end | |
16 | ||
17 | local ok, m = pcall(require, "clix."..command); | |
18 | if not ok then | |
19 | print("Error running command '"..command.."' (run with --debug to see full error)"); | |
20 | if arg[2] == "--debug" then | |
21 | print(m); | |
22 | end | |
23 | return 1; | |
24 | end | |
25 | ||
26 | if type(m) ~= "function" then | |
27 | print(command.." is not a valid command"); | |
28 | return 1; | |
29 | end | |
30 | ||
31 | local accounts = { default = {} }; | |
32 | local current_account; | |
33 | for line in io.lines(os.getenv("HOME").."/.clix") do | |
34 | line = line:match("^%s*(.-)%s*$"); | |
35 | if line:match("^%[") then | |
36 | current_account = line:match("^%[(.-)%]"); | |
37 | accounts[current_account] = {}; | |
38 | if not current_account then -- This is the first defined account | |
39 | accounts.default = accounts[current_account]; | |
40 | end | |
41 | elseif current_account then | |
42 | local k,v = line:match("^(%w+)%s*[:=]%s*(.+)$"); | |
43 | accounts[current_account or "default"][k] = v; | |
44 | end | |
45 | end | |
46 | ||
47 | function clix_connect(opts, on_connect) | |
48 | local account = accounts[opts.account or "default"]; | |
49 | if not (account and account.jid) then | |
50 | io.stderr:write("The specified account (", opts.account or "default", ") wasn't found in the config file\n"); | |
51 | return nil; | |
52 | end | |
53 | ||
54 | local conn = verse.new(); | |
55 | conn:hook("authentication-failure", function (err) | |
56 | io.stderr:write("Authentication failure (",err.condition or "unknown error", ")", err.text and (": "..err.text) or "", "\n"); | |
57 | end); | |
58 | conn:hook("binding-success", function () io.stderr:write("Connected: ", tostring(conn), "\n"); return on_connect(conn); end); | |
59 | conn:hook("binding-failure", function (err) | |
60 | io.stderr:write("Authentication failure (",err.condition or "unknown error", ")", err.text and (": "..err.text) or "", "\n"); | |
61 | end); | |
62 | conn:hook("disconnected", function (info) | |
63 | if info.reason then | |
64 | io.stderr:write("Disconnecting: ", tostring(info.reason), "\n"); | |
65 | end | |
66 | verse.quit(); | |
67 | end); | |
68 | -- Optional config parameters | |
69 | conn.connect_host = account.address; | |
70 | conn.connect_port = account.port; | |
71 | -- Connect! | |
72 | conn:connect_client(account.jid, account.password); | |
73 | return verse.loop(); | |
74 | end | |
75 | ||
76 | table.remove(arg,1); | |
77 | ||
78 | local short_opts = { v = "verbose", t = "to", f = "from", e = "type", a = "account", p = "password" } | |
79 | local opts = {}; | |
80 | ||
81 | local args_handled_up_to; | |
82 | for i, opt in ipairs(arg) do | |
83 | if opt:match("^%-") and opt ~= "--" then | |
84 | local name = opt:match("^%-%-?([^%s=]+)()") | |
85 | name = (short_opts[name] or name):gsub("%-+", "_"); | |
86 | if name:match("^no_") then | |
87 | name = name:sub(4, -1); | |
88 | opts[name] = false; | |
89 | else | |
90 | opts[name] = opt:match("=(.*)$") or true; | |
91 | end | |
92 | else | |
93 | args_handled_up_to = i-1; | |
94 | break; | |
95 | end | |
96 | end | |
97 | ||
98 | -- Remove all the handled args from the arg array | |
99 | for n=(args_handled_up_to or #arg),1,-1 do | |
100 | table.remove(arg, n); | |
101 | end | |
102 | ||
103 | return m(opts, arg) or 0; | |
104 |