diff src/protocols/jabber/xdata.c @ 7923:e87e7d9d0132

[gaim-migrate @ 8592] you can now configure MUC chat rooms. yay! committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/protocols/jabber/xdata.c	Tue Dec 23 17:36:07 2003 +0000
@@ -0,0 +1,344 @@
+/*
+ * gaim - Jabber Protocol Plugin
+ *
+ * Copyright (C) 2003, Nathan Walp <[e-mail]>
+ *
+ * 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 2 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 "internal.h"
+#include "request.h"
+#include "server.h"
+
+#include "xdata.h"
+
+typedef enum {
+	JABBER_X_DATA_IGNORE = 0,
+	JABBER_X_DATA_TEXT_SINGLE,
+	JABBER_X_DATA_TEXT_MULTI,
+	JABBER_X_DATA_LIST_SINGLE,
+	JABBER_X_DATA_LIST_MULTI,
+	JABBER_X_DATA_BOOLEAN
+} jabber_x_data_field_type;
+
+struct jabber_x_data_data {
+	GHashTable *fields;
+	GSList *values;
+	jabber_x_data_cb cb;
+	gpointer user_data;
+	JabberStream *js;
+};
+
+static void jabber_x_data_ok_cb(struct jabber_x_data_data *data, GaimRequestFields *fields) {
+	xmlnode *result = xmlnode_new("x");
+	jabber_x_data_cb cb = data->cb;
+	gpointer user_data = data->user_data;
+	JabberStream *js = data->js;
+	GList *groups, *flds;
+
+	xmlnode_set_attrib(result, "xmlns", "jabber:x:data");
+	xmlnode_set_attrib(result, "type", "submit");
+
+	for(groups = gaim_request_fields_get_groups(fields); groups; groups = groups->next) {
+		for(flds = gaim_request_field_group_get_fields(groups->data); flds; flds = flds->next) {
+			xmlnode *fieldnode, *valuenode;
+			GaimRequestField *field = flds->data;
+			const char *id = gaim_request_field_get_id(field);
+			jabber_x_data_field_type type = GPOINTER_TO_INT(g_hash_table_lookup(data->fields, id));
+
+			switch(type) {
+				case JABBER_X_DATA_TEXT_SINGLE:
+					{
+					const char *value = gaim_request_field_string_get_value(field);
+					fieldnode = xmlnode_new_child(result, "field");
+					xmlnode_set_attrib(fieldnode, "var", id);
+					valuenode = xmlnode_new_child(fieldnode, "value");
+					if(value)
+						xmlnode_insert_data(valuenode, value, -1);
+					break;
+					}
+				case JABBER_X_DATA_TEXT_MULTI:
+					{
+					char **pieces, **p;
+					const char *value = gaim_request_field_string_get_value(field);
+					fieldnode = xmlnode_new_child(result, "field");
+					xmlnode_set_attrib(fieldnode, "var", id);
+
+					pieces = g_strsplit(value, "\n", -1);
+					for(p = pieces; *p != NULL; p++) {
+						valuenode = xmlnode_new_child(fieldnode, "value");
+						xmlnode_insert_data(valuenode, *p, -1);
+					}
+					g_strfreev(pieces);
+					}
+					break;
+				case JABBER_X_DATA_LIST_SINGLE:
+				case JABBER_X_DATA_LIST_MULTI:
+					{
+					const GList *selected = gaim_request_field_list_get_selected(field);
+					char *value;
+					fieldnode = xmlnode_new_child(result, "field");
+					xmlnode_set_attrib(fieldnode, "var", id);
+
+					while(selected) {
+						value = gaim_request_field_list_get_data(field, selected->data);
+						valuenode = xmlnode_new_child(fieldnode, "value");
+						if(value)
+							xmlnode_insert_data(valuenode, value, -1);
+						selected = selected->next;
+					}
+					}
+					break;
+				case JABBER_X_DATA_BOOLEAN:
+					fieldnode = xmlnode_new_child(result, "field");
+					xmlnode_set_attrib(fieldnode, "var", id);
+					valuenode = xmlnode_new_child(fieldnode, "value");
+					if(gaim_request_field_bool_get_value(field))
+						xmlnode_insert_data(valuenode, "1", -1);
+					else
+						xmlnode_insert_data(valuenode, "0", -1);
+					break;
+				case JABBER_X_DATA_IGNORE:
+					break;
+			}
+		}
+	}
+
+	g_hash_table_destroy(data->fields);
+	while(data->values) {
+		g_free(data->values->data);
+		data->values = g_slist_delete_link(data->values, data->values);
+	}
+	g_free(data);
+
+	cb(js, result, user_data);
+}
+
+static void jabber_x_data_cancel_cb(struct jabber_x_data_data *data, GaimRequestFields *fields) {
+	xmlnode *result = xmlnode_new("x");
+	jabber_x_data_cb cb = data->cb;
+	gpointer user_data = data->user_data;
+	JabberStream *js = data->js;
+	g_hash_table_destroy(data->fields);
+	while(data->values) {
+		g_free(data->values->data);
+		data->values = g_slist_delete_link(data->values, data->values);
+	}
+	g_free(data);
+
+	xmlnode_set_attrib(result, "xmlns", "jabber:x:data");
+	xmlnode_set_attrib(result, "type", "cancel");
+
+	cb(js, result, user_data);
+}
+
+void jabber_x_data_request(JabberStream *js, xmlnode *packet, jabber_x_data_cb cb, gpointer user_data)
+{
+	xmlnode *fn, *x;
+	GaimRequestFields *fields;
+	GaimRequestFieldGroup *group;
+	GaimRequestField *field;
+
+	char *title = NULL;
+	char *instructions = NULL;
+
+	struct jabber_x_data_data *data = g_new0(struct jabber_x_data_data, 1);
+
+	data->fields = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, NULL);
+	data->user_data = user_data;
+	data->cb = cb;
+	data->js = js;
+
+	fields = gaim_request_fields_new();
+	group = gaim_request_field_group_new(NULL);
+	gaim_request_fields_add_group(fields, group);
+
+	for(fn = packet->child; fn; fn = fn->next) {
+		if(fn->name && !strcmp(fn->name, "field")) {
+			xmlnode *valuenode;
+			const char *type = xmlnode_get_attrib(fn, "type");
+			const char *label = xmlnode_get_attrib(fn, "label");
+			const char *var = xmlnode_get_attrib(fn, "var");
+			char *value = NULL;
+
+			if(!type)
+				continue;
+
+			if(!var && strcmp(type, "fixed"))
+				continue;
+			if(!label)
+				label = var;
+
+			if((valuenode = xmlnode_get_child(fn, "value")))
+				value = xmlnode_get_data(valuenode);
+
+
+			/* XXX: handle <required/> */
+
+			if(!strcmp(type, "text-private")) {
+				if((valuenode = xmlnode_get_child(fn, "value")))
+					value = xmlnode_get_data(valuenode);
+
+				field = gaim_request_field_string_new(var, label,
+						value ? value : "", FALSE);
+				gaim_request_field_string_set_masked(field, TRUE);
+				gaim_request_field_group_add_field(group, field);
+
+				g_hash_table_replace(data->fields, g_strdup(var), GINT_TO_POINTER(JABBER_X_DATA_TEXT_SINGLE));
+
+				if(value)
+					g_free(value);
+			} else if(!strcmp(type, "text-multi") || !strcmp(type, "jid-multi")) {
+				GString *str = g_string_new("");
+
+				for(valuenode = fn->child; valuenode; valuenode = valuenode->next) {
+					if(strcmp(valuenode->name, "value"))
+						continue;
+
+					if(!(value = xmlnode_get_data(valuenode)))
+						continue;
+
+					g_string_append_printf(str, "%s\n", value);
+					g_free(value);
+				}
+
+				field = gaim_request_field_string_new(var, label,
+						str->str, TRUE);
+				gaim_request_field_group_add_field(group, field);
+
+				g_hash_table_replace(data->fields, g_strdup(var), GINT_TO_POINTER(JABBER_X_DATA_TEXT_MULTI));
+
+				g_string_free(str, TRUE);
+			} else if(!strcmp(type, "list-single") || !strcmp(type, "list-multi")) {
+				xmlnode *optnode;
+				GList *selected = NULL;
+
+				field = gaim_request_field_list_new(var, label);
+
+				if(!strcmp(type, "list-multi")) {
+					gaim_request_field_list_set_multi_select(field, TRUE);
+					g_hash_table_replace(data->fields, g_strdup(var),
+							GINT_TO_POINTER(JABBER_X_DATA_LIST_MULTI));
+				} else {
+					g_hash_table_replace(data->fields, g_strdup(var),
+							GINT_TO_POINTER(JABBER_X_DATA_LIST_SINGLE));
+				}
+
+				for(valuenode = fn->child; valuenode; valuenode = valuenode->next) {
+					if(strcmp(valuenode->name, "value"))
+						continue;
+					selected = g_list_prepend(selected, xmlnode_get_data(valuenode));
+				}
+
+				for(optnode = fn->child; optnode; optnode = optnode->next) {
+					const char *lbl;
+
+					if(strcmp(optnode->name, "option"))
+						continue;
+
+					if(!(valuenode = xmlnode_get_child(optnode, "value")))
+						continue;
+
+					if(!(value = xmlnode_get_data(valuenode)))
+						continue;
+
+					if(!(lbl = xmlnode_get_attrib(optnode, "label")))
+						label = value;
+
+					data->values = g_slist_prepend(data->values, value);
+
+					gaim_request_field_list_add(field, lbl, value);
+					if(g_list_find_custom(selected, value, g_str_equal))
+						gaim_request_field_list_add_selected(field, lbl);
+				}
+				gaim_request_field_group_add_field(group, field);
+
+				while(selected) {
+					g_free(selected->data);
+					selected = g_list_delete_link(selected, selected);
+				}
+
+			} else if(!strcmp(type, "boolean")) {
+				gboolean def = FALSE;
+
+				if((valuenode = xmlnode_get_child(fn, "value")))
+					value = xmlnode_get_data(valuenode);
+
+				if(value && (!strcasecmp(value, "yes") ||
+							!strcasecmp(value, "true") || !strcasecmp(value, "1")))
+					def = TRUE;
+
+				field = gaim_request_field_bool_new(var, label, def);
+				gaim_request_field_group_add_field(group, field);
+
+				g_hash_table_replace(data->fields, g_strdup(var), GINT_TO_POINTER(JABBER_X_DATA_BOOLEAN));
+
+				if(value)
+					g_free(value);
+			} else if(!strcmp(type, "fixed") && value) {
+				if((valuenode = xmlnode_get_child(fn, "value")))
+					value = xmlnode_get_data(valuenode);
+
+				field = gaim_request_field_label_new("", value);
+				gaim_request_field_group_add_field(group, field);
+
+				if(value)
+					g_free(value);
+			} else if(!strcmp(type, "hidden")) {
+				if((valuenode = xmlnode_get_child(fn, "value")))
+					value = xmlnode_get_data(valuenode);
+
+				field = gaim_request_field_string_new(var, "", value ? value : "",
+						FALSE);
+				gaim_request_field_set_visible(field, FALSE);
+				gaim_request_field_group_add_field(group, field);
+
+				g_hash_table_replace(data->fields, g_strdup(var), GINT_TO_POINTER(JABBER_X_DATA_TEXT_SINGLE));
+
+				if(value)
+					g_free(value);
+			} else { /* text-single, jid-single, and the default */
+				if((valuenode = xmlnode_get_child(fn, "value")))
+					value = xmlnode_get_data(valuenode);
+
+				field = gaim_request_field_string_new(var, label,
+						value ? value : "", FALSE);
+				gaim_request_field_group_add_field(group, field);
+
+				g_hash_table_replace(data->fields, g_strdup(var), GINT_TO_POINTER(JABBER_X_DATA_TEXT_SINGLE));
+
+				if(value)
+					g_free(value);
+			}
+		}
+	}
+
+	if((x = xmlnode_get_child(packet, "title")))
+		title = xmlnode_get_data(x);
+
+	if((x = xmlnode_get_child(packet, "instructions")))
+		instructions = xmlnode_get_data(x);
+
+	gaim_request_fields(js->gc, title, title, instructions, fields, _("OK"), G_CALLBACK(jabber_x_data_ok_cb),
+			_("Cancel"), G_CALLBACK(jabber_x_data_cancel_cb), data);
+
+	if(title)
+		g_free(title);
+	if(instructions)
+		g_free(instructions);
+
+}
+
+