Add vCard support

Only nicknames, photos, birthdays, addresses, telephone numbers, emails,
JIDs, titles, roles, notes, and URLs are supported

Due to the synopsis array not having enough space, `/vcard photo
open-self` and `/vcard photo save-self` are not documented properly in
the synopsis section of the `/vcard` command, but they are documented in
the arguments section

Fixed memory leak in vcard autocomplete (thanks to debXwoody)

5 files changed, 1872 insertions, 0 deletions

diff --git a/src/xmpp/stanza.c b/src/xmpp/stanza.c
index 6b8377b6..fc2fcdc6 100644
--- a/src/xmpp/stanza.c
+++ b/src/xmpp/stanza.c
@@ -2688,6 +2688,25 @@ stanza_create_avatar_metadata_publish_iq(xmpp_ctx_t* ctx, const char* img_data,
 }
 
 xmpp_stanza_t*
+stanza_create_vcard_request_iq(xmpp_ctx_t* ctx, const char* const jid, const char* const stanza_id)
+{
+    xmpp_stanza_t* iq = xmpp_iq_new(ctx, STANZA_TYPE_GET, stanza_id);
+    xmpp_stanza_set_from(iq, connection_get_fulljid());
+    if (jid) {
+        xmpp_stanza_set_to(iq, jid);
+    }
+
+    xmpp_stanza_t* vcard = xmpp_stanza_new(ctx);
+    xmpp_stanza_set_name(vcard, STANZA_NAME_VCARD);
+    xmpp_stanza_set_ns(vcard, STANZA_NS_VCARD);
+
+    xmpp_stanza_add_child(iq, vcard);
+    xmpp_stanza_release(vcard);
+
+    return iq;
+}
+
+xmpp_stanza_t*
 stanza_attach_correction(xmpp_ctx_t* ctx, xmpp_stanza_t* stanza, const char* const replace_id)
 {
     xmpp_stanza_t* replace_stanza = xmpp_stanza_new(ctx);
diff --git a/src/xmpp/stanza.h b/src/xmpp/stanza.h
index 12c9a5ee..ddd46e9a 100644
--- a/src/xmpp/stanza.h
+++ b/src/xmpp/stanza.h
@@ -123,6 +123,7 @@
 #define STANZA_NAME_MOOD             "mood"
 #define STANZA_NAME_RECEIVED         "received"
 #define STANZA_NAME_SENT             "sent"
+#define STANZA_NAME_VCARD            "vCard"
 
 // error conditions
 #define STANZA_NAME_BAD_REQUEST             "bad-request"
@@ -249,6 +250,7 @@
 #define STANZA_NS_MOOD_NOTIFY             "http://jabber.org/protocol/mood+notify"
 #define STANZA_NS_STREAMS                 "http://etherx.jabber.org/streams"
 #define STANZA_NS_XMPP_STREAMS            "urn:ietf:params:xml:ns:xmpp-streams"
+#define STANZA_NS_VCARD                   "vcard-temp"
 
 #define STANZA_DATAFORM_SOFTWARE "urn:xmpp:dataforms:softwareinfo"
 
@@ -413,6 +415,7 @@ void stanza_free_caps(XMPPCaps* caps);
 xmpp_stanza_t* stanza_create_avatar_retrieve_data_request(xmpp_ctx_t* ctx, const char* stanza_id, const char* const item_id, const char* const jid);
 xmpp_stanza_t* stanza_create_avatar_data_publish_iq(xmpp_ctx_t* ctx, const char* img_data, gsize len);
 xmpp_stanza_t* stanza_create_avatar_metadata_publish_iq(xmpp_ctx_t* ctx, const char* img_data, gsize len, int height, int width);
+xmpp_stanza_t* stanza_create_vcard_request_iq(xmpp_ctx_t* ctx, const char* const jid, const char* const stanza_id);
 xmpp_stanza_t* stanza_create_mam_iq(xmpp_ctx_t* ctx, const char* const jid, const char* const startdate, const char* const lastid);
 xmpp_stanza_t* stanza_change_password(xmpp_ctx_t* ctx, const char* const user, const char* const password);
 xmpp_stanza_t* stanza_register_new_account(xmpp_ctx_t* ctx, const char* const user, const char* const password);
diff --git a/src/xmpp/vcard.c b/src/xmpp/vcard.c
new file mode 100644
index 00000000..6d2f0b1e
--- /dev/null
+++ b/src/xmpp/vcard.c
@@ -0,0 +1,1613 @@
+/*
+ * vcard.c
+ * vim: expandtab:ts=4:sts=4:sw=4
+ *
+ * Copyright (C) 2022 Marouane L. <techmetx11@disroot.org>
+ *
+ * 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 <https://www.gnu.org/licenses/>.
+ *
+ * In addition, as a special exception, the copyright holders give permission to
+ * link the code of portions of this program with the OpenSSL library under
+ * certain conditions as described in each individual source file, and
+ * distribute linked combinations including the two.
+ *
+ * You must obey the GNU General Public License in all respects for all of the
+ * code used other than OpenSSL. If you modify file(s) with this exception, you
+ * may extend this exception to your version of the file(s), but you are not
+ * obligated to do so. If you do not wish to do so, delete this exception
+ * statement from your version. If you delete this exception statement from all
+ * source files in the program, then also delete it here.
+ *
+ */
+
+#include <assert.h>
+#include <errno.h>
+#include <glib.h>
+#include <strophe.h>
+#include <sys/stat.h>
+
+#include "xmpp/vcard.h"
+#include "config/files.h"
+#include "config/preferences.h"
+#include "ui/ui.h"
+#include "ui/window_list.h"
+#include "xmpp/connection.h"
+#include "xmpp/iq.h"
+#include "xmpp/stanza.h"
+
+// Connected account's vCard
+vCard* vcard_user = NULL;
+
+typedef struct
+{
+    vCard* vcard;
+    ProfWin* window;
+
+    // for photo
+    int photo_index;
+    gboolean open;
+    char* filename;
+} _userdata;
+
+static void
+_free_vcard_element(void* velement)
+{
+    vcard_element_t* element = (vcard_element_t*)velement;
+
+    switch (element->type) {
+    case VCARD_NICKNAME:
+    {
+        if (element->nickname) {
+            free(element->nickname);
+        }
+        break;
+    }
+    case VCARD_PHOTO:
+    {
+        if (element->photo.external) {
+            if (element->photo.extval) {
+                free(element->photo.extval);
+            }
+        } else {
+            if (element->photo.data) {
+                g_free(element->photo.data);
+            }
+            if (element->photo.type) {
+                free(element->photo.type);
+            }
+        }
+        break;
+    }
+    case VCARD_BIRTHDAY:
+    {
+        g_date_time_unref(element->birthday);
+        break;
+    }
+    case VCARD_ADDRESS:
+    {
+        if (element->address.pobox) {
+            free(element->address.pobox);
+        }
+        if (element->address.extaddr) {
+            free(element->address.extaddr);
+        }
+        if (element->address.street) {
+            free(element->address.street);
+        }
+        if (element->address.locality) {
+            free(element->address.locality);
+        }
+        if (element->address.region) {
+            free(element->address.region);
+        }
+        if (element->address.pcode) {
+            free(element->address.pcode);
+        }
+        if (element->address.country) {
+            free(element->address.country);
+        }
+        break;
+    }
+    case VCARD_TELEPHONE:
+    {
+        if (element->telephone.number) {
+            free(element->telephone.number);
+        }
+        break;
+    }
+    case VCARD_EMAIL:
+    {
+        if (element->email.userid) {
+            free(element->email.userid);
+        }
+        break;
+    }
+    case VCARD_JID:
+    {
+        if (element->jid) {
+            free(element->jid);
+        }
+        break;
+    }
+    case VCARD_TITLE:
+    {
+        if (element->title) {
+            free(element->title);
+        }
+        break;
+    }
+    case VCARD_ROLE:
+    {
+        if (element->role) {
+            free(element->role);
+        }
+        break;
+    }
+    case VCARD_NOTE:
+    {
+        if (element->note) {
+            free(element->note);
+        }
+        break;
+    }
+    case VCARD_URL:
+        if (element->url) {
+            free(element->url);
+        }
+        break;
+    }
+
+    free(element);
+}
+
+void
+vcard_free_full(vCard* vcard)
+{
+    if (!vcard) {
+        return;
+    }
+
+    // Free the fullname element
+    if (vcard->fullname) {
+        free(vcard->fullname);
+    }
+
+    // Free the name element
+    if (vcard->name.family) {
+        free(vcard->name.family);
+    }
+    if (vcard->name.given) {
+        free(vcard->name.given);
+    }
+    if (vcard->name.middle) {
+        free(vcard->name.middle);
+    }
+    if (vcard->name.prefix) {
+        free(vcard->name.prefix);
+    }
+    if (vcard->name.suffix) {
+        free(vcard->name.suffix);
+    }
+
+    // Clear the elements queue
+    g_queue_clear_full(vcard->elements, _free_vcard_element);
+}
+
+vCard*
+vcard_new(void)
+{
+    vCard* vcard = calloc(1, sizeof(vCard));
+
+    if (!vcard) {
+        return NULL;
+    }
+
+    vcard->elements = g_queue_new();
+
+    return vcard;
+}
+
+void
+vcard_free(vCard* vcard)
+{
+    if (!vcard) {
+        return;
+    }
+
+    g_queue_free(vcard->elements);
+    free(vcard);
+}
+
+static void
+_free_userdata(_userdata* data)
+{
+    vcard_free_full(data->vcard);
+    vcard_free(data->vcard);
+
+    if (data->filename) {
+        free(data->filename);
+    }
+
+    free(data);
+}
+
+// Function must be called with <vCard> root element
+gboolean
+vcard_parse(xmpp_stanza_t* vcard_xml, vCard* vcard)
+{
+    // 2 bits
+    // 01 = fullname is set
+    // 10 = name is set
+    // Fullname and name can only be set once, if another
+    // fullname, or name element is found, then it will be
+    // ignored
+    char flags = 0;
+
+    if (!vcard_xml) {
+        // vCard XML is null, stop
+        return FALSE;
+    }
+
+    // Pointer to children of the vCard element
+    xmpp_stanza_t* child_pointer = xmpp_stanza_get_children(vcard_xml);
+
+    // Connection context, for freeing elements allocated by Strophe
+    const xmpp_ctx_t* ctx = connection_get_ctx();
+
+    // Pointer to the children of the children
+    xmpp_stanza_t* child_pointer2 = NULL;
+
+    for (; child_pointer != NULL; child_pointer = xmpp_stanza_get_next(child_pointer)) {
+        if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "FN") && !(flags & 1)) {
+            vcard->fullname = stanza_text_strdup(child_pointer);
+            flags |= 1;
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "N") && !(flags & 2)) {
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "FAMILY");
+            vcard->name.family = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "GIVEN");
+            vcard->name.given = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "MIDDLE");
+            vcard->name.middle = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "PREFIX");
+            vcard->name.prefix = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "SUFFIX");
+            vcard->name.suffix = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            flags |= 2;
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "NICKNAME")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_NICKNAME;
+            element->nickname = stanza_text_strdup(child_pointer);
+
+            if (!element->nickname) {
+                // Invaild element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "PHOTO")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_PHOTO;
+
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "EXTVAL");
+            if (child_pointer2) {
+                element->photo.external = TRUE;
+                element->photo.extval = stanza_text_strdup(child_pointer2);
+            } else {
+                element->photo.external = FALSE;
+                child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "BINVAL");
+                if (!child_pointer2) {
+                    // No EXTVAL or BINVAL, invalid photo, skipping
+                    free(element);
+                    continue;
+                }
+                char* photo_base64 = xmpp_stanza_get_text(child_pointer2);
+                if (!photo_base64) {
+                    free(element);
+                    continue;
+                }
+                element->photo.data = g_base64_decode(photo_base64, &element->photo.length);
+                xmpp_free(ctx, photo_base64);
+
+                child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "TYPE");
+                if (!child_pointer2) {
+                    // No TYPE, invalid photo, skipping
+                    if (element->photo.data) {
+                        g_free(element->photo.data);
+                    }
+                    free(element);
+                    continue;
+                }
+
+                element->photo.type = stanza_text_strdup(child_pointer2);
+            }
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "BDAY")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_BIRTHDAY;
+
+            char* bday_text = xmpp_stanza_get_text(child_pointer);
+            if (!bday_text) {
+                free(element);
+                continue;
+            }
+
+            // Check if the birthday string is a date/time or date only string
+            char* check_pointer = bday_text;
+            gboolean is_datetime = FALSE;
+            for (; *check_pointer != 0; check_pointer++) {
+                if (*check_pointer == 'T' || *check_pointer == 't' || *check_pointer == ' ') {
+                    is_datetime = TRUE;
+                    break;
+                }
+            }
+
+            if (!is_datetime) {
+                // glib doesn't parse ISO8601 date only strings, so we're gonna
+                // add a time string to make it parse
+                GString* date_string = g_string_new(bday_text);
+                g_string_append(date_string, "T00:00:00Z");
+
+                element->birthday = g_date_time_new_from_iso8601(date_string->str, NULL);
+
+                g_string_free(date_string, TRUE);
+            } else {
+                element->birthday = g_date_time_new_from_iso8601(bday_text, NULL);
+            }
+
+            xmpp_free(ctx, bday_text);
+
+            if (!element->birthday) {
+                // Invalid birthday ISO 8601 date, skipping
+                free(element);
+                continue;
+            }
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "ADR")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_ADDRESS;
+            if (xmpp_stanza_get_child_by_name(child_pointer, "HOME")) {
+                element->address.options |= VCARD_HOME;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "WORK")) {
+                element->address.options |= VCARD_WORK;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "POSTAL")) {
+                element->address.options |= VCARD_POSTAL;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PARCEL")) {
+                element->address.options |= VCARD_PARCEL;
+            }
+
+            if (xmpp_stanza_get_child_by_name(child_pointer, "DOM")) {
+                element->address.options |= VCARD_DOM;
+            } else if (xmpp_stanza_get_child_by_name(child_pointer, "INTL")) {
+                element->address.options |= VCARD_INTL;
+            }
+
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PREF")) {
+                element->address.options |= VCARD_PREF;
+            }
+
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "POBOX");
+            element->address.pobox = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "EXTADD");
+            element->address.extaddr = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "STREET");
+            element->address.street = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "LOCALITY");
+            element->address.locality = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "REGION");
+            element->address.region = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "PCODE");
+            element->address.pcode = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "CTRY");
+            element->address.country = child_pointer2 ? stanza_text_strdup(child_pointer2) : NULL;
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "TEL")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_TELEPHONE;
+            if (xmpp_stanza_get_child_by_name(child_pointer, "HOME")) {
+                element->telephone.options |= VCARD_HOME;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "WORK")) {
+                element->telephone.options |= VCARD_WORK;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "VOICE")) {
+                element->telephone.options |= VCARD_TEL_VOICE;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "FAX")) {
+                element->telephone.options |= VCARD_TEL_FAX;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PAGER")) {
+                element->telephone.options |= VCARD_TEL_PAGER;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "MSG")) {
+                element->telephone.options |= VCARD_TEL_MSG;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "CELL")) {
+                element->telephone.options |= VCARD_TEL_CELL;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "VIDEO")) {
+                element->telephone.options |= VCARD_TEL_VIDEO;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "BBS")) {
+                element->telephone.options |= VCARD_TEL_BBS;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "MODEM")) {
+                element->telephone.options |= VCARD_TEL_MODEM;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "ISDN")) {
+                element->telephone.options |= VCARD_TEL_ISDN;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PCS")) {
+                element->telephone.options |= VCARD_TEL_PCS;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PREF")) {
+                element->telephone.options |= VCARD_PREF;
+            }
+
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "NUMBER");
+            if (!child_pointer2) {
+                // No NUMBER, invalid telephone, skipping
+                free(element);
+                continue;
+            }
+            element->telephone.number = stanza_text_strdup(child_pointer2);
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "EMAIL")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_EMAIL;
+            if (xmpp_stanza_get_child_by_name(child_pointer, "HOME")) {
+                element->email.options |= VCARD_HOME;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "WORK")) {
+                element->email.options |= VCARD_WORK;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "INTERNET")) {
+                element->email.options |= VCARD_EMAIL_INTERNET;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "X400")) {
+                element->email.options |= VCARD_EMAIL_X400;
+            }
+            if (xmpp_stanza_get_child_by_name(child_pointer, "PREF")) {
+                element->email.options |= VCARD_PREF;
+            }
+
+            child_pointer2 = xmpp_stanza_get_child_by_name(child_pointer, "USERID");
+            if (!child_pointer2) {
+                // No USERID, invalid email, skipping
+                free(element);
+                continue;
+            }
+            element->email.userid = stanza_text_strdup(child_pointer2);
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "JABBERID")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_JID;
+            element->jid = stanza_text_strdup(child_pointer);
+
+            if (!element->jid) {
+                // Invalid element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "TITLE")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_TITLE;
+            element->title = stanza_text_strdup(child_pointer);
+
+            if (!element->title) {
+                // Invalid element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "ROLE")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_ROLE;
+            element->role = stanza_text_strdup(child_pointer);
+
+            if (!element->role) {
+                // Invalid element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "NOTE")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_NOTE;
+            element->note = stanza_text_strdup(child_pointer);
+
+            if (!element->note) {
+                // Invalid element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        } else if (!g_strcmp0(xmpp_stanza_get_name(child_pointer), "URL")) {
+            vcard_element_t* element = calloc(1, sizeof(vcard_element_t));
+            if (!element) {
+                // Allocation failed
+                continue;
+            }
+
+            element->type = VCARD_URL;
+            element->url = stanza_text_strdup(child_pointer);
+
+            if (!element->note) {
+                // Invalid element, free and do not push
+                free(element);
+                continue;
+            }
+
+            g_queue_push_tail(vcard->elements, element);
+        }
+    }
+    return TRUE;
+}
+
+xmpp_stanza_t*
+vcard_to_xml(xmpp_ctx_t* const ctx, vCard* vcard)
+{
+    if (!vcard || !ctx) {
+        return NULL;
+    }
+
+    xmpp_stanza_t* vcard_stanza = xmpp_stanza_new(ctx);
+    xmpp_stanza_set_name(vcard_stanza, STANZA_NAME_VCARD);
+    xmpp_stanza_set_ns(vcard_stanza, STANZA_NS_VCARD);
+
+    if (vcard->fullname) {
+        // <FN> element
+        xmpp_stanza_t* fn = xmpp_stanza_new(ctx);
+        xmpp_stanza_set_name(fn, "FN");
+
+        xmpp_stanza_t* fn_text = xmpp_stanza_new(ctx);
+        xmpp_stanza_set_text(fn_text, vcard->fullname);
+        xmpp_stanza_add_child(fn, fn_text);
+        xmpp_stanza_release(fn_text);
+
+        xmpp_stanza_add_child(vcard_stanza, fn);
+        xmpp_stanza_release(fn);
+    }
+
+    if (vcard->name.family || vcard->name.given || vcard->name.middle || vcard->name.prefix || vcard->name.suffix) {
+        // <NAME> element
+        xmpp_stanza_t* name = xmpp_stanza_new(ctx);
+        xmpp_stanza_set_name(name, "NAME");
+
+        if (vcard->name.family) {
+            xmpp_stanza_t* name_family = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(name_family, "FAMILY");
+
+            xmpp_stanza_t* name_family_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(name_family_text, vcard->name.family);
+            xmpp_stanza_add_child(name_family, name_family_text);
+            xmpp_stanza_release(name_family_text);
+
+            xmpp_stanza_add_child(name, name_family);
+            xmpp_stanza_release(name_family);
+        }
+
+        if (vcard->name.given) {
+            xmpp_stanza_t* name_given = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(name_given, "GIVEN");
+
+            xmpp_stanza_t* name_given_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(name_given_text, vcard->name.given);
+            xmpp_stanza_add_child(name_given, name_given_text);
+            xmpp_stanza_release(name_given_text);
+
+            xmpp_stanza_add_child(name, name_given);
+            xmpp_stanza_release(name_given);
+        }
+
+        if (vcard->name.middle) {
+            xmpp_stanza_t* name_middle = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(name_middle, "MIDDLE");
+
+            xmpp_stanza_t* name_middle_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(name_middle_text, vcard->name.middle);
+            xmpp_stanza_add_child(name_middle, name_middle_text);
+            xmpp_stanza_release(name_middle_text);
+
+            xmpp_stanza_add_child(name, name_middle);
+            xmpp_stanza_release(name_middle);
+        }
+
+        if (vcard->name.prefix) {
+            xmpp_stanza_t* name_prefix = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(name_prefix, "PREFIX");
+
+            xmpp_stanza_t* name_prefix_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(name_prefix_text, vcard->name.prefix);
+            xmpp_stanza_add_child(name_prefix, name_prefix_text);
+            xmpp_stanza_release(name_prefix_text);
+
+            xmpp_stanza_add_child(name, name_prefix);
+            xmpp_stanza_release(name_prefix);
+        }
+
+        if (vcard->name.suffix) {
+            xmpp_stanza_t* name_suffix = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(name_suffix, "SUFFIX");
+
+            xmpp_stanza_t* name_suffix_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(name_suffix_text, vcard->name.suffix);
+            xmpp_stanza_add_child(name_suffix, name_suffix_text);
+            xmpp_stanza_release(name_suffix_text);
+
+            xmpp_stanza_add_child(name, name_suffix);
+            xmpp_stanza_release(name_suffix);
+        }
+
+        xmpp_stanza_add_child(vcard_stanza, name);
+        xmpp_stanza_release(name);
+    }
+
+    GList* pointer = g_queue_peek_head_link(vcard->elements);
+
+    for (; pointer != NULL; pointer = pointer->next) {
+        assert(pointer->data != NULL);
+        vcard_element_t* element = (vcard_element_t*)pointer->data;
+
+        switch (element->type) {
+        case VCARD_NICKNAME:
+        {
+            // <NICKNAME> element
+            xmpp_stanza_t* nickname = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(nickname, "NICKNAME");
+
+            xmpp_stanza_t* nickname_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(nickname_text, element->nickname);
+            xmpp_stanza_add_child(nickname, nickname_text);
+            xmpp_stanza_release(nickname_text);
+
+            xmpp_stanza_add_child(vcard_stanza, nickname);
+            xmpp_stanza_release(nickname);
+            break;
+        }
+        case VCARD_PHOTO:
+        {
+            // <PHOTO> element
+            xmpp_stanza_t* photo = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(photo, "PHOTO");
+
+            if (element->photo.external) {
+                xmpp_stanza_t* extval = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(extval, "EXTVAL");
+
+                xmpp_stanza_t* extval_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(extval_text, element->photo.extval);
+                xmpp_stanza_add_child(extval, extval_text);
+                xmpp_stanza_release(extval_text);
+
+                xmpp_stanza_add_child(photo, extval);
+                xmpp_stanza_release(extval);
+            } else {
+                xmpp_stanza_t* binval = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(binval, "BINVAL");
+
+                gchar* base64 = g_base64_encode(element->photo.data, element->photo.length);
+                xmpp_stanza_t* binval_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(binval_text, base64);
+                g_free(base64);
+                xmpp_stanza_add_child(binval, binval_text);
+                xmpp_stanza_release(binval_text);
+
+                xmpp_stanza_add_child(photo, binval);
+                xmpp_stanza_release(binval);
+
+                xmpp_stanza_t* type = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(type, "TYPE");
+
+                xmpp_stanza_t* type_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(type_text, element->photo.type);
+                xmpp_stanza_add_child(type, type_text);
+                xmpp_stanza_release(type_text);
+
+                xmpp_stanza_add_child(photo, type);
+                xmpp_stanza_release(type);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, photo);
+            xmpp_stanza_release(photo);
+            break;
+        }
+        case VCARD_BIRTHDAY:
+        {
+            // <BDAY> element
+            xmpp_stanza_t* birthday = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(birthday, "BDAY");
+
+            gchar* bday_text = g_date_time_format(element->birthday, "%Y-%m-%d");
+            xmpp_stanza_t* birthday_text = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_text(birthday_text, bday_text);
+            g_free(bday_text);
+            xmpp_stanza_add_child(birthday, birthday_text);
+            xmpp_stanza_release(birthday_text);
+
+            xmpp_stanza_add_child(vcard_stanza, birthday);
+            xmpp_stanza_release(birthday);
+            break;
+        }
+        case VCARD_ADDRESS:
+        {
+            // <ADR> element
+            xmpp_stanza_t* address = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(address, "ADR");
+
+            // Options
+            if (element->address.options & VCARD_HOME) {
+                xmpp_stanza_t* home = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(home, "HOME");
+
+                xmpp_stanza_add_child(address, home);
+                xmpp_stanza_release(home);
+            }
+            if ((element->address.options & VCARD_WORK) == VCARD_WORK) {
+                xmpp_stanza_t* work = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(work, "WORK");
+
+                xmpp_stanza_add_child(address, work);
+                xmpp_stanza_release(work);
+            }
+            if ((element->address.options & VCARD_POSTAL) == VCARD_POSTAL) {
+                xmpp_stanza_t* postal = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(postal, "POSTAL");
+
+                xmpp_stanza_add_child(address, postal);
+                xmpp_stanza_release(postal);
+            }
+            if ((element->address.options & VCARD_PARCEL) == VCARD_PARCEL) {
+                xmpp_stanza_t* parcel = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(parcel, "PARCEL");
+
+                xmpp_stanza_add_child(address, parcel);
+                xmpp_stanza_release(parcel);
+            }
+            if ((element->address.options & VCARD_INTL) == VCARD_INTL) {
+                xmpp_stanza_t* intl = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(intl, "INTL");
+
+                xmpp_stanza_add_child(address, intl);
+                xmpp_stanza_release(intl);
+            }
+            if ((element->address.options & VCARD_DOM) == VCARD_DOM) {
+                xmpp_stanza_t* dom = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(dom, "DOM");
+
+                xmpp_stanza_add_child(address, dom);
+                xmpp_stanza_release(dom);
+            }
+            if ((element->address.options & VCARD_PREF) == VCARD_PREF) {
+                xmpp_stanza_t* pref = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pref, "PREF");
+
+                xmpp_stanza_add_child(address, pref);
+                xmpp_stanza_release(pref);
+            }
+
+            if (element->address.pobox) {
+                xmpp_stanza_t* pobox = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pobox, "POBOX");
+
+                xmpp_stanza_t* pobox_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(pobox_text, element->address.pobox);
+                xmpp_stanza_add_child(pobox, pobox_text);
+                xmpp_stanza_release(pobox_text);
+
+                xmpp_stanza_add_child(address, pobox);
+                xmpp_stanza_release(pobox);
+            }
+            if (element->address.extaddr) {
+                xmpp_stanza_t* extaddr = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(extaddr, "EXTADD");
+
+                xmpp_stanza_t* extaddr_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(extaddr_text, element->address.extaddr);
+                xmpp_stanza_add_child(extaddr, extaddr_text);
+                xmpp_stanza_release(extaddr_text);
+
+                xmpp_stanza_add_child(address, extaddr);
+                xmpp_stanza_release(extaddr);
+            }
+            if (element->address.street) {
+                xmpp_stanza_t* street = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(street, "STREET");
+
+                xmpp_stanza_t* street_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(street_text, element->address.street);
+                xmpp_stanza_add_child(street, street_text);
+                xmpp_stanza_release(street_text);
+
+                xmpp_stanza_add_child(address, street);
+                xmpp_stanza_release(street);
+            }
+            if (element->address.locality) {
+                xmpp_stanza_t* locality = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(locality, "LOCALITY");
+
+                xmpp_stanza_t* locality_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(locality_text, element->address.locality);
+                xmpp_stanza_add_child(locality, locality_text);
+                xmpp_stanza_release(locality_text);
+
+                xmpp_stanza_add_child(address, locality);
+                xmpp_stanza_release(locality);
+            }
+            if (element->address.region) {
+                xmpp_stanza_t* region = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(region, "REGION");
+
+                xmpp_stanza_t* region_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(region_text, element->address.region);
+                xmpp_stanza_add_child(region, region_text);
+                xmpp_stanza_release(region_text);
+
+                xmpp_stanza_add_child(address, region);
+                xmpp_stanza_release(region);
+            }
+            if (element->address.pcode) {
+                xmpp_stanza_t* pcode = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pcode, "PCODE");
+
+                xmpp_stanza_t* pcode_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(pcode_text, element->address.pcode);
+                xmpp_stanza_add_child(pcode, pcode_text);
+                xmpp_stanza_release(pcode_text);
+
+                xmpp_stanza_add_child(address, pcode);
+                xmpp_stanza_release(pcode);
+            }
+            if (element->address.country) {
+                xmpp_stanza_t* ctry = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(ctry, "CTRY");
+
+                xmpp_stanza_t* ctry_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(ctry_text, element->address.country);
+                xmpp_stanza_add_child(ctry, ctry_text);
+                xmpp_stanza_release(ctry_text);
+
+                xmpp_stanza_add_child(address, ctry);
+                xmpp_stanza_release(ctry);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, address);
+            xmpp_stanza_release(address);
+            break;
+        }
+        case VCARD_TELEPHONE:
+        {
+            // <TEL> element
+            xmpp_stanza_t* tel = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(tel, "TEL");
+
+            // Options
+            if (element->telephone.options & VCARD_HOME) {
+                xmpp_stanza_t* home = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(home, "HOME");
+
+                xmpp_stanza_add_child(tel, home);
+                xmpp_stanza_release(home);
+            }
+            if ((element->telephone.options & VCARD_WORK) == VCARD_WORK) {
+                xmpp_stanza_t* work = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(work, "WORK");
+
+                xmpp_stanza_add_child(tel, work);
+                xmpp_stanza_release(work);
+            }
+            if ((element->telephone.options & VCARD_TEL_VOICE) == VCARD_TEL_VOICE) {
+                xmpp_stanza_t* voice = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(voice, "VOICE");
+
+                xmpp_stanza_add_child(tel, voice);
+                xmpp_stanza_release(voice);
+            }
+            if ((element->telephone.options & VCARD_TEL_FAX) == VCARD_TEL_FAX) {
+                xmpp_stanza_t* fax = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(fax, "FAX");
+
+                xmpp_stanza_add_child(tel, fax);
+                xmpp_stanza_release(fax);
+            }
+            if ((element->telephone.options & VCARD_TEL_PAGER) == VCARD_TEL_PAGER) {
+                xmpp_stanza_t* pager = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pager, "PAGER");
+
+                xmpp_stanza_add_child(tel, pager);
+                xmpp_stanza_release(pager);
+            }
+            if ((element->telephone.options & VCARD_TEL_MSG) == VCARD_TEL_MSG) {
+                xmpp_stanza_t* msg = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(msg, "MSG");
+
+                xmpp_stanza_add_child(tel, msg);
+                xmpp_stanza_release(msg);
+            }
+            if ((element->telephone.options & VCARD_TEL_CELL) == VCARD_TEL_CELL) {
+                xmpp_stanza_t* cell = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(cell, "CELL");
+
+                xmpp_stanza_add_child(tel, cell);
+                xmpp_stanza_release(cell);
+            }
+            if ((element->telephone.options & VCARD_TEL_VIDEO) == VCARD_TEL_VIDEO) {
+                xmpp_stanza_t* video = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(video, "VIDEO");
+
+                xmpp_stanza_add_child(tel, video);
+                xmpp_stanza_release(video);
+            }
+            if ((element->telephone.options & VCARD_TEL_BBS) == VCARD_TEL_BBS) {
+                xmpp_stanza_t* bbs = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(bbs, "BBS");
+
+                xmpp_stanza_add_child(tel, bbs);
+                xmpp_stanza_release(bbs);
+            }
+            if ((element->telephone.options & VCARD_TEL_MODEM) == VCARD_TEL_MODEM) {
+                xmpp_stanza_t* modem = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(modem, "MODEM");
+
+                xmpp_stanza_add_child(tel, modem);
+                xmpp_stanza_release(modem);
+            }
+            if ((element->telephone.options & VCARD_TEL_ISDN) == VCARD_TEL_ISDN) {
+                xmpp_stanza_t* isdn = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(isdn, "ISDN");
+
+                xmpp_stanza_add_child(tel, isdn);
+                xmpp_stanza_release(isdn);
+            }
+            if ((element->telephone.options & VCARD_TEL_PCS) == VCARD_TEL_PCS) {
+                xmpp_stanza_t* pcs = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pcs, "PCS");
+
+                xmpp_stanza_add_child(tel, pcs);
+                xmpp_stanza_release(pcs);
+            }
+            if ((element->telephone.options & VCARD_PREF) == VCARD_PREF) {
+                xmpp_stanza_t* pref = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pref, "PREF");
+
+                xmpp_stanza_add_child(tel, pref);
+                xmpp_stanza_release(pref);
+            }
+
+            if (element->telephone.number) {
+                xmpp_stanza_t* number = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(number, "NUMBER");
+
+                xmpp_stanza_t* number_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(number_text, element->telephone.number);
+                xmpp_stanza_add_child(number, number_text);
+                xmpp_stanza_release(number_text);
+
+                xmpp_stanza_add_child(tel, number);
+                xmpp_stanza_release(number);
+            }
+            xmpp_stanza_add_child(vcard_stanza, tel);
+            xmpp_stanza_release(tel);
+            break;
+        }
+        case VCARD_EMAIL:
+        {
+            xmpp_stanza_t* email = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(email, "EMAIL");
+
+            if (element->email.options & VCARD_HOME) {
+                xmpp_stanza_t* home = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(home, "HOME");
+
+                xmpp_stanza_add_child(email, home);
+                xmpp_stanza_release(home);
+            }
+            if ((element->email.options & VCARD_WORK) == VCARD_WORK) {
+                xmpp_stanza_t* work = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(work, "WORK");
+
+                xmpp_stanza_add_child(email, work);
+                xmpp_stanza_release(work);
+            }
+            if ((element->email.options & VCARD_EMAIL_X400) == VCARD_EMAIL_X400) {
+                xmpp_stanza_t* x400 = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(x400, "X400");
+
+                xmpp_stanza_add_child(email, x400);
+                xmpp_stanza_release(x400);
+            }
+            if ((element->email.options & VCARD_PREF) == VCARD_PREF) {
+                xmpp_stanza_t* pref = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(pref, "PREF");
+
+                xmpp_stanza_add_child(email, pref);
+                xmpp_stanza_release(pref);
+            }
+
+            if (element->email.userid) {
+                xmpp_stanza_t* userid = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_name(userid, "USERID");
+
+                xmpp_stanza_t* userid_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(userid_text, element->email.userid);
+                xmpp_stanza_add_child(userid, userid_text);
+                xmpp_stanza_release(userid_text);
+
+                xmpp_stanza_add_child(email, userid);
+                xmpp_stanza_release(userid);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, email);
+            xmpp_stanza_release(email);
+            break;
+        }
+        case VCARD_JID:
+        {
+            xmpp_stanza_t* jid = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(jid, "JABBERID");
+
+            if (element->jid) {
+                xmpp_stanza_t* jid_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(jid_text, element->jid);
+                xmpp_stanza_add_child(jid, jid_text);
+                xmpp_stanza_release(jid_text);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, jid);
+            xmpp_stanza_release(jid);
+            break;
+        }
+        case VCARD_TITLE:
+        {
+            xmpp_stanza_t* title = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(title, "TITLE");
+
+            if (element->title) {
+                xmpp_stanza_t* title_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(title_text, element->title);
+                xmpp_stanza_add_child(title, title_text);
+                xmpp_stanza_release(title_text);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, title);
+            xmpp_stanza_release(title);
+            break;
+        }
+        case VCARD_ROLE:
+        {
+            xmpp_stanza_t* role = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(role, "ROLE");
+
+            if (element->role) {
+                xmpp_stanza_t* role_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(role_text, element->role);
+                xmpp_stanza_add_child(role, role_text);
+                xmpp_stanza_release(role_text);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, role);
+            xmpp_stanza_release(role);
+            break;
+        }
+        case VCARD_NOTE:
+        {
+            xmpp_stanza_t* note = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(note, "NOTE");
+
+            if (element->note) {
+                xmpp_stanza_t* note_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(note_text, element->note);
+                xmpp_stanza_add_child(note, note_text);
+                xmpp_stanza_release(note_text);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, note);
+            xmpp_stanza_release(note);
+            break;
+        }
+        case VCARD_URL:
+        {
+            xmpp_stanza_t* url = xmpp_stanza_new(ctx);
+            xmpp_stanza_set_name(url, "URL");
+
+            if (element->url) {
+                xmpp_stanza_t* url_text = xmpp_stanza_new(ctx);
+                xmpp_stanza_set_text(url_text, element->url);
+                xmpp_stanza_add_child(url, url_text);
+                xmpp_stanza_release(url_text);
+            }
+
+            xmpp_stanza_add_child(vcard_stanza, url);
+            xmpp_stanza_release(url);
+            break;
+        }
+        }
+    }
+
+    return vcard_stanza;
+}
+
+static int
+_vcard_print_result(xmpp_stanza_t* const stanza, void* userdata)
+{
+    _userdata* data = (_userdata*)userdata;
+    const char* from = xmpp_stanza_get_attribute(stanza, STANZA_ATTR_FROM);
+
+    if (from) {
+        win_println(data->window, THEME_DEFAULT, "!", "vCard for %s", from);
+    } else {
+        win_println(data->window, THEME_DEFAULT, "!", "This account's vCard");
+    }
+
+    xmpp_stanza_t* vcard_xml = xmpp_stanza_get_child_by_name(stanza, STANZA_NAME_VCARD);
+    if (!vcard_parse(vcard_xml, data->vcard)) {
+        return 1;
+    }
+
+    win_show_vcard(data->window, data->vcard);
+
+    return 1;
+}
+
+void
+vcard_print(xmpp_ctx_t* ctx, ProfWin* window, char* jid)
+{
+    if (!jid && vcard_user && vcard_user->modified) {
+        win_println(window, THEME_DEFAULT, "!", "This account's vCard (modified, `/vcard upload` to push)");
+        win_show_vcard(window, vcard_user);
+        return;
+    }
+
+    _userdata* data = calloc(1, sizeof(_userdata));
+    data->vcard = vcard_new();
+    if (!data || !data->vcard) {
+        if (data) {
+            free(data);
+        }
+
+        cons_show("vCard allocation failed");
+        return;
+    }
+
+    data->window = window;
+
+    char* id = connection_create_stanza_id();
+    xmpp_stanza_t* iq = stanza_create_vcard_request_iq(ctx, jid, id);
+
+    iq_id_handler_add(id, _vcard_print_result, (ProfIqFreeCallback)_free_userdata, data);
+
+    free(id);
+    iq_send_stanza(iq);
+    xmpp_stanza_release(iq);
+}
+
+static int
+_vcard_photo_result(xmpp_stanza_t* const stanza, void* userdata)
+{
+    _userdata* data = (_userdata*)userdata;
+    const char* from = xmpp_stanza_get_attribute(stanza, STANZA_ATTR_FROM);
+    if (!from) {
+        from = xmpp_stanza_get_attribute(stanza, STANZA_ATTR_TO);
+    }
+
+    vcard_element_photo_t* photo = NULL;
+
+    xmpp_stanza_t* vcard_xml = xmpp_stanza_get_child_by_name(stanza, STANZA_NAME_VCARD);
+    if (!vcard_parse(vcard_xml, data->vcard)) {
+        return 1;
+    }
+
+    if (data->photo_index < 0) {
+        GList* list_pointer;
+        for (list_pointer = g_queue_peek_head_link(data->vcard->elements); list_pointer != NULL; list_pointer = list_pointer->next) {
+            vcard_element_t* element = list_pointer->data;
+
+            if (element->type != VCARD_PHOTO) {
+                continue;
+            } else {
+                photo = &element->photo;
+            }
+        }
+
+        if (photo == NULL) {
+            cons_show_error("No photo was found in vCard");
+            return 1;
+        }
+    } else {
+        vcard_element_t* element = (vcard_element_t*)g_queue_peek_nth(data->vcard->elements, data->photo_index);
+
+        if (element == NULL) {
+            cons_show_error("No element was found at index %d", data->photo_index);
+            return 1;
+        } else if (element->type != VCARD_PHOTO) {
+            cons_show_error("Element is not a photo");
+            return 1;
+        }
+
+        photo = &element->photo;
+    }
+
+    if (photo->external) {
+        cons_show_error("Cannot handle external value: %s", photo->extval);
+        return 1;
+    }
+
+    GString* filename;
+
+    if (!data->filename) {
+        char* path = files_get_data_path(DIR_PHOTOS);
+        filename = g_string_new(path);
+        free(path);
+        g_string_append(filename, "/");
+
+        errno = 0;
+        int res = g_mkdir_with_parents(filename->str, S_IRWXU);
+        if (res == -1) {
+            const char* errmsg = strerror(errno);
+            if (errmsg) {
+                cons_show_error("Error creating directory %s: %s", filename->str, errmsg);
+                g_string_free(filename, TRUE);
+                return 1;
+            } else {
+                cons_show_error("Unknown error creating directory %s", filename->str);
+                g_string_free(filename, TRUE);
+            }
+        }
+        gchar* from1 = str_replace(from, "@", "_at_");
+        gchar* from2 = str_replace(from1, "/", "_slash_");
+        g_free(from1);
+
+        g_string_append(filename, from2);
+        g_free(from2);
+    } else {
+        filename = g_string_new(data->filename);
+    }
+
+    // check a few image types ourselves
+    // TODO: we could use /etc/mime-types
+    if (g_strcmp0(photo->type, "image/png") == 0 || g_strcmp0(photo->type, "img/png") == 0) {
+        g_string_append(filename, ".png");
+    } else if (g_strcmp0(photo->type, "image/jpeg") == 0 || g_strcmp0(photo->type, "img/jpeg") == 0) {
+        g_string_append(filename, ".jpeg");
+    } else if (g_strcmp0(photo->type, "image/webp") == 0 || g_strcmp0(photo->type, "img/webp") == 0) {
+        g_string_append(filename, ".webp");
+    }
+
+    GError* err = NULL;
+
+    if (g_file_set_contents(filename->str, (gchar*)photo->data, photo->length, &err) == FALSE) {
+        cons_show_error("Unable to save photo: %s", err->message);
+        g_error_free(err);
+        g_string_free(filename, TRUE);
+        return 1;
+    } else {
+        cons_show("Photo saved as %s", filename->str);
+    }
+
+    if (data->open) {
+        gchar** argv;
+        gint argc;
+
+        gchar* cmdtemplate = prefs_get_string(PREF_VCARD_PHOTO_CMD);
+
+        // this makes it work with filenames that contain spaces
+        g_string_prepend(filename, "\"");
+        g_string_append(filename, "\"");
+        gchar* cmd = str_replace(cmdtemplate, "%p", filename->str);
+        g_free(cmdtemplate);
+
+        if (g_shell_parse_argv(cmd, &argc, &argv, &err) == FALSE) {
+            cons_show_error("Failed to parse command template");
+            g_free(cmd);
+        } else {
+            if (!call_external(argv)) {
+                cons_show_error("Unable to execute command");
+            }
+            g_strfreev(argv);
+        }
+    }
+
+    g_string_free(filename, TRUE);
+
+    return 1;
+}
+
+void
+vcard_photo(xmpp_ctx_t* ctx, char* jid, char* filename, int index, gboolean open)
+{
+    _userdata* data = calloc(1, sizeof(_userdata));
+    data->vcard = vcard_new();
+
+    if (!data || !data->vcard) {
+        if (data) {
+            free(data);
+        }
+
+        cons_show("vCard allocation failed");
+        return;
+    }
+
+    data->photo_index = index;
+    data->open = open;
+
+    if (filename) {
+        data->filename = strdup(filename);
+    }
+
+    char* id = connection_create_stanza_id();
+    xmpp_stanza_t* iq = stanza_create_vcard_request_iq(ctx, jid, id);
+
+    iq_id_handler_add(id, _vcard_photo_result, (ProfIqFreeCallback)_free_userdata, data);
+
+    free(id);
+    iq_send_stanza(iq);
+    xmpp_stanza_release(iq);
+}
+
+static int
+_vcard_refresh_result(xmpp_stanza_t* const stanza, void* userdata)
+{
+    xmpp_stanza_t* vcard_xml = xmpp_stanza_get_child_by_name(stanza, STANZA_NAME_VCARD);
+
+    vcard_free_full(vcard_user);
+    if (!vcard_parse(vcard_xml, vcard_user)) {
+        return 1;
+    }
+
+    cons_show("vCard refreshed");
+    vcard_user->modified = FALSE;
+    return 1;
+}
+
+void
+vcard_user_refresh(void)
+{
+    if (!vcard_user) {
+        vcard_user = vcard_new();
+    }
+
+    if (!vcard_user) {
+        return;
+    }
+
+    char* id = connection_create_stanza_id();
+    xmpp_stanza_t* iq = stanza_create_vcard_request_iq(connection_get_ctx(), NULL, id);
+
+    iq_id_handler_add(id, _vcard_refresh_result, NULL, NULL);
+
+    free(id);
+    iq_send_stanza(iq);
+    xmpp_stanza_release(iq);
+}
+
+// Upload a vCard and set it as the currently connected account's vCard
+void
+vcard_upload(xmpp_ctx_t* ctx, vCard* vcard)
+{
+    char* id = connection_create_stanza_id();
+    xmpp_stanza_t* iq = xmpp_iq_new(ctx, STANZA_TYPE_SET, id);
+    xmpp_stanza_set_from(iq, connection_get_fulljid());
+
+    xmpp_stanza_t* vcard_stanza = vcard_to_xml(ctx, vcard);
+
+    if (!vcard_stanza) {
+        xmpp_stanza_release(iq);
+        free(id);
+        return;
+    }
+
+    xmpp_stanza_add_child(iq, vcard_stanza);
+    xmpp_stanza_release(vcard_stanza);
+
+    free(id);
+    iq_send_stanza(iq);
+    xmpp_stanza_release(iq);
+}
+
+void
+vcard_user_save(void)
+{
+    vcard_upload(connection_get_ctx(), vcard_user);
+    vcard_user->modified = FALSE;
+}
+
+void
+vcard_user_set_fullname(char* fullname)
+{
+    if (vcard_user->fullname) {
+        free(vcard_user->fullname);
+    }
+    if (fullname) {
+        vcard_user->fullname = strdup(fullname);
+    } else {
+        vcard_user->fullname = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_set_name_family(char* family)
+{
+    if (vcard_user->name.family) {
+        free(vcard_user->name.family);
+    }
+    if (family) {
+        vcard_user->name.family = strdup(family);
+    } else {
+        vcard_user->name.family = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_set_name_given(char* given)
+{
+    if (vcard_user->name.given) {
+        free(vcard_user->name.given);
+    }
+    if (given) {
+        vcard_user->name.given = strdup(given);
+    } else {
+        vcard_user->name.given = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_set_name_middle(char* middle)
+{
+    if (vcard_user->name.middle) {
+        free(vcard_user->name.middle);
+    }
+    if (middle) {
+        vcard_user->name.middle = strdup(middle);
+    } else {
+        vcard_user->name.middle = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_set_name_prefix(char* prefix)
+{
+    if (vcard_user->name.prefix) {
+        free(vcard_user->name.prefix);
+    }
+    if (prefix) {
+        vcard_user->name.prefix = strdup(prefix);
+    } else {
+        vcard_user->name.prefix = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_set_name_suffix(char* suffix)
+{
+    if (vcard_user->name.suffix) {
+        free(vcard_user->name.suffix);
+    }
+    if (suffix) {
+        vcard_user->name.suffix = strdup(suffix);
+    } else {
+        vcard_user->name.suffix = NULL;
+    }
+
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_add_element(vcard_element_t* element)
+{
+    g_queue_push_tail(vcard_user->elements, element);
+    vcard_user->modified = TRUE;
+}
+
+void
+vcard_user_remove_element(unsigned int index)
+{
+    void* pointer = g_queue_pop_nth(vcard_user->elements, index);
+
+    if (pointer) {
+        _free_vcard_element(pointer);
+        vcard_user->modified = TRUE;
+    }
+}
+
+vcard_element_t*
+vcard_user_get_element_index(unsigned int index)
+{
+    return g_queue_peek_nth(vcard_user->elements, index);
+}
+
+ProfWin*
+vcard_user_create_win(void)
+{
+    return wins_new_vcard(vcard_user);
+}
+
+void
+vcard_user_free(void)
+{
+    if (vcard_user) {
+        vcard_free_full(vcard_user);
+        vcard_free(vcard_user);
+    }
+    vcard_user = NULL;
+}
diff --git a/src/xmpp/vcard.h b/src/xmpp/vcard.h
new file mode 100644
index 00000000..9ec04c8c
--- /dev/null
+++ b/src/xmpp/vcard.h
@@ -0,0 +1,171 @@
+/*
+ * vcard.h
+ * vim: expandtab:ts=4:sts=4:sw=4
+ *
+ * Copyright (C) 2022 Marouane L. <techmetx11@disroot.org>
+ *
+ * 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 <https://www.gnu.org/licenses/>.
+ *
+ * In addition, as a special exception, the copyright holders give permission to
+ * link the code of portions of this program with the OpenSSL library under
+ * certain conditions as described in each individual source file, and
+ * distribute linked combinations including the two.
+ *
+ * You must obey the GNU General Public License in all respects for all of the
+ * code used other than OpenSSL. If you modify file(s) with this exception, you
+ * may extend this exception to your version of the file(s), but you are not
+ * obligated to do so. If you do not wish to do so, delete this exception
+ * statement from your version. If you delete this exception statement from all
+ * source files in the program, then also delete it here.
+ *
+ */
+
+#ifndef XMPP_VCARD_H
+#define XMPP_VCARD_H
+
+#include <glib.h>
+
+// 17 bits are currently used, out of (a possible) 32 bits
+typedef enum {
+    VCARD_HOME = 1,
+    VCARD_WORK = 2,
+    VCARD_POSTAL = 4,
+    VCARD_PARCEL = 8,
+    VCARD_INTL = 16,
+    VCARD_PREF = 32,
+    VCARD_TEL_VOICE = 64,
+    VCARD_TEL_FAX = 128,
+    VCARD_TEL_PAGER = 256,
+    VCARD_TEL_MSG = 512,
+    VCARD_TEL_CELL = 1024,
+    VCARD_TEL_VIDEO = 2048,
+    VCARD_TEL_BBS = 4096,
+    VCARD_TEL_MODEM = 8192,
+    VCARD_TEL_ISDN = 16384,
+    VCARD_TEL_PCS = 32768,
+    VCARD_EMAIL_X400 = 65536,
+    VCARD_EMAIL_INTERNET = 131072,
+    VCARD_DOM = 262144
+} vcard_element_options_t;
+
+typedef struct _vcard_name
+{
+    char *family, *given, *middle, *prefix, *suffix;
+} vcard_name_t;
+
+typedef struct _vcard_element_photo
+{
+    union {
+        struct
+        {
+            guchar* data;
+            char* type;
+            gsize length;
+        };
+        char* extval;
+    };
+    gboolean external;
+} vcard_element_photo_t;
+
+typedef struct _vcard_element_address
+{
+    char *pobox, *extaddr, *street, *locality, *region, *pcode, *country;
+
+    // Options used:
+    // VCARD_HOME
+    // VCARD_WORK
+    // VCARD_POSTAL
+    // VCARD_PARCEL
+    // VCARD_DOM
+    // VCARD_INTL
+    // VCARD_PREF
+    vcard_element_options_t options;
+} vcard_element_address_t;
+
+typedef struct _vcard_element_telephone
+{
+    char* number;
+
+    // Options used:
+    // VCARD_HOME
+    // VCARD_WORK
+    // VCARD_TEL_VOICE
+    // VCARD_TEL_FAX
+    // VCARD_TEL_PAGER
+    // VCARD_TEL_MSG
+    // VCARD_TEL_CELL
+    // VCARD_TEL_VIDEO
+    // VCARD_TEL_BBS
+    // VCARD_TEL_MODEM
+    // VCARD_TEL_ISDN
+    // VCARD_TEL_PCS
+    // VCARD_PREF
+    vcard_element_options_t options;
+} vcard_element_telephone_t;
+
+typedef struct _vcard_element_email
+{
+    char* userid;
+
+    // Options used:
+    // VCARD_HOME
+    // VCARD_WORK
+    // VCARD_EMAIL_X400
+    // VCARD_PREF
+    vcard_element_options_t options;
+} vcard_element_email_t;
+
+typedef enum _vcard_element_type {
+    VCARD_NICKNAME,
+    VCARD_PHOTO,
+    VCARD_BIRTHDAY,
+    VCARD_ADDRESS,
+    VCARD_TELEPHONE,
+    VCARD_EMAIL,
+    VCARD_JID,
+    VCARD_TITLE,
+    VCARD_ROLE,
+    VCARD_NOTE,
+    VCARD_URL
+} vcard_element_type;
+
+typedef struct _vcard_element
+{
+    vcard_element_type type;
+
+    union {
+        char *nickname, *jid, *title, *role, *note, *url;
+        vcard_element_photo_t photo;
+        GDateTime* birthday;
+        vcard_element_address_t address;
+        vcard_element_telephone_t telephone;
+        vcard_element_email_t email;
+    };
+} vcard_element_t;
+
+typedef struct _vcard
+{
+    // These elements are only meant to appear once (per DTD)
+    vcard_name_t name;
+    char* fullname;
+
+    gboolean modified;
+
+    // GQueue of vcard_element*
+    GQueue* elements;
+} vCard;
+
+#endif
diff --git a/src/xmpp/vcard_funcs.h b/src/xmpp/vcard_funcs.h
new file mode 100644
index 00000000..5f4aa3d0
--- /dev/null
+++ b/src/xmpp/vcard_funcs.h
@@ -0,0 +1,66 @@
+/*
+ * vcard_funcs.h
+ * vim: expandtab:ts=4:sts=4:sw=4
+ *
+ * Copyright (C) 2022 Marouane L. <techmetx11@disroot.org>
+ *
+ * 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 <https://www.gnu.org/licenses/>.
+ *
+ * In addition, as a special exception, the copyright holders give permission to
+ * link the code of portions of this program with the OpenSSL library under
+ * certain conditions as described in each individual source file, and
+ * distribute linked combinations including the two.
+ *
+ * You must obey the GNU General Public License in all respects for all of the
+ * code used other than OpenSSL. If you modify file(s) with this exception, you
+ * may extend this exception to your version of the file(s), but you are not
+ * obligated to do so. If you do not wish to do so, delete this exception
+ * statement from your version. If you delete this exception statement from all
+ * source files in the program, then also delete it here.
+ *
+ */
+
+#ifndef XMPP_VCARD_FUNCS_H
+#define XMPP_VCARD_FUNCS_H
+
+#include "ui/win_types.h"
+#include "xmpp/vcard.h"
+
+vCard* vcard_new();
+void vcard_free(vCard* vcard);
+void vcard_free_full(vCard* vcard);
+
+gboolean vcard_parse(xmpp_stanza_t* vcard_xml, vCard* vcard);
+
+void vcard_print(xmpp_ctx_t* ctx, ProfWin* window, char* jid);
+void vcard_photo(xmpp_ctx_t* ctx, char* jid, char* filename, int index, gboolean open);
+
+void vcard_user_refresh(void);
+void vcard_user_save(void);
+void vcard_user_set_fullname(char* fullname);
+void vcard_user_set_name_family(char* family);
+void vcard_user_set_name_given(char* given);
+void vcard_user_set_name_middle(char* middle);
+void vcard_user_set_name_prefix(char* prefix);
+void vcard_user_set_name_suffix(char* suffix);
+
+void vcard_user_add_element(vcard_element_t* element);
+void vcard_user_remove_element(unsigned int index);
+vcard_element_t* vcard_user_get_element_index(unsigned int index);
+ProfWin* vcard_user_create_win();
+
+void vcard_user_free(void);
+#endif