X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=citadel%2Fmodules%2Fjabber%2Fserv_xmpp.c;h=fe7178db32fe32f813a61f5a15d9eba0da5f2ae5;hb=8c47559cb5ae97ec0fa35660ee16fd61a9451c72;hp=b22b551cc7aa128aab1d448da582e2b58e6abd1f;hpb=7ab73907dce014e0b99490eae7ff94ce7452ea6f;p=citadel.git diff --git a/citadel/modules/jabber/serv_xmpp.c b/citadel/modules/jabber/serv_xmpp.c index b22b551cc..fe7178db3 100644 --- a/citadel/modules/jabber/serv_xmpp.c +++ b/citadel/modules/jabber/serv_xmpp.c @@ -1,10 +1,22 @@ /* - * $Id: $ + * $Id$ * * XMPP (Jabber) service for the Citadel system - * Copyright (c) 2007 by Art Cancro - * This code is released under the terms of the GNU General Public License. + * Copyright (c) 2007-2009 by Art Cancro * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "sysdep.h" @@ -33,6 +45,7 @@ #include #include #include +#include #include "citadel.h" #include "server.h" #include "citserver.h" @@ -46,19 +59,14 @@ #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" - -#ifdef HAVE_EXPAT -#include #include "serv_xmpp.h" +struct xmpp_event *xmpp_queue = NULL; /* We have just received a tag from the client, so send them ours */ void xmpp_stream_start(void *data, const char *supplied_el, const char **attr) { - - lprintf(CTDL_DEBUG, "New stream detected.\n"); - while (*attr) { if (!strcasecmp(attr[0], "to")) { safestrncpy(XMPP->server_name, attr[1], sizeof XMPP->server_name); @@ -78,19 +86,28 @@ void xmpp_stream_start(void *data, const char *supplied_el, const char **attr) /* The features of this stream are... */ cprintf(""); - /* Binding... */ - cprintf(""); - - /* Sessions... */ - cprintf(""); +#ifdef HAVE_OPENSSL_XXXX_COMMENTED_OUT + /* TLS encryption (but only if it isn't already active) */ + if (!CC->redirect_ssl) { + cprintf(""); + } +#endif - /* SASL (but only if we're not already logged in; this is important!) ... */ if (!CC->logged_in) { + /* If we're not logged in yet, offer SASL as our feature set */ xmpp_output_auth_mechs(); + + /* Also offer non-SASL authentication */ + cprintf(""); } - /* ...and the ability to close XML tags using angle brackets. We should patent this. */ + /* Offer binding and sessions as part of our feature set */ + cprintf(""); + cprintf(""); + cprintf(""); + + CC->is_async = 1; /* XMPP sessions are inherently async-capable */ } @@ -105,11 +122,12 @@ void xmpp_xml_start(void *data, const char *supplied_el, const char **attr) { strcpy(el, ++sep); } - lprintf(CTDL_DEBUG, "XMPP ELEMENT START: <%s>\n", el); - + /* + CtdlLogPrintf(CTDL_DEBUG, "XMPP ELEMENT START: <%s>\n", el); for (i=0; attr[i] != NULL; i+=2) { - lprintf(CTDL_DEBUG, " Attribute '%s' = '%s'\n", attr[i], attr[i+1]); + CtdlLogPrintf(CTDL_DEBUG, " Attribute '%s' = '%s'\n", attr[i], attr[i+1]); } + uncomment for more verbosity */ if (!strcasecmp(el, "stream")) { xmpp_stream_start(data, supplied_el, attr); @@ -120,6 +138,10 @@ void xmpp_xml_start(void *data, const char *supplied_el, const char **attr) { safestrncpy(XMPP->iq_query_xmlns, supplied_el, sizeof XMPP->iq_query_xmlns); } + else if (!strcasecmp(el, "bind")) { + XMPP->bind_requested = 1; + } + else if (!strcasecmp(el, "iq")) { for (i=0; attr[i] != NULL; i+=2) { if (!strcasecmp(attr[i], "type")) { @@ -128,6 +150,9 @@ void xmpp_xml_start(void *data, const char *supplied_el, const char **attr) { else if (!strcasecmp(attr[i], "id")) { safestrncpy(XMPP->iq_id, attr[i+1], sizeof XMPP->iq_id); } + else if (!strcasecmp(attr[i], "from")) { + safestrncpy(XMPP->iq_from, attr[i+1], sizeof XMPP->iq_from); + } else if (!strcasecmp(attr[i], "to")) { safestrncpy(XMPP->iq_to, attr[i+1], sizeof XMPP->iq_to); } @@ -142,6 +167,18 @@ void xmpp_xml_start(void *data, const char *supplied_el, const char **attr) { } } } + + else if (!strcasecmp(el, "message")) { + for (i=0; attr[i] != NULL; i+=2) { + if (!strcasecmp(attr[i], "to")) { + safestrncpy(XMPP->message_to, attr[i+1], sizeof XMPP->message_to); + } + } + } + + else if (!strcasecmp(el, "html")) { + ++XMPP->html_tag_level; + } } @@ -156,15 +193,34 @@ void xmpp_xml_end(void *data, const char *supplied_el) { strcpy(el, ++sep); } - lprintf(CTDL_DEBUG, "XMPP ELEMENT END : <%s>\n", el); + /* + CtdlLogPrintf(CTDL_DEBUG, "XMPP ELEMENT END : <%s>\n", el); if (XMPP->chardata_len > 0) { - lprintf(CTDL_DEBUG, " chardata: %s\n", XMPP->chardata); + CtdlLogPrintf(CTDL_DEBUG, " chardata: %s\n", XMPP->chardata); } + uncomment for more verbosity */ if (!strcasecmp(el, "resource")) { if (XMPP->chardata_len > 0) { safestrncpy(XMPP->iq_client_resource, XMPP->chardata, sizeof XMPP->iq_client_resource); + striplt(XMPP->iq_client_resource); + } + } + + if (!strcasecmp(el, "username")) { /* NON SASL ONLY */ + if (XMPP->chardata_len > 0) { + safestrncpy(XMPP->iq_client_username, XMPP->chardata, + sizeof XMPP->iq_client_username); + striplt(XMPP->iq_client_username); + } + } + + if (!strcasecmp(el, "password")) { /* NON SASL ONLY */ + if (XMPP->chardata_len > 0) { + safestrncpy(XMPP->iq_client_password, XMPP->chardata, + sizeof XMPP->iq_client_password); + striplt(XMPP->iq_client_password); } } @@ -179,7 +235,8 @@ void xmpp_xml_end(void *data, const char *supplied_el) { * Query on a namespace */ if (!IsEmptyStr(XMPP->iq_query_xmlns)) { - xmpp_query_namespace(XMPP->iq_id, XMPP->iq_to, XMPP->iq_query_xmlns); + xmpp_query_namespace(XMPP->iq_id, XMPP->iq_from, + XMPP->iq_to, XMPP->iq_query_xmlns); } /* @@ -191,17 +248,37 @@ void xmpp_xml_end(void *data, const char *supplied_el) { } } + /* + * Non SASL authentication + */ + else if ( + (!strcasecmp(XMPP->iq_type, "set")) + && (!strcasecmp(XMPP->iq_query_xmlns, "jabber:iq:auth:query")) + ) { + + jabber_non_sasl_authenticate( + XMPP->iq_id, + XMPP->iq_client_username, + XMPP->iq_client_password, + XMPP->iq_client_resource + ); + } + /* * If this stanza was a "bind" attempt, process it ... */ - else if ( (!IsEmptyStr(XMPP->iq_id)) && (!IsEmptyStr(XMPP->iq_client_resource)) ) { + else if ( + (XMPP->bind_requested) + && (!IsEmptyStr(XMPP->iq_id)) + && (!IsEmptyStr(XMPP->iq_client_resource)) + && (CC->logged_in) + ) { /* Generate the "full JID" of the client resource */ snprintf(XMPP->client_jid, sizeof XMPP->client_jid, - "%d@%s/%s", - CC->cs_pid, - config.c_fqdn, + "%s/%s", + CC->cs_inet_email, XMPP->iq_client_resource ); @@ -227,11 +304,13 @@ void xmpp_xml_end(void *data, const char *supplied_el) { /* Now clear these fields out so they don't get used by a future stanza */ XMPP->iq_id[0] = 0; + XMPP->iq_from[0] = 0; XMPP->iq_to[0] = 0; XMPP->iq_type[0] = 0; XMPP->iq_client_resource[0] = 0; XMPP->iq_session = 0; XMPP->iq_query_xmlns[0] = 0; + XMPP->bind_requested = 0; } else if (!strcasecmp(el, "auth")) { @@ -247,6 +326,44 @@ void xmpp_xml_end(void *data, const char *supplied_el) { XMPP->iq_session = 1; } + else if (!strcasecmp(el, "presence")) { + + /* Respond to a update by firing back with presence information + * on the entire wholist. Check this assumption, it's probably wrong. + */ + jabber_wholist_presence_dump(); + } + + else if ( (!strcasecmp(el, "body")) && (XMPP->html_tag_level == 0) ) { + if (XMPP->message_body != NULL) { + free(XMPP->message_body); + XMPP->message_body = NULL; + } + if (XMPP->chardata_len > 0) { + XMPP->message_body = strdup(XMPP->chardata); + } + } + + else if (!strcasecmp(el, "message")) { + jabber_send_message(XMPP->message_to, XMPP->message_body); + XMPP->html_tag_level = 0; + } + + else if (!strcasecmp(el, "html")) { + --XMPP->html_tag_level; + } + + else if (!strcasecmp(el, "starttls")) { +#ifdef HAVE_OPENSSL + cprintf(""); + CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); + if (!CC->redirect_ssl) CC->kill_me = 1; +#else + cprintf(""); + CC->kill_me = 1; +#endif + } + XMPP->chardata_len = 0; if (XMPP->chardata_alloc > 0) { XMPP->chardata[0] = 0; @@ -280,12 +397,14 @@ void xmpp_cleanup_function(void) { /* Don't do this stuff if this is not a XMPP session! */ if (CC->h_command_function != xmpp_command_loop) return; - lprintf(CTDL_DEBUG, "Performing XMPP cleanup hook\n"); if (XMPP->chardata != NULL) { free(XMPP->chardata); XMPP->chardata = NULL; XMPP->chardata_len = 0; XMPP->chardata_alloc = 0; + if (XMPP->message_body != NULL) { + free(XMPP->message_body); + } } XML_ParserFree(XMPP->xp); free(XMPP); @@ -300,12 +419,13 @@ void xmpp_greeting(void) { strcpy(CC->cs_clientname, "Jabber session"); CC->session_specific_data = malloc(sizeof(struct citxmpp)); memset(XMPP, 0, sizeof(struct citxmpp)); + XMPP->last_event_processed = queue_event_seq; /* XMPP does not use a greeting, but we still have to initialize some things. */ XMPP->xp = XML_ParserCreateNS("UTF-8", ':'); if (XMPP->xp == NULL) { - lprintf(CTDL_ALERT, "Cannot create XML parser!\n"); + CtdlLogPrintf(CTDL_ALERT, "Cannot create XML parser!\n"); CC->kill_me = 1; return; } @@ -313,6 +433,8 @@ void xmpp_greeting(void) { XML_SetElementHandler(XMPP->xp, xmpp_xml_start, xmpp_xml_end); XML_SetCharacterDataHandler(XMPP->xp, xmpp_xml_chardata); // XML_SetUserData(XMPP->xp, something...); + + CC->can_receive_im = 1; /* This protocol is capable of receiving instant messages */ } @@ -327,7 +449,7 @@ void xmpp_command_loop(void) { memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */ retval = client_read(cmdbuf, 1); if (retval != 1) { - lprintf(CTDL_ERR, "Client disconnected: ending session.\r\n"); + CtdlLogPrintf(CTDL_ERR, "Client disconnected: ending session.\r\n"); CC->kill_me = 1; return; } @@ -337,27 +459,50 @@ void xmpp_command_loop(void) { XML_Parse(XMPP->xp, cmdbuf, 1, 0); } -const char *CitadelServiceXMPP="XMPP"; -#endif /* HAVE_EXPAT */ +/* + * Async loop for XMPP sessions (handles the transmission of unsolicited stanzas) + */ +void xmpp_async_loop(void) { + xmpp_process_events(); + jabber_output_incoming_messages(); +} + + +/* + * Login hook for XMPP sessions + */ +void xmpp_login_hook(void) { + xmpp_queue_event(XMPP_EVT_LOGIN, CC->cs_inet_email); +} + + +/* + * Logout hook for XMPP sessions + */ +void xmpp_logout_hook(void) { + xmpp_queue_event(XMPP_EVT_LOGOUT, CC->cs_inet_email); +} + + +const char *CitadelServiceXMPP="XMPP"; CTDL_MODULE_INIT(jabber) { -#ifdef HAVE_EXPAT if (!threading) { - /* CtdlRegisterServiceHook(config.c_xmpp_port, FIXME */ - CtdlRegisterServiceHook(5222, + CtdlRegisterServiceHook(config.c_xmpp_c2s_port, NULL, xmpp_greeting, xmpp_command_loop, - NULL, + xmpp_async_loop, CitadelServiceXMPP); CtdlRegisterSessionHook(xmpp_cleanup_function, EVT_STOP); - #else - lprintf(CTDL_INFO, "This server is missing the Expat XML parser. Jabber service will be disabled.\n"); -#endif + CtdlRegisterSessionHook(xmpp_login_hook, EVT_LOGIN); + CtdlRegisterSessionHook(xmpp_logout_hook, EVT_LOGOUT); + CtdlRegisterSessionHook(xmpp_login_hook, EVT_UNSTEALTH); + CtdlRegisterSessionHook(xmpp_logout_hook, EVT_STEALTH); } /* return our Subversion id for the Log */ - return "$Id: $"; + return "$Id$"; }