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.
25 static char * server = "vespa.holoscopio.com";
26 static char * username = "pubsub";
27 static char * password = "pubsub";
28 static char * pbservice = "pubsub.vespa.holoscopio.com";
29 static const char * authed_jid = "vespa";
32 createiq (char *type, char *to, char *qnam, char *xmlns, iks **query)
37 snprintf (sid, 32, "ps%d", id++);
39 iks_insert_attrib (iq, "type", type);
40 iks_insert_attrib (iq, "to", to);
41 iks_insert_attrib (iq, "id", sid);
42 *query = iks_insert (iq, qnam);
43 iks_insert_attrib (*query, "xmlns", xmlns);
48 catnode (iksparser *parser, char *node)
52 iq = createiq ("get", pbservice, "query",
53 "http://jabber.org/protocol/disco#info", &query);
55 iks_insert_attrib (query, "node", node);
56 iks_send (parser, iq);
61 listnode (iksparser *parser, char *node)
65 iq = createiq ("get", pbservice, "query",
66 "http://jabber.org/protocol/disco#items", &query);
68 iks_insert_attrib (query, "node", node);
69 iks_send (parser, iq);
74 createnode (iksparser *parser, char *node)
78 iq = createiq ("set", pbservice, "pubsub",
79 "http://jabber.org/protocol/pubsub", &query);
80 iks_insert_attrib (iks_insert (query, "create"), "node", node);
81 iks_send (parser, iq);
86 getnode (iksparser *parser, char *node)
90 iq = createiq ("get", pbservice, "pubsub",
91 "http://jabber.org/protocol/pubsub", &query);
92 iks_insert_attrib (iks_insert (query, "items"), "node", node);
93 iks_send (parser, iq);
98 vcard (iksparser *parser)
102 iq = createiq ("get", pbservice, "vCard", "vcard-temp", &query);
103 iks_send (parser, iq);
108 createmood (char *line)
111 mood = iks_new ("mood");
112 iks_insert_attrib (mood, "xmlns", "http://jabber.org/protocol/mood");
113 iks_insert (mood, line);
118 pushmood (iksparser *parser, char *node, char *line)
125 iq = createiq ("set", pbservice, "pubsub",
126 "http://jabber.org/protocol/pubsub", &query);
127 publish = iks_insert (query, "publish");
128 iks_insert_attrib (publish, "node", node);
129 item = iks_insert (publish, "item");
130 mood = createmood (line);
131 iks_insert_node (item, mood);
132 iks_send (parser, iq);
137 process_mood (iksparser *parser, char *cmdline)
141 orig_cmdline = cmdline = strdup (cmdline);
142 cmd = strsep (&cmdline, " ");
143 if (!strcmp (cmd, "ls"))
144 listnode (parser, cmdline);
145 else if (!strcmp (cmd, "cat"))
146 catnode (parser, cmdline);
147 else if (!strcmp (cmd, "vcard"))
149 else if (!strcmp (cmd, "create"))
150 createnode (parser, cmdline);
151 else if (!strcmp (cmd, "get"))
152 getnode (parser, cmdline);
153 else if (!strcmp (cmd, "push"))
156 node = strsep (&cmdline, " ");
157 pushmood (parser, node, cmdline);
163 xmpp_session_hook (iksparser *parser, iks *node)
167 iks_insert_attrib (iq, "type", "set");
168 iks_insert_attrib (iq, "id", "session1");
169 iks_insert_attrib (iks_insert (iq, "session"),
170 "xmlns", "urn:ietf:params:xml:ns:xmpp-session");
171 iks_send (parser, iq);
177 xmpp_initial_presence_hook (iksparser *parser, iks *node)
180 pres = iks_make_pres (IKS_SHOW_AVAILABLE, "Microblogging here!");
181 iks_send (parser, pres);
187 xmpp_id_hook (iksparser *parser, iks *node, char *id)
189 if (!iks_strcmp (id, "bind1"))
191 xmpp_session_hook (parser, node);
194 else if (!iks_strcmp (id, "session1"))
196 xmpp_initial_presence_hook (parser, node);
199 else if (!iks_strncmp (id, "ps", 2))
201 printf ("%s\n", iks_string (iks_stack (node), node));
207 xmpp_ns_hook (iksparser *parser, iks *node, char *ns)
213 xmpp_iq_error (iksparser *parser, iks *node)
218 if (!iks_strcmp (iks_find_attrib (node, "type"), "error"))
220 to = iks_find_attrib (node, "to");
221 from = iks_find_attrib (node, "from");
223 iks_insert_attrib (node, "from", to);
225 iks_insert_attrib (node, "from", NULL);
227 iks_insert_attrib (node, "to", from);
229 iks_insert_attrib (node, "to", NULL);
230 iks_insert_attrib (node, "type", "error");
231 enode = iks_insert (node, "error");
232 iks_insert_attrib (enode, "type", "cancel");
233 iks_insert_attrib (iks_insert (enode, "feature-not-implemented"),
234 "xmlns", "urn:ietf:params:xml:ns:xmpp-stanzas");
235 iks_send (parser, node);
240 xmpp_tls_hook (iksparser *parser, iks *node)
242 iks_start_tls (parser);
247 xmpp_sasl_hook (iksparser *parser, iks* node)
249 iks_start_sasl (parser, IKS_SASL_DIGEST_MD5, username, password);
254 xmpp_bind_hook (iksparser *parser, iks *node)
258 iks_insert_attrib (iq, "type", "set");
259 iks_insert_attrib (iq, "id", "bind1");
260 iks_insert_attrib (iks_insert (iq, "bind"),
261 "xmlns", "urn:ietf:params:xml:ns:xmpp-bind");
262 iks_send (parser, iq);
268 xmpp_features_hook (iksparser *parser, iks *node)
272 for (feat = iks_child (node); feat != NULL; feat = iks_next (feat))
274 ns = iks_find_attrib (feat, "xmlns");
275 if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-tls"))
277 xmpp_tls_hook (parser, node);
280 else if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-sasl"))
282 xmpp_sasl_hook (parser, node);
285 else if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-bind"))
287 xmpp_bind_hook (parser, node);
295 xmpp_other_hook (iksparser *parser, iks *node, char *ns)
297 if (!iks_strcmp (ns, "urn:ietf:params:xml:ns:xmpp-sasl"))
299 if (!iks_strcmp (iks_name (node), "success"))
300 iks_send_header (parser, server);
301 else if (!iks_strcmp (iks_name (node), "failure"))
302 printf ("failture to authenticate: %s\n",
303 iks_string (iks_stack (node), node));
311 hook (void *data, int type, iks *node)
318 parser = *(iksparser **) data;
319 name = iks_name (node);
320 id = iks_find_attrib (node, "id");
321 ns = iks_find_attrib (node, "xmlns");
322 iqns = iks_find_attrib (iks_child (node), "xmlns");
323 if (!iks_strcmp (name, "message"))
326 from = iks_find_attrib (node, "from");
327 if (!iks_strncmp (from, authed_jid, iks_strlen (authed_jid)))
329 char *body = iks_find_cdata (node, "body");
331 process_mood (parser, body);
335 printf ("%s is not authorized\n", from);
339 else if (!iks_strcmp (name, "presence"))
342 from = iks_find_attrib (node, "from");
343 printf ("I sense a disturbance in the force: %s!\n", from);
345 else if (!iks_strcmp (name, "iq"))
347 if (xmpp_id_hook (parser, node, id) == 0)
349 if (xmpp_ns_hook (parser, node, iqns) == 0)
351 xmpp_iq_error (parser, node);
353 else if (!iks_strcmp (name, "stream:features"))
355 if (xmpp_features_hook (parser, node) == 0)
358 else if (!iks_strcmp (name, "stream:error"))
360 printf ("streamerror: %s\n", iks_string (iks_stack (node), node));
364 if (xmpp_other_hook (parser, node, ns) == 0)
366 printf ("No no: %s\n", name);
372 main (int argc, char **argv)
375 parser = iks_stream_new ("jabber:client", &parser, hook);
376 iks_connect_tcp (parser, server, 5222);
378 iks_recv (parser, -1);