mcabber: mcabber/src/jab

annotate mcabber/src/jab_iq.c @ 830:80434fde7cfa

Display presence notification timestamps when they exist These timestamps were used in the roster, but not in the buffer window message nor in the history logfile. Reported by "ze".

author	Mikael Berthe <mikael@lilotux.net>
date	Wed, 03 May 2006 11:28:41 +0200
parents	109dcf5fc111
children	cb54c9d76853

rev	line source
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	1 /*
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	2 * jab_iq.c -- Jabber protocol IQ-related fonctions
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 387 diff changeset	3 *
699 ee03b56b93ee Update Copyright (2006) Mikael Berthe <mikael@lilotux.net> parents: 698 diff changeset	4 * Copyright (C) 2005, 2006 Mikael Berthe <bmikael@lists.lilotux.net>
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	5 * Some parts initially came from the centericq project:
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	6 * Copyright (C) 2002-2005 by Konstantin Klyagin <konst@konst.org.ua>
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	7 * Some small parts come from the Gaim project <http://gaim.sourceforge.net/>
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	8 *
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	9 * This program is free software; you can redistribute it and/or modify
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	10 * it under the terms of the GNU General Public License as published by
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	11 * the Free Software Foundation; either version 2 of the License, or (at
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	12 * your option) any later version.
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	13 *
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	14 * This program is distributed in the hope that it will be useful, but
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	15 * WITHOUT ANY WARRANTY; without even the implied warranty of
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	17 * General Public License for more details.
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	18 *
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	19 * You should have received a copy of the GNU General Public License
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	20 * along with this program; if not, write to the Free Software
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	22 * USA
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	23 */
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	24
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	25 #include <sys/utsname.h>
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	26 #include <glib.h>
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	27
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	28 #include "jabglue.h"
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	29 #include "jab_priv.h"
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 52 diff changeset	30 #include "roster.h"
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	31 #include "utils.h"
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	32 #include "screen.h"
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	33 #include "settings.h"
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	34 #include "hbuf.h"
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 159 diff changeset	35
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	36
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	37 static GSList *iqs_list;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	38
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	39
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	40 // iqs_new(type, namespace, prefix, timeout)
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	41 // Create a query (GET, SET) IQ structure. This function should not be used
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	42 // for RESULT packets.
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	43 eviqs iqs_new(guint8 type, const char ns, const char *prefix, time_t timeout)
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	44 {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	45 static guint iqs_idn;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	46 eviqs *new_iqs;
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	47 time_t now_t;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	48
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	49 iqs_idn++;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	50
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	51 new_iqs = g_new0(eviqs, 1);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	52 time(&now_t);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	53 new_iqs->ts_create = now_t;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	54 if (timeout)
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	55 new_iqs->ts_expire = now_t + timeout;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	56 new_iqs->type = type;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	57 new_iqs->xmldata = jutil_iqnew(type, (char*)ns);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	58 if (prefix)
687 426145046b93 Minor format change in IQ id string Mikael Berthe <mikael@lilotux.net> parents: 686 diff changeset	59 new_iqs->id = g_strdup_printf("%s_%d", prefix, iqs_idn);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	60 else
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	61 new_iqs->id = g_strdup_printf("%d", iqs_idn);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	62 xmlnode_put_attrib(new_iqs->xmldata, "id", new_iqs->id);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	63
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	64 iqs_list = g_slist_append(iqs_list, new_iqs);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	65 return new_iqs;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	66 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	67
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	68 int iqs_del(const char *iqid)
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	69 {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	70 GSList *p;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	71 eviqs *i;
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	72
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	73 if (!iqid) return 1;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	74
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	75 for (p = iqs_list; p; p = g_slist_next(p)) {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	76 i = p->data;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	77 if (!strcmp(iqid, i->id))
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	78 break;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	79 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	80 if (p) {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	81 g_free(i->id);
774 46304b773a44 Remove useless checks before g_free() calls Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	82 xmlnode_free(i->xmldata);
46304b773a44 Remove useless checks before g_free() calls Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	83 g_free(i->data);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	84 g_free(i);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	85 iqs_list = g_slist_remove(iqs_list, p->data);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	86 return 0; // Ok, deleted
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	87 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	88 return -1; // Not found
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	89 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	90
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	91 static eviqs iqs_find(const char iqid)
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	92 {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	93 GSList *p;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	94 eviqs *i;
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	95
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	96 if (!iqid) return NULL;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	97
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	98 for (p = iqs_list; p; p = g_slist_next(p)) {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	99 i = p->data;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	100 if (!strcmp(iqid, i->id))
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	101 return i;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	102 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	103 return NULL;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	104 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	105
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	106 // iqs_callback(iqid, xml_result, iqcontext)
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	107 // Callback processing for the iqid message.
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	108 // If we've received an answer, xml_result should point to the xmldata packet.
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	109 // If this is a timeout, xml_result should be NULL.
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	110 // Return 0 in case of success, -1 if the iqid hasn't been found.
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	111 int iqs_callback(const char *iqid, xmlnode xml_result, guint iqcontext)
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	112 {
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	113 eviqs *i;
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	114
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	115 i = iqs_find(iqid);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	116 if (!i) return -1;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	117
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	118 // IQ processing
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	119 // Note: If xml_result is NULL, this is a timeout
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	120 if (i->callback)
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	121 (*i->callback)(i, xml_result, iqcontext);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	122
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	123 iqs_del(iqid);
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	124 return 0;
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	125 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	126
705 603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	127 void iqs_check_timeout(time_t now_t)
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	128 {
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	129 GSList *p;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	130 eviqs *i;
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	131
705 603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	132 p = iqs_list;
603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	133 while (p) {
603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	134 i = p->data;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	135 // We must get next IQ eviqs element now because the current one
705 603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	136 // could be freed.
603b43e4f56a Fix a bug in iqs_check_timeout() Mikael Berthe <mikael@lilotux.net> parents: 704 diff changeset	137 p = g_slist_next(p);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	138
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	139 if ((!i->ts_expire && now_t > i->ts_create + IQS_MAX_TIMEOUT) \|\|
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	140 (i->ts_expire && now_t > i->ts_expire)) {
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	141 iqs_callback(i->id, NULL, IQS_CONTEXT_TIMEOUT);
683 c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	142 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	143 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	144 }
c5e0d8c3f00c Introduce new IQ system Mikael Berthe <mikael@lilotux.net> parents: 619 diff changeset	145
689 281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	146 void jb_iqs_display_list(void)
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	147 {
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	148 GSList *p;
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	149 eviqs *i;
689 281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	150
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	151 scr_LogPrint(LPRINT_LOGNORM, "IQ list:");
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	152 for (p = iqs_list; p; p = g_slist_next(p)) {
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	153 i = p->data;
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	154 scr_LogPrint(LPRINT_LOGNORM, "Id [%s]", i->id);
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	155 }
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	156 scr_LogPrint(LPRINT_LOGNORM, "End of IQ list.");
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	157 }
281aab5aef50 Introduce jb_iqs_display_list() helper function for debugging Mikael Berthe <mikael@lilotux.net> parents: 688 diff changeset	158
606 0b4ed231ebc2 Code cleanup + remove deprecated Agents list IQ request Mikael Berthe <mikael@lilotux.net> parents: 605 diff changeset	159 static void request_roster(void)
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	160 {
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	161 eviqs *iqn = iqs_new(JPACKET__GET, NS_ROSTER, "Roster", IQS_DEFAULT_TIMEOUT);
684 3282276e7413 Switch IQ packet creation to the new IQ system Mikael Berthe <mikael@lilotux.net> parents: 683 diff changeset	162 jab_send(jc, iqn->xmldata);
3282276e7413 Switch IQ packet creation to the new IQ system Mikael Berthe <mikael@lilotux.net> parents: 683 diff changeset	163 iqs_del(iqn->id); // XXX
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	164 }
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	165
606 0b4ed231ebc2 Code cleanup + remove deprecated Agents list IQ request Mikael Berthe <mikael@lilotux.net> parents: 605 diff changeset	166 static void handle_iq_roster(xmlnode x)
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	167 {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	168 xmlnode y;
605 2a4fefb98511 Set the subscription pending flag Mikael Berthe <mikael@lilotux.net> parents: 603 diff changeset	169 const char jid, name, group, sub, *ask;
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	170 char *cleanalias;
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	171 enum subscr esub;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	172 int need_refresh = FALSE;
613 a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	173 guint roster_type;
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	174
86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	175 for (y = xmlnode_get_tag(x, "item"); y; y = xmlnode_get_nextsibling(y)) {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	176
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	177 jid = xmlnode_get_attrib(y, "jid");
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	178 name = xmlnode_get_attrib(y, "name");
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	179 sub = xmlnode_get_attrib(y, "subscription");
605 2a4fefb98511 Set the subscription pending flag Mikael Berthe <mikael@lilotux.net> parents: 603 diff changeset	180 ask = xmlnode_get_attrib(y, "ask");
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	181
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	182 group = xmlnode_get_tag_data(y, "group");
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	183
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	184 if (!jid)
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	185 continue;
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	186
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	187 cleanalias = jidtodisp(jid);
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	188
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	189 esub = sub_none;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	190 if (sub) {
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	191 if (!strcmp(sub, "to")) esub = sub_to;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	192 else if (!strcmp(sub, "from")) esub = sub_from;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	193 else if (!strcmp(sub, "both")) esub = sub_both;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	194 else if (!strcmp(sub, "remove")) esub = sub_remove;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	195 }
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	196
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	197 if (esub == sub_remove) {
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	198 roster_del_user(cleanalias);
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	199 scr_LogPrint(LPRINT_LOGNORM, "Buddy <%s> has been removed "
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	200 "from the roster", cleanalias);
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	201 g_free(cleanalias);
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	202 need_refresh = TRUE;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	203 continue;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	204 }
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	205
605 2a4fefb98511 Set the subscription pending flag Mikael Berthe <mikael@lilotux.net> parents: 603 diff changeset	206 if (ask && !strcmp(ask, "subscribe"))
2a4fefb98511 Set the subscription pending flag Mikael Berthe <mikael@lilotux.net> parents: 603 diff changeset	207 esub \|= sub_pending;
2a4fefb98511 Set the subscription pending flag Mikael Berthe <mikael@lilotux.net> parents: 603 diff changeset	208
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	209 if (!name)
464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	210 name = cleanalias;
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	211
613 a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	212 // Tricky... :-\ My guess is that if there is no '@', this is an agent
a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	213 if (strchr(cleanalias, '@'))
a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	214 roster_type = ROSTER_TYPE_USER;
a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	215 else
a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	216 roster_type = ROSTER_TYPE_AGENT;
a6b8b373e4de Try to guess if a roster item is an agent Mikael Berthe <mikael@lilotux.net> parents: 607 diff changeset	217
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	218 roster_add_user(cleanalias, name, group, roster_type, esub);
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	219
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	220 g_free(cleanalias);
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	221 }
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	222
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	223 buddylist_build();
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	224 update_roster = TRUE;
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	225 if (need_refresh)
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	226 scr_ShowBuddyWindow();
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	227 }
29 86837ff0554c [/trunk] Changeset 45 by mikael mikael parents: diff changeset	228
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	229 static void iqscallback_version(eviqs *iqp, xmlnode xml_result, guint iqcontext)
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	230 {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	231 xmlnode ansqry;
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	232 char p, p_noutf8;
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	233 char *bjid;
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	234 char *buf;
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	235
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	236 // Leave now if we cannot process xml_result
60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	237 if (!xml_result \|\| iqcontext) return;
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	238
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	239 ansqry = xmlnode_get_tag(xml_result, "query");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	240 if (!ansqry) {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	241 scr_LogPrint(LPRINT_LOGNORM, "Invalid IQ:version result!");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	242 return;
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	243 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	244 // Display IQ result sender...
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	245 p = xmlnode_get_attrib(xml_result, "from");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	246 if (!p) {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	247 scr_LogPrint(LPRINT_LOGNORM, "Invalid IQ:version result (no sender name).");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	248 return;
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	249 }
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	250 bjid = p;
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	251
782 19121d9f4aa2 Nicer message when receiving IQ result packet Mikael Berthe <mikael@lilotux.net> parents: 776 diff changeset	252 buf = g_strdup_printf("Received IQ:version result from <%s>", bjid);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	253 scr_LogPrint(LPRINT_LOGNORM, "%s", buf);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	254
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	255 // bjid should now really be the "bare JID", let's strip the resource
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	256 p = strchr(bjid, '/');
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	257 if (p) *p = '\0';
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	258
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	259 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	260 g_free(buf);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	261
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	262 // Get result data...
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	263 p = xmlnode_get_tag_data(ansqry, "name");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	264 if (p) {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	265 p_noutf8 = from_utf8(p);
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	266 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	267 buf = g_strdup_printf("Name: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	268 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	269 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	270 g_free(buf);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	271 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	272 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	273 p = xmlnode_get_tag_data(ansqry, "version");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	274 if (p) {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	275 p_noutf8 = from_utf8(p);
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	276 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	277 buf = g_strdup_printf("Version: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	278 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	279 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	280 g_free(buf);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	281 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	282 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	283 p = xmlnode_get_tag_data(ansqry, "os");
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	284 if (p) {
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	285 p_noutf8 = from_utf8(p);
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	286 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	287 buf = g_strdup_printf("OS: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	288 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	289 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	290 g_free(buf);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	291 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	292 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	293 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	294
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	295 void request_version(const char *fulljid)
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	296 {
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	297 eviqs *iqn;
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	298
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	299 iqn = iqs_new(JPACKET__GET, NS_VERSION, "version", IQS_DEFAULT_TIMEOUT);
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	300 xmlnode_put_attrib(iqn->xmldata, "to", fulljid);
690 3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	301 iqn->callback = &iqscallback_version;
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	302 jab_send(jc, iqn->xmldata);
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	303 }
3e965a1186c7 Implement IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 689 diff changeset	304
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	305 static void iqscallback_time(eviqs *iqp, xmlnode xml_result, guint iqcontext)
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	306 {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	307 xmlnode ansqry;
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	308 char p, p_noutf8;
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	309 char *bjid;
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	310 char *buf;
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	311
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	312 // Leave now if we cannot process xml_result
60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	313 if (!xml_result \|\| iqcontext) return;
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	314
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	315 ansqry = xmlnode_get_tag(xml_result, "query");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	316 if (!ansqry) {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	317 scr_LogPrint(LPRINT_LOGNORM, "Invalid IQ:time result!");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	318 return;
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	319 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	320 // Display IQ result sender...
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	321 p = xmlnode_get_attrib(xml_result, "from");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	322 if (!p) {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	323 scr_LogPrint(LPRINT_LOGNORM, "Invalid IQ:time result (no sender name).");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	324 return;
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	325 }
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	326 bjid = p;
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	327
782 19121d9f4aa2 Nicer message when receiving IQ result packet Mikael Berthe <mikael@lilotux.net> parents: 776 diff changeset	328 buf = g_strdup_printf("Received IQ:time result from <%s>", bjid);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	329 scr_LogPrint(LPRINT_LOGNORM, "%s", buf);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	330
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	331 // bjid should now really be the "bare JID", let's strip the resource
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	332 p = strchr(bjid, '/');
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	333 if (p) *p = '\0';
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	334
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	335 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	336 g_free(buf);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	337
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	338 // Get result data...
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	339 p = xmlnode_get_tag_data(ansqry, "utc");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	340 if (p) {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	341 p_noutf8 = from_utf8(p);
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	342 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	343 buf = g_strdup_printf("UTC: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	344 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	345 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	346 g_free(buf);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	347 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	348 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	349 p = xmlnode_get_tag_data(ansqry, "tz");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	350 if (p) {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	351 p_noutf8 = from_utf8(p);
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	352 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	353 buf = g_strdup_printf("TZ: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	354 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	355 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	356 g_free(buf);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	357 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	358 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	359 p = xmlnode_get_tag_data(ansqry, "display");
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	360 if (p) {
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	361 p_noutf8 = from_utf8(p);
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	362 if (p_noutf8) {
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	363 buf = g_strdup_printf("Time: %s", p_noutf8);
4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	364 scr_WriteIncomingMessage(bjid, buf, 0, HBB_PREFIX_INFO);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	365 g_free(p_noutf8);
704 4118a66f2c02 Display IQ results (time, version) in the chat window Mikael Berthe <mikael@lilotux.net> parents: 703 diff changeset	366 g_free(buf);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	367 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	368 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	369 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	370
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	371 void request_time(const char *fulljid)
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	372 {
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	373 eviqs *iqn;
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	374
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	375 iqn = iqs_new(JPACKET__GET, NS_TIME, "time", IQS_DEFAULT_TIMEOUT);
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 746 diff changeset	376 xmlnode_put_attrib(iqn->xmldata, "to", fulljid);
691 3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	377 iqn->callback = &iqscallback_time;
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	378 jab_send(jc, iqn->xmldata);
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	379 }
3c0a0a993de8 Implement IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 690 diff changeset	380
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	381 void iqscallback_auth(eviqs *iqp, xmlnode xml_result)
686 98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	382 {
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	383 if (jstate == STATE_GETAUTH) {
745 413e95f3051a Introduce user "events" list Mikael Berthe <mikael@lilotux.net> parents: 705 diff changeset	384 eviqs *iqn;
686 98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	385
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	386 if (xml_result) {
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	387 xmlnode x = xmlnode_get_tag(xml_result, "query");
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	388 if (x && !xmlnode_get_tag(x, "digest"))
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	389 jc->sid = 0;
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	390 }
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	391
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	392 iqn = iqs_new(JPACKET__SET, NS_AUTH, "auth", IQS_DEFAULT_TIMEOUT);
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	393 iqn->callback = &iqscallback_auth;
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	394 jab_auth_mcabber(jc, iqn->xmldata);
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	395 jab_send(jc, iqn->xmldata);
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	396 jstate = STATE_SENDAUTH;
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	397 } else if (jstate == STATE_SENDAUTH) {
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	398 request_roster();
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	399 jstate = STATE_LOGGED;
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	400 }
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	401 }
98de2d166a11 Use the new IQ system for authentication Mikael Berthe <mikael@lilotux.net> parents: 685 diff changeset	402
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	403 static void handle_iq_result(jconn conn, char *from, xmlnode xmldata)
426 2706ef3e25a7 Better handling of server error codes/messages Mikael Berthe <mikael@lilotux.net> parents: 421 diff changeset	404 {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	405 xmlnode x;
685 f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	406 char *id;
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	407 char *ns;
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	408
685 f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	409 id = xmlnode_get_attrib(xmldata, "id");
f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	410 if (!id) {
596 6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	411 scr_LogPrint(LPRINT_LOG, "IQ result stanza with no ID, ignored.");
6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	412 return;
6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	413 }
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	414
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	415 if (!iqs_callback(id, xmldata, IQS_CONTEXT_RESULT))
685 f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	416 return;
f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	417
606 0b4ed231ebc2 Code cleanup + remove deprecated Agents list IQ request Mikael Berthe <mikael@lilotux.net> parents: 605 diff changeset	418 /*
685 f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	419 if (!strcmp(id, "VCARDreq")) {
596 6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	420 x = xmlnode_get_firstchild(xmldata);
6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	421 if (!x) x = xmldata;
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	422
596 6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	423 scr_LogPrint(LPRINT_LOGNORM, "Got VCARD"); // TODO
6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	424 return;
685 f033345d1315 Call IQ callback function when receiving a RESULT packet Mikael Berthe <mikael@lilotux.net> parents: 684 diff changeset	425 } else if (!strcmp(id, "versionreq")) {
596 6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	426 scr_LogPrint(LPRINT_LOGNORM, "Got version"); // TODO
6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	427 return;
430 d03663d2e7d9 Display error messages as specified in RFC3920 (9.3) Mikael Berthe <mikael@lilotux.net> parents: 426 diff changeset	428 }
606 0b4ed231ebc2 Code cleanup + remove deprecated Agents list IQ request Mikael Berthe <mikael@lilotux.net> parents: 605 diff changeset	429 */
426 2706ef3e25a7 Better handling of server error codes/messages Mikael Berthe <mikael@lilotux.net> parents: 421 diff changeset	430
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	431 x = xmlnode_get_tag(xmldata, "query");
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	432 if (!x) return;
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	433
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	434 ns = xmlnode_get_attrib(x, "xmlns");
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	435 if (!ns) return;
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	436
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	437 if (!strcmp(ns, NS_ROSTER)) {
606 0b4ed231ebc2 Code cleanup + remove deprecated Agents list IQ request Mikael Berthe <mikael@lilotux.net> parents: 605 diff changeset	438 handle_iq_roster(x);
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	439
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	440 // Post-login stuff
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	441 // Usually we request the roster only at connection time
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	442 // so we should be there only once. (That's ugly, however)
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 597 diff changeset	443 jb_setstatus(available, NULL, NULL);
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	444 }
426 2706ef3e25a7 Better handling of server error codes/messages Mikael Berthe <mikael@lilotux.net> parents: 421 diff changeset	445 }
2706ef3e25a7 Better handling of server error codes/messages Mikael Berthe <mikael@lilotux.net> parents: 421 diff changeset	446
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	447 static void handle_iq_version(jconn conn, char from, const char id,
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	448 xmlnode xmldata)
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	449 {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	450 xmlnode senderquery, x;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	451 xmlnode myquery;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	452 char *os = NULL;
814 109dcf5fc111 Use hgcset (if available) when answering to IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 782 diff changeset	453 char *ver = mcabber_version();
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	454
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	455 // "from" has already been converted to user locale
692 d3511f846d47 Cosmetics (line wrapping) Mikael Berthe <mikael@lilotux.net> parents: 691 diff changeset	456 scr_LogPrint(LPRINT_LOGNORM, "Received an IQ version request from <%s>",
d3511f846d47 Cosmetics (line wrapping) Mikael Berthe <mikael@lilotux.net> parents: 691 diff changeset	457 from);
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	458
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	459 senderquery = xmlnode_get_tag(xmldata, "query");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	460 if (!settings_opt_get_int("iq_version_hide_os")) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	461 struct utsname osinfo;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	462 uname(&osinfo);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	463 os = g_strdup_printf("%s %s %s", osinfo.sysname, osinfo.release,
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	464 osinfo.machine);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	465 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	466
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	467 x = jutil_iqnew(JPACKET__RESULT, NS_VERSION);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	468 xmlnode_put_attrib(x, "id", id);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	469 xmlnode_put_attrib(x, "to", xmlnode_get_attrib(xmldata, "from"));
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	470 myquery = xmlnode_get_tag(x, "query");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	471
814 109dcf5fc111 Use hgcset (if available) when answering to IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 782 diff changeset	472 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "name"), PACKAGE_NAME, -1);
109dcf5fc111 Use hgcset (if available) when answering to IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 782 diff changeset	473 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "version"), ver, -1);
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	474 if (os) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	475 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "os"), os, -1);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	476 g_free(os);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	477 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	478
814 109dcf5fc111 Use hgcset (if available) when answering to IQ:version requests Mikael Berthe <mikael@lilotux.net> parents: 782 diff changeset	479 g_free(ver);
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	480 jab_send(jc, x);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	481 xmlnode_free(x);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	482 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	483
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	484 // This function borrows some code from the Gaim project
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	485 static void handle_iq_time(jconn conn, char from, const char id,
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	486 xmlnode xmldata)
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	487 {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	488 xmlnode senderquery, x;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	489 xmlnode myquery;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	490 char buf, utf8_buf;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	491 time_t now_t;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	492 struct tm *now;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	493
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	494 time(&now_t);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	495
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	496 // "from" has already been converted to user locale
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	497 scr_LogPrint(LPRINT_LOGNORM, "Received an IQ time request from <%s>", from);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	498
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	499 buf = g_new0(char, 512);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	500 senderquery = xmlnode_get_tag(xmldata, "query");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	501
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	502 x = jutil_iqnew(JPACKET__RESULT, NS_TIME);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	503 xmlnode_put_attrib(x, "id", id);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	504 xmlnode_put_attrib(x, "to", xmlnode_get_attrib(xmldata, "from"));
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	505 myquery = xmlnode_get_tag(x, "query");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	506
703 8cbcbff8de7d Fix UTC time in IQ:version queries Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	507 now = gmtime(&now_t);
8cbcbff8de7d Fix UTC time in IQ:version queries Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	508
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	509 strftime(buf, 512, "%Y%m%dT%T", now);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	510 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "utc"), buf, -1);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	511
703 8cbcbff8de7d Fix UTC time in IQ:version queries Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	512 now = localtime(&now_t);
8cbcbff8de7d Fix UTC time in IQ:version queries Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	513
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	514 strftime(buf, 512, "%Z", now);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	515 if ((utf8_buf = to_utf8(buf))) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	516 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "tz"), utf8_buf, -1);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	517 g_free(utf8_buf);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	518 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	519
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	520 strftime(buf, 512, "%d %b %Y %T", now);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	521 if ((utf8_buf = to_utf8(buf))) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	522 xmlnode_insert_cdata(xmlnode_insert_tag(myquery, "display"), utf8_buf, -1);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	523 g_free(utf8_buf);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	524 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	525
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	526 jab_send(jc, x);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	527 xmlnode_free(x);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	528 g_free(buf);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	529 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	530
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	531 // This function borrows some code from the Gaim project
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	532 static void handle_iq_get(jconn conn, char *from, xmlnode xmldata)
31 0f0fbd0c4a7f [/trunk] Changeset 47 by mikael mikael parents: 29 diff changeset	533 {
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	534 const char id, ns;
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	535 xmlnode x, y, z;
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	536 guint iq_not_implemented = FALSE;
31 0f0fbd0c4a7f [/trunk] Changeset 47 by mikael mikael parents: 29 diff changeset	537
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	538 id = xmlnode_get_attrib(xmldata, "id");
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	539 if (!id) {
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	540 scr_LogPrint(LPRINT_LOG, "IQ get stanza with no ID, ignored.");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	541 return;
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	542 }
31 0f0fbd0c4a7f [/trunk] Changeset 47 by mikael mikael parents: 29 diff changeset	543
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	544 x = xmlnode_get_tag(xmldata, "query");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	545 ns = xmlnode_get_attrib(x, "xmlns");
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	546 if (ns && !strcmp(ns, NS_VERSION)) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	547 handle_iq_version(conn, from, id, xmldata);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	548 } else if (ns && !strcmp(ns, NS_TIME)) {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	549 handle_iq_time(conn, from, id, xmldata);
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	550 } else {
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	551 iq_not_implemented = TRUE;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	552 }
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	553
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	554 if (!iq_not_implemented)
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	555 return;
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	556
44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	557 // Not implemented.
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	558 x = xmlnode_dup(xmldata);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	559 xmlnode_put_attrib(x, "to", xmlnode_get_attrib(xmldata, "from"));
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	560 xmlnode_hide_attrib(x, "from");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	561
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	562 xmlnode_put_attrib(x, "type", TMSG_ERROR);
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	563 y = xmlnode_insert_tag(x, TMSG_ERROR);
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	564 xmlnode_put_attrib(y, "code", "501");
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	565 xmlnode_put_attrib(y, "type", "cancel");
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	566 z = xmlnode_insert_tag(y, "feature-not-implemented");
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	567 xmlnode_put_attrib(z, "xmlns", NS_XMPP_STANZAS);
596 6c7fd289648f Clean up handle_iq_result() Mikael Berthe <mikael@lilotux.net> parents: 595 diff changeset	568
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	569 jab_send(conn, x);
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	570 xmlnode_free(x);
31 0f0fbd0c4a7f [/trunk] Changeset 47 by mikael mikael parents: 29 diff changeset	571 }
0f0fbd0c4a7f [/trunk] Changeset 47 by mikael mikael parents: 29 diff changeset	572
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	573 static void handle_iq_set(jconn conn, char *from, xmlnode xmldata)
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	574 {
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	575 const char id, ns;
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	576 xmlnode x, y, z;
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	577 guint iq_not_implemented = FALSE;
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	578
0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	579 id = xmlnode_get_attrib(xmldata, "id");
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	580 if (!id)
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	581 scr_LogPrint(LPRINT_LOG, "IQ set stanza with no ID...");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	582
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	583 x = xmlnode_get_tag(xmldata, "query");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	584 ns = xmlnode_get_attrib(x, "xmlns");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	585 if (ns && !strcmp(ns, NS_ROSTER)) {
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	586 handle_iq_roster(x);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	587 } else {
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	588 iq_not_implemented = TRUE;
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	589 }
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	590
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	591 if (!id) return;
0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	592
619 44ddf9bec3a5 Answer IQ:version & IQ:time requests Mikael Berthe <mikael@lilotux.net> parents: 613 diff changeset	593 if (!iq_not_implemented) {
607 cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	594 x = xmlnode_new_tag("iq");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	595 xmlnode_put_attrib(x, "to", xmlnode_get_attrib(xmldata, "from"));
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	596 xmlnode_put_attrib(x, "type", "result");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	597 xmlnode_put_attrib(x, "id", id);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	598 } else {
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	599 /* Not implemented yet: send an error stanza */
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	600 x = xmlnode_dup(xmldata);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	601 xmlnode_put_attrib(x, "to", xmlnode_get_attrib(xmldata, "from"));
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	602 xmlnode_hide_attrib(x, "from");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	603 xmlnode_put_attrib(x, "type", "result");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	604 xmlnode_put_attrib(x, "type", TMSG_ERROR);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	605 y = xmlnode_insert_tag(x, TMSG_ERROR);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	606 xmlnode_put_attrib(y, "code", "501");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	607 xmlnode_put_attrib(y, "type", "cancel");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	608 z = xmlnode_insert_tag(y, "feature-not-implemented");
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	609 xmlnode_put_attrib(z, "xmlns", NS_XMPP_STANZAS);
cf722bff6579 Improve IQ management Mikael Berthe <mikael@lilotux.net> parents: 606 diff changeset	610 }
595 0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	611
0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	612 jab_send(conn, x);
0c1d37300862 IQ: send feature-not-implemented error stanzas Mikael Berthe <mikael@lilotux.net> parents: 582 diff changeset	613 xmlnode_free(x);
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	614 }
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	615
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	616 void handle_packet_iq(jconn conn, char type, char from, xmlnode xmldata)
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	617 {
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	618 if (!type)
1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	619 return;
1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	620
1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	621 if (!strcmp(type, "result")) {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	622 handle_iq_result(conn, from, xmldata);
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	623 } else if (!strcmp(type, "get")) {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	624 handle_iq_get(conn, from, xmldata);
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	625 } else if (!strcmp(type, "set")) {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	626 handle_iq_set(conn, from, xmldata);
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	627 } else if (!strcmp(type, TMSG_ERROR)) {
577 5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	628 xmlnode x = xmlnode_get_tag(xmldata, TMSG_ERROR);
5c6d364130ee Move IQ Jabber stuff to a separate file Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	629 if (x)
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	630 display_server_error(x);
698 60522cf6d325 Propagate context to IQ callback functions Mikael Berthe <mikael@lilotux.net> parents: 692 diff changeset	631 iqs_callback(xmlnode_get_attrib(xmldata, "id"), NULL, IQS_CONTEXT_ERROR);
547 1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	632 }
1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	633 }
1df26ff0ed8c Break packethandler() out Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	634
580 fed6d1e4d7a9 Fix modelines Mikael Berthe <mikael@lilotux.net> parents: 578 diff changeset	635 /* vim: set expandtab cindent cinoptions=>2\:2(0: For Vim users... */

Mercurial > ~mikael > mcabber > hg

annotate mcabber/src/jab_iq.c @ 830:80434fde7cfa