2013-01-19 19:16:12 -05:00
|
|
|
/*
|
2013-02-02 14:47:41 -05:00
|
|
|
* capabilities.c
|
2013-01-19 19:16:12 -05:00
|
|
|
*
|
|
|
|
* Copyright (C) 2012, 2013 James Booth <boothj5@gmail.com>
|
|
|
|
*
|
|
|
|
* This file is part of Profanity.
|
|
|
|
*
|
|
|
|
* Profanity is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* Profanity 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 Profanity. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
2013-02-02 15:55:58 -05:00
|
|
|
#include "config.h"
|
|
|
|
|
2013-01-19 19:16:12 -05:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
2013-01-19 19:35:40 -05:00
|
|
|
#include <glib.h>
|
2013-01-21 17:18:15 -05:00
|
|
|
#include <openssl/evp.h>
|
|
|
|
#include <strophe.h>
|
2013-01-19 19:35:40 -05:00
|
|
|
|
2013-01-19 19:16:12 -05:00
|
|
|
#include "common.h"
|
2013-02-02 15:55:58 -05:00
|
|
|
#include "xmpp/xmpp.h"
|
|
|
|
#include "xmpp/stanza.h"
|
2013-01-19 19:16:12 -05:00
|
|
|
|
2013-01-19 19:57:44 -05:00
|
|
|
static GHashTable *capabilities;
|
|
|
|
|
|
|
|
static void _caps_destroy(Capabilities *caps);
|
2013-01-19 19:35:40 -05:00
|
|
|
|
|
|
|
void
|
|
|
|
caps_init(void)
|
|
|
|
{
|
|
|
|
capabilities = g_hash_table_new_full(g_str_hash, g_str_equal, g_free,
|
2013-01-19 19:57:44 -05:00
|
|
|
(GDestroyNotify)_caps_destroy);
|
2013-01-19 19:35:40 -05:00
|
|
|
}
|
|
|
|
|
2013-01-19 19:57:44 -05:00
|
|
|
void
|
2013-02-05 18:06:30 -05:00
|
|
|
caps_add(const char * const caps_str, const char * const category,
|
|
|
|
const char * const type, const char * const name,
|
|
|
|
const char * const software, const char * const software_version,
|
2013-02-16 20:04:10 -05:00
|
|
|
const char * const os, const char * const os_version,
|
|
|
|
GSList *features)
|
2013-01-19 19:16:12 -05:00
|
|
|
{
|
|
|
|
Capabilities *new_caps = malloc(sizeof(struct capabilities_t));
|
|
|
|
|
2013-02-05 18:06:30 -05:00
|
|
|
if (category != NULL) {
|
|
|
|
new_caps->category = strdup(category);
|
2013-01-19 19:16:12 -05:00
|
|
|
} else {
|
2013-02-05 18:06:30 -05:00
|
|
|
new_caps->category = NULL;
|
|
|
|
}
|
|
|
|
if (type != NULL) {
|
|
|
|
new_caps->type = strdup(type);
|
|
|
|
} else {
|
|
|
|
new_caps->type = NULL;
|
|
|
|
}
|
|
|
|
if (name != NULL) {
|
|
|
|
new_caps->name = strdup(name);
|
|
|
|
} else {
|
|
|
|
new_caps->name = NULL;
|
|
|
|
}
|
|
|
|
if (software != NULL) {
|
|
|
|
new_caps->software = strdup(software);
|
|
|
|
} else {
|
|
|
|
new_caps->software = NULL;
|
|
|
|
}
|
|
|
|
if (software_version != NULL) {
|
|
|
|
new_caps->software_version = strdup(software_version);
|
|
|
|
} else {
|
|
|
|
new_caps->software_version = NULL;
|
|
|
|
}
|
|
|
|
if (os != NULL) {
|
|
|
|
new_caps->os = strdup(os);
|
|
|
|
} else {
|
|
|
|
new_caps->os = NULL;
|
|
|
|
}
|
|
|
|
if (os_version != NULL) {
|
|
|
|
new_caps->os_version = strdup(os_version);
|
|
|
|
} else {
|
|
|
|
new_caps->os_version = NULL;
|
2013-01-19 19:16:12 -05:00
|
|
|
}
|
2013-02-16 20:04:10 -05:00
|
|
|
if (features != NULL) {
|
|
|
|
new_caps->features = features;
|
|
|
|
} else {
|
|
|
|
new_caps->features = NULL;
|
|
|
|
}
|
2013-01-19 19:16:12 -05:00
|
|
|
|
2013-01-19 19:57:44 -05:00
|
|
|
g_hash_table_insert(capabilities, strdup(caps_str), new_caps);
|
2013-01-19 19:16:12 -05:00
|
|
|
}
|
|
|
|
|
2013-01-19 19:57:44 -05:00
|
|
|
gboolean
|
|
|
|
caps_contains(const char * const caps_str)
|
2013-01-19 19:16:12 -05:00
|
|
|
{
|
2013-01-19 19:57:44 -05:00
|
|
|
return (g_hash_table_lookup(capabilities, caps_str) != NULL);
|
2013-01-19 19:16:12 -05:00
|
|
|
}
|
2013-01-19 19:35:40 -05:00
|
|
|
|
2013-01-19 21:26:54 -05:00
|
|
|
Capabilities *
|
|
|
|
caps_get(const char * const caps_str)
|
|
|
|
{
|
|
|
|
return g_hash_table_lookup(capabilities, caps_str);
|
|
|
|
}
|
|
|
|
|
2013-01-21 17:18:15 -05:00
|
|
|
char *
|
2013-01-23 17:24:54 -05:00
|
|
|
caps_create_sha1_str(xmpp_stanza_t * const query)
|
2013-01-21 17:18:15 -05:00
|
|
|
{
|
2013-01-22 19:21:05 -05:00
|
|
|
char *category = NULL;
|
|
|
|
char *type = NULL;
|
|
|
|
char *lang = NULL;
|
|
|
|
char *name = NULL;
|
|
|
|
char *feature_str = NULL;
|
2013-01-21 17:18:15 -05:00
|
|
|
GSList *identities = NULL;
|
|
|
|
GSList *features = NULL;
|
|
|
|
GSList *form_names = NULL;
|
2013-01-22 19:21:05 -05:00
|
|
|
DataForm *form = NULL;
|
|
|
|
FormField *field = NULL;
|
2013-01-23 17:24:54 -05:00
|
|
|
GHashTable *forms = g_hash_table_new_full(g_str_hash, g_str_equal, free, (GDestroyNotify)stanza_destroy_form);
|
2013-01-21 17:18:15 -05:00
|
|
|
|
|
|
|
GString *s = g_string_new("");
|
|
|
|
|
|
|
|
xmpp_stanza_t *child = xmpp_stanza_get_children(query);
|
|
|
|
while (child != NULL) {
|
|
|
|
if (g_strcmp0(xmpp_stanza_get_name(child), STANZA_NAME_IDENTITY) == 0) {
|
2013-01-23 17:24:54 -05:00
|
|
|
category = xmpp_stanza_get_attribute(child, "category");
|
|
|
|
type = xmpp_stanza_get_attribute(child, "type");
|
|
|
|
lang = xmpp_stanza_get_attribute(child, "xml:lang");
|
|
|
|
name = xmpp_stanza_get_attribute(child, "name");
|
2013-01-21 17:18:15 -05:00
|
|
|
|
2013-01-22 19:21:05 -05:00
|
|
|
GString *identity_str = g_string_new(g_strdup(category));
|
2013-01-21 17:18:15 -05:00
|
|
|
g_string_append(identity_str, "/");
|
|
|
|
if (type != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(identity_str, g_strdup(type));
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
|
|
|
g_string_append(identity_str, "/");
|
|
|
|
if (lang != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(identity_str, g_strdup(lang));
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
|
|
|
g_string_append(identity_str, "/");
|
|
|
|
if (name != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(identity_str, g_strdup(name));
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
|
|
|
g_string_append(identity_str, "<");
|
2013-01-22 19:21:05 -05:00
|
|
|
identities = g_slist_insert_sorted(identities, g_strdup(identity_str->str), (GCompareFunc)octet_compare);
|
|
|
|
g_string_free(identity_str, TRUE);
|
2013-01-21 17:18:15 -05:00
|
|
|
} else if (g_strcmp0(xmpp_stanza_get_name(child), STANZA_NAME_FEATURE) == 0) {
|
2013-01-23 17:24:54 -05:00
|
|
|
feature_str = xmpp_stanza_get_attribute(child, "var");
|
2013-01-22 19:21:05 -05:00
|
|
|
features = g_slist_insert_sorted(features, g_strdup(feature_str), (GCompareFunc)octet_compare);
|
2013-01-21 17:18:15 -05:00
|
|
|
} else if (g_strcmp0(xmpp_stanza_get_name(child), STANZA_NAME_X) == 0) {
|
|
|
|
if (strcmp(xmpp_stanza_get_ns(child), STANZA_NS_DATA) == 0) {
|
2013-01-22 19:21:05 -05:00
|
|
|
form = stanza_create_form(child);
|
|
|
|
form_names = g_slist_insert_sorted(form_names, strdup(form->form_type), (GCompareFunc)octet_compare);
|
|
|
|
g_hash_table_insert(forms, strdup(form->form_type), form);
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
child = xmpp_stanza_get_next(child);
|
|
|
|
}
|
|
|
|
|
|
|
|
GSList *curr = identities;
|
|
|
|
while (curr != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(s, strdup(curr->data));
|
2013-01-21 17:18:15 -05:00
|
|
|
curr = g_slist_next(curr);
|
|
|
|
}
|
|
|
|
|
|
|
|
curr = features;
|
|
|
|
while (curr != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(s, strdup(curr->data));
|
2013-01-21 17:18:15 -05:00
|
|
|
g_string_append(s, "<");
|
|
|
|
curr = g_slist_next(curr);
|
|
|
|
}
|
|
|
|
|
|
|
|
curr = form_names;
|
|
|
|
while (curr != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
form = g_hash_table_lookup(forms, curr->data);
|
|
|
|
g_string_append(s, strdup(form->form_type));
|
2013-01-21 17:18:15 -05:00
|
|
|
g_string_append(s, "<");
|
|
|
|
|
|
|
|
GSList *curr_field = form->fields;
|
|
|
|
while (curr_field != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
field = curr_field->data;
|
|
|
|
g_string_append(s, strdup(field->var));
|
2013-02-05 15:36:21 -05:00
|
|
|
g_string_append(s, "<");
|
2013-01-21 17:18:15 -05:00
|
|
|
GSList *curr_value = field->values;
|
|
|
|
while (curr_value != NULL) {
|
2013-01-22 19:21:05 -05:00
|
|
|
g_string_append(s, strdup(curr_value->data));
|
2013-01-21 17:18:15 -05:00
|
|
|
g_string_append(s, "<");
|
|
|
|
curr_value = g_slist_next(curr_value);
|
|
|
|
}
|
2013-02-03 12:19:10 -05:00
|
|
|
curr_field = g_slist_next(curr_field);
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
2013-02-03 12:19:10 -05:00
|
|
|
|
|
|
|
curr = g_slist_next(curr);
|
2013-01-21 17:18:15 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
EVP_MD_CTX mdctx;
|
|
|
|
const EVP_MD *md;
|
|
|
|
|
|
|
|
unsigned char md_value[EVP_MAX_MD_SIZE];
|
|
|
|
unsigned int md_len;
|
|
|
|
OpenSSL_add_all_digests();
|
|
|
|
md = EVP_get_digestbyname("SHA1");
|
|
|
|
EVP_MD_CTX_init(&mdctx);
|
|
|
|
EVP_DigestInit_ex(&mdctx, md, NULL);
|
|
|
|
EVP_DigestUpdate(&mdctx, s->str, strlen(s->str));
|
|
|
|
EVP_DigestFinal_ex(&mdctx, md_value, &md_len);
|
|
|
|
EVP_MD_CTX_cleanup(&mdctx);
|
|
|
|
|
|
|
|
char *result = g_base64_encode(md_value, md_len);
|
|
|
|
|
|
|
|
g_string_free(s, TRUE);
|
2013-01-22 19:21:05 -05:00
|
|
|
g_slist_free_full(identities, free);
|
|
|
|
g_slist_free_full(features, free);
|
2013-01-23 17:24:54 -05:00
|
|
|
g_slist_free_full(form_names, free);
|
2013-02-03 12:19:10 -05:00
|
|
|
//g_hash_table_destroy(forms);
|
2013-01-21 17:18:15 -05:00
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2013-01-21 17:38:48 -05:00
|
|
|
xmpp_stanza_t *
|
2013-01-23 17:24:54 -05:00
|
|
|
caps_create_query_response_stanza(xmpp_ctx_t * const ctx)
|
2013-01-21 17:38:48 -05:00
|
|
|
{
|
|
|
|
xmpp_stanza_t *query = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(query, STANZA_NAME_QUERY);
|
|
|
|
xmpp_stanza_set_ns(query, XMPP_NS_DISCO_INFO);
|
|
|
|
|
|
|
|
xmpp_stanza_t *identity = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(identity, "identity");
|
|
|
|
xmpp_stanza_set_attribute(identity, "category", "client");
|
|
|
|
xmpp_stanza_set_attribute(identity, "type", "pc");
|
|
|
|
|
|
|
|
GString *name_str = g_string_new("Profanity ");
|
|
|
|
g_string_append(name_str, PACKAGE_VERSION);
|
|
|
|
if (strcmp(PACKAGE_STATUS, "development") == 0) {
|
|
|
|
g_string_append(name_str, "dev");
|
|
|
|
}
|
|
|
|
xmpp_stanza_set_attribute(identity, "name", name_str->str);
|
|
|
|
|
|
|
|
xmpp_stanza_t *feature_caps = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_caps, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_caps, STANZA_ATTR_VAR, STANZA_NS_CAPS);
|
|
|
|
|
|
|
|
xmpp_stanza_t *feature_discoinfo = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_discoinfo, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_discoinfo, STANZA_ATTR_VAR, XMPP_NS_DISCO_INFO);
|
|
|
|
|
2013-03-24 13:45:12 -04:00
|
|
|
xmpp_stanza_t *feature_discoitems = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_discoitems, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_discoitems, STANZA_ATTR_VAR, XMPP_NS_DISCO_ITEMS);
|
|
|
|
|
2013-01-21 17:38:48 -05:00
|
|
|
xmpp_stanza_t *feature_muc = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_muc, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_muc, STANZA_ATTR_VAR, STANZA_NS_MUC);
|
|
|
|
|
|
|
|
xmpp_stanza_t *feature_version = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_version, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_version, STANZA_ATTR_VAR, STANZA_NS_VERSION);
|
|
|
|
|
2013-02-16 22:23:14 -05:00
|
|
|
xmpp_stanza_t *feature_chatstates = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_chatstates, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_chatstates, STANZA_ATTR_VAR, STANZA_NS_CHATSTATES);
|
|
|
|
|
2013-02-17 11:43:26 -05:00
|
|
|
xmpp_stanza_t *feature_ping = xmpp_stanza_new(ctx);
|
|
|
|
xmpp_stanza_set_name(feature_ping, STANZA_NAME_FEATURE);
|
|
|
|
xmpp_stanza_set_attribute(feature_ping, STANZA_ATTR_VAR, STANZA_NS_PING);
|
|
|
|
|
2013-01-21 17:38:48 -05:00
|
|
|
xmpp_stanza_add_child(query, identity);
|
2013-02-17 11:50:44 -05:00
|
|
|
|
2013-01-21 17:38:48 -05:00
|
|
|
xmpp_stanza_add_child(query, feature_caps);
|
2013-02-16 22:23:14 -05:00
|
|
|
xmpp_stanza_add_child(query, feature_chatstates);
|
2013-02-17 11:50:44 -05:00
|
|
|
xmpp_stanza_add_child(query, feature_discoinfo);
|
2013-03-24 13:45:12 -04:00
|
|
|
xmpp_stanza_add_child(query, feature_discoitems);
|
2013-02-17 11:50:44 -05:00
|
|
|
xmpp_stanza_add_child(query, feature_muc);
|
|
|
|
xmpp_stanza_add_child(query, feature_version);
|
2013-02-17 11:43:26 -05:00
|
|
|
xmpp_stanza_add_child(query, feature_ping);
|
2013-01-21 17:38:48 -05:00
|
|
|
|
2013-01-23 17:24:54 -05:00
|
|
|
xmpp_stanza_release(identity);
|
|
|
|
xmpp_stanza_release(feature_muc);
|
|
|
|
xmpp_stanza_release(feature_discoinfo);
|
2013-03-24 13:45:12 -04:00
|
|
|
xmpp_stanza_release(feature_discoitems);
|
2013-01-23 17:24:54 -05:00
|
|
|
xmpp_stanza_release(feature_caps);
|
|
|
|
xmpp_stanza_release(feature_version);
|
2013-02-16 22:23:14 -05:00
|
|
|
xmpp_stanza_release(feature_chatstates);
|
2013-01-23 17:24:54 -05:00
|
|
|
|
2013-01-21 17:38:48 -05:00
|
|
|
return query;
|
|
|
|
}
|
|
|
|
|
2013-01-19 19:35:40 -05:00
|
|
|
void
|
|
|
|
caps_close(void)
|
|
|
|
{
|
|
|
|
g_hash_table_destroy(capabilities);
|
|
|
|
}
|
2013-01-19 19:57:44 -05:00
|
|
|
|
|
|
|
static void
|
|
|
|
_caps_destroy(Capabilities *caps)
|
|
|
|
{
|
|
|
|
if (caps != NULL) {
|
2013-02-05 18:06:30 -05:00
|
|
|
FREE_SET_NULL(caps->category);
|
|
|
|
FREE_SET_NULL(caps->type);
|
|
|
|
FREE_SET_NULL(caps->name);
|
|
|
|
FREE_SET_NULL(caps->software);
|
|
|
|
FREE_SET_NULL(caps->software_version);
|
|
|
|
FREE_SET_NULL(caps->os);
|
|
|
|
FREE_SET_NULL(caps->os_version);
|
2013-02-16 20:04:10 -05:00
|
|
|
if (caps->features != NULL) {
|
|
|
|
g_slist_free_full(caps->features, free);
|
|
|
|
caps->features = NULL;
|
|
|
|
}
|
2013-01-19 19:57:44 -05:00
|
|
|
FREE_SET_NULL(caps);
|
|
|
|
}
|
|
|
|
}
|