Thu, 07 Jan 2010 20:58:52 +0000
clix.raw: New command to set up a raw XML in/out session with the server
19
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
1 | short_opts.i = "interactive"; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
2 | short_opts.e = "echo"; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
3 | |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
4 | return function (opts, args) |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
5 | local function on_connect(conn) |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
6 | conn:hook("incoming-raw", print); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
7 | io.stderr:write("Connected as ", conn.jid, "\n"); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
8 | if opts.interactive or opts.stdin then |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
9 | local stdin = { |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
10 | getfd = function () return 0; end; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
11 | dirty = function (self) return false; end; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
12 | settimeout = function () end; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
13 | send = function (_, d) return #d, 0; end; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
14 | close = function () end; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
15 | receive = function (_, patt) |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
16 | local data = io.stdin:read(patt); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
17 | if opts.echo then |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
18 | io.write(data, patt == "*l" and "\n" or ""); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
19 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
20 | return data; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
21 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
22 | }; |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
23 | local function on_incoming(stdin, data) |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
24 | conn:send(data); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
25 | if not opts.interactive then |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
26 | conn:close(); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
27 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
28 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
29 | stdin = require "net.server".wrapclient(stdin, "stdin", 0, { |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
30 | onincoming = on_incoming, ondisconnect = function () end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
31 | }, "*l"); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
32 | else |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
33 | conn:send(table.concat(arg, " ")); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
34 | conn:close(); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
35 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
36 | |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
37 | end |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
38 | return clix_connect(opts, on_connect); |
3a0a156e0a79
clix.raw: New command to set up a raw XML in/out session with the server
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
39 | end |