Thu, 07 Jan 2010 02:20:16 +0000
README: Add config file example
4
ead275885948
clix.lua: Add shebang for people who don't use squish
Matthew Wild <mwild1@gmail.com>
parents:
2
diff
changeset
|
1 | #!/usr/bin/env lua |
5
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
2 | -- Clix -- Command-line XMPP |
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
3 | -- Copyright (C) 2008-2010 Matthew Wild |
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
4 | -- |
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
5 | -- This project is MIT/X11 licensed. Please see the |
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
6 | -- COPYING file in the source package for more information. |
7209e1f8e66b
clix.lua, COPYING: Add COPYING file with MIT license, add copyright header to clix.lua
Matthew Wild <mwild1@gmail.com>
parents:
4
diff
changeset
|
7 | -- |
0 | 8 | require "verse" |
9 | require "verse.client" | |
10 | ||
8
df4cb4a73549
clix: Make short_opts table global, to allow commands to add their own short options
Matthew Wild <mwild1@gmail.com>
parents:
7
diff
changeset
|
11 | -- Global to allow commands to add to it |
df4cb4a73549
clix: Make short_opts table global, to allow commands to add their own short options
Matthew Wild <mwild1@gmail.com>
parents:
7
diff
changeset
|
12 | short_opts = { v = "verbose", t = "to", f = "from", e = "type", a = "account", p = "password" } |
df4cb4a73549
clix: Make short_opts table global, to allow commands to add their own short options
Matthew Wild <mwild1@gmail.com>
parents:
7
diff
changeset
|
13 | |
0 | 14 | local command = arg[1]; |
15 | ||
16 | if not command then | |
17 | print("Command Line XMPP, available commands:"); | |
18 | for module in pairs(package.preload) do | |
19 | if module:match("^clix%.") then | |
20 | local m = require(module); | |
21 | m{ "--short-help" }; | |
22 | end | |
23 | end | |
24 | return 0; | |
25 | end | |
26 | ||
27 | local ok, m = pcall(require, "clix."..command); | |
28 | if not ok then | |
29 | print("Error running command '"..command.."' (run with --debug to see full error)"); | |
30 | if arg[2] == "--debug" then | |
31 | print(m); | |
32 | end | |
33 | return 1; | |
34 | end | |
35 | ||
36 | if type(m) ~= "function" then | |
37 | print(command.." is not a valid command"); | |
38 | return 1; | |
39 | end | |
40 | ||
41 | local accounts = { default = {} }; | |
42 | local current_account; | |
43 | for line in io.lines(os.getenv("HOME").."/.clix") do | |
44 | line = line:match("^%s*(.-)%s*$"); | |
45 | if line:match("^%[") then | |
46 | current_account = line:match("^%[(.-)%]"); | |
47 | accounts[current_account] = {}; | |
48 | if not current_account then -- This is the first defined account | |
49 | accounts.default = accounts[current_account]; | |
50 | end | |
51 | elseif current_account then | |
52 | local k,v = line:match("^(%w+)%s*[:=]%s*(.+)$"); | |
53 | accounts[current_account or "default"][k] = v; | |
54 | end | |
55 | end | |
56 | ||
57 | function clix_connect(opts, on_connect) | |
58 | local account = accounts[opts.account or "default"]; | |
59 | if not (account and account.jid) then | |
60 | io.stderr:write("The specified account (", opts.account or "default", ") wasn't found in the config file\n"); | |
61 | return nil; | |
62 | end | |
7
6078e8d2b59d
clix: Enable global Verse logger when verbose is enabled
Matthew Wild <mwild1@gmail.com>
parents:
5
diff
changeset
|
63 | verse.set_logger(opts.verbose and print or function () end); |
2
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
64 | local conn = verse.new(verse.logger()); |
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
65 | conn.log.debug = opts.verbose; |
0 | 66 | conn:hook("authentication-failure", function (err) |
2
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
67 | conn:error("Authentication failure ("..(err.condition or "unknown error")..")"..(err.text and (": "..err.text) or "")); |
0 | 68 | end); |
2
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
69 | conn:hook("binding-success", function () conn:debug("Connected: "..tostring(conn)); return on_connect(conn); end); |
0 | 70 | conn:hook("binding-failure", function (err) |
2
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
71 | conn:error("Resource binding failure ("..(err.condition or "unknown error")..")"..(err.text and (": "..err.text) or "")); |
0 | 72 | end); |
73 | conn:hook("disconnected", function (info) | |
74 | if info.reason then | |
2
fd77e75c4891
clix: Make more use of Verse's new logging controls
Matthew Wild <mwild1@gmail.com>
parents:
0
diff
changeset
|
75 | conn:warn("Disconnecting: %s", tostring(info.reason)); |
0 | 76 | end |
77 | verse.quit(); | |
78 | end); | |
79 | -- Optional config parameters | |
80 | conn.connect_host = account.address; | |
81 | conn.connect_port = account.port; | |
82 | -- Connect! | |
83 | conn:connect_client(account.jid, account.password); | |
84 | return verse.loop(); | |
85 | end | |
86 | ||
87 | table.remove(arg,1); | |
88 | ||
89 | local opts = {}; | |
90 | ||
91 | local args_handled_up_to; | |
92 | for i, opt in ipairs(arg) do | |
93 | if opt:match("^%-") and opt ~= "--" then | |
94 | local name = opt:match("^%-%-?([^%s=]+)()") | |
95 | name = (short_opts[name] or name):gsub("%-+", "_"); | |
96 | if name:match("^no_") then | |
97 | name = name:sub(4, -1); | |
98 | opts[name] = false; | |
99 | else | |
100 | opts[name] = opt:match("=(.*)$") or true; | |
101 | end | |
102 | else | |
103 | args_handled_up_to = i-1; | |
104 | break; | |
105 | end | |
106 | end | |
107 | ||
108 | -- Remove all the handled args from the arg array | |
109 | for n=(args_handled_up_to or #arg),1,-1 do | |
110 | table.remove(arg, n); | |
111 | end | |
112 | ||
113 | return m(opts, arg) or 0; | |
114 |