2 * Copyright (C) 2009 Thadeu Lima de Souza Cascardo <cascardo@holoscopio.com>
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License along
15 * with this program; if not, write to the Free Software Foundation, Inc.,
16 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 static char * server = "vespa.holoscopio.com";
27 static char * username = "pubsub";
28 static char * password = "pubsub";
29 static char * pbservice = "pubsub.vespa.holoscopio.com";
30 static char * authed_jid = "vespa";
33 createiq (char *type, char *to, char *qnam, char *xmlns, iks **query)
38 snprintf (sid, 32, "ps%d", id++);
40 iks_insert_attrib (iq, "type", type);
41 iks_insert_attrib (iq, "to", to);
42 iks_insert_attrib (iq, "id", sid);
43 *query = iks_insert (iq, qnam);
44 iks_insert_attrib (*query, "xmlns", xmlns);
49 catnode (iksparser *parser, char *node)
53 iq = createiq ("get", pbservice, "query",
54 "http://jabber.org/protocol/disco#info", &query);
56 iks_insert_attrib (query, "node", node);
57 iks_send (parser, iq);
62 listnode (iksparser *parser, char *node)
66 iq = createiq ("get", pbservice, "query",
67 "http://jabber.org/protocol/disco#items", &query);
69 iks_insert_attrib (query, "node", node);
70 iks_send (parser, iq);
75 createnode (iksparser *parser, char *node)
79 iq = createiq ("set", pbservice, "pubsub",
80 "http://jabber.org/protocol/pubsub", &query);
81 iks_insert_attrib (iks_insert (query, "create"), "node", node);
82 iks_send (parser, iq);
87 getnode (iksparser *parser, char *node)
91 iq = createiq ("get", pbservice, "pubsub",
92 "http://jabber.org/protocol/pubsub", &query);
93 iks_insert_attrib (iks_insert (query, "items"), "node", node);
94 iks_send (parser, iq);
99 vcard (iksparser *parser)
103 iq = createiq ("get", pbservice, "vCard", "vcard-temp", &query);
104 iks_send (parser, iq);
109 createmood (char *line)
112 mood = iks_new ("mood");
113 iks_insert_attrib (mood, "xmlns", "http://jabber.org/protocol/mood");
114 iks_insert (mood, line);
119 pushmood (iksparser *parser, char *node, char *line)
126 iq = createiq ("set", pbservice, "pubsub",
127 "http://jabber.org/protocol/pubsub", &query);
128 publish = iks_insert (query, "publish");
129 iks_insert_attrib (publish, "node", node);
130 item = iks_insert (publish, "item");
131 mood = createmood (line);
132 iks_insert_node (item, mood);
133 iks_send (parser, iq);
138 process_mood (iksparser *parser, char *cmdline)
142 orig_cmdline = cmdline = strdup (cmdline);
143 cmd = strsep (&cmdline, " ");
144 if (!strcmp (cmd, "ls"))
145 listnode (parser, cmdline);
146 else if (!strcmp (cmd, "cat"))
147 catnode (parser, cmdline);
148 else if (!strcmp (cmd, "vcard"))
150 else if (!strcmp (cmd, "create"))
151 createnode (parser, cmdline);
152 else if (!strcmp (cmd, "get"))
153 getnode (parser, cmdline);
154 else if (!strcmp (cmd, "mood"))
157 node = "http://jabber.org/protocol/mood";
158 pushmood (parser, node, cmdline);
164 xmpp_session_hook (iksparser *parser, iks *node)
168 iks_insert_attrib (iq, "type", "set");
169 iks_insert_attrib (iq, "id", "session1");
170 iks_insert_attrib (iks_insert (iq, "session"),
171 "xmlns", "urn:ietf:params:xml:ns:xmpp-session");
172 iks_send (parser, iq);
178 xmpp_initial_presence_hook (iksparser *parser, iks *node)
181 pres = iks_make_pres (IKS_SHOW_AVAILABLE, "Microblogging here!");
182 iks_send (parser, pres);
188 xmpp_id_hook (iksparser *parser, iks *node, char *id)
190 if (!iks_strcmp (id, "bind1"))
192 xmpp_session_hook (parser, node);
195 else if (!iks_strcmp (id, "session1"))
197 xmpp_initial_presence_hook (parser, node);
200 else if (!iks_strncmp (id, "ps", 2))
202 printf ("%s\n", iks_string (iks_stack (node), node));
208 xmpp_ns_hook (iksparser *parser, iks *node, char *ns)
214 xmpp_iq_error (iksparser *parser, iks *node)
219 if (!iks_strcmp (iks_find_attrib (node, "type"), "error"))
221 to = iks_find_attrib (node, "to");
222 from = iks_find_attrib (node, "from");
224 iks_insert_attrib (node, "from", to);
226 iks_insert_attrib (node, "from", NULL);
228 iks_insert_attrib (node, "to", from);
230 iks_insert_attrib (node, "to", NULL);
231 iks_insert_attrib (node, "type", "error");
232 enode = iks_insert (node, "error");
233 iks_insert_attrib (enode, "type", "cancel");
234 iks_insert_attrib (iks_insert (enode, "feature-not-implemented"),
235 "xmlns", "urn:ietf:params:xml:ns:xmpp-stanzas");
236 iks_send (parser, node);
241 xmpp_tls_hook (iksparser *parser, iks *node)
243 iks_start_tls (parser);
248 xmpp_sasl_hook (iksparser *parser, iks* node)
250 iks_start_sasl (parser, IKS_SASL_DIGEST_MD5, username, password);
255 xmpp_bind_hook (iksparser *parser, iks *node)
259 iks_insert_attrib (iq, "type", "set");
260 iks_insert_attrib (iq, "id", "bind1");
261 iks_insert_attrib (iks_insert (iq, "bind"),
262 "xmlns", "urn:ietf:params:xml:ns:xmpp-bind");
263 iks_send (parser, iq);
269 xmpp_features_hook (iksparser *parser, iks *node)
273 for (feat = iks_child (node); feat != NULL; feat = iks_next (feat))
275 ns = iks_find_attrib (feat, "xmlns");
276 if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-tls"))
278 xmpp_tls_hook (parser, node);
281 else if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-sasl"))
283 xmpp_sasl_hook (parser, node);
286 else if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-bind"))
288 xmpp_bind_hook (parser, node);
296 xmpp_other_hook (iksparser *parser, iks *node, char *ns)
298 if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-sasl"))
300 if (!iks_strcmp (iks_name (node), "success"))
301 iks_send_header (parser, server);
302 else if (!iks_strcmp (iks_name (node), "failure"))
303 printf ("failture to authenticate: %s\n",
304 iks_string (iks_stack (node), node));
312 hook (void *data, int type, iks *node)
319 parser = *(iksparser **) data;
320 name = iks_name (node);
321 id = iks_find_attrib (node, "id");
322 ns = iks_find_attrib (node, "xmlns");
323 iqns = iks_find_attrib (iks_child (node), "xmlns");
324 if (!iks_strcmp (name, "message"))
327 from = iks_find_attrib (node, "from");
328 if (!iks_strncmp (from, authed_jid, iks_strlen (authed_jid)))
330 char *body = iks_find_cdata (node, "body");
332 process_mood (parser, body);
336 printf ("%s is not authorized\n", from);
340 else if (!iks_strcmp (name, "presence"))
343 from = iks_find_attrib (node, "from");
344 printf ("I sense a disturbance in the force: %s!\n", from);
346 else if (!iks_strcmp (name, "iq"))
348 if (xmpp_id_hook (parser, node, id) == 0)
350 if (xmpp_ns_hook (parser, node, iqns) == 0)
352 xmpp_iq_error (parser, node);
354 else if (!iks_strcmp (name, "stream:features"))
356 if (xmpp_features_hook (parser, node) == 0)
359 else if (!iks_strcmp (name, "stream:error"))
361 printf ("streamerror: %s\n", iks_string (iks_stack (node), node));
365 if (xmpp_other_hook (parser, node, ns) == 0)
367 printf ("No no: %s\n", name);
373 main (int argc, char **argv)
377 while ((c = getopt (argc, argv, "s:u:p:i:a:")) != -1)
398 parser = iks_stream_new ("jabber:client", &parser, hook);
399 iks_connect_tcp (parser, server, 5222);
401 iks_recv (parser, -1);