/*
 * This file implements the contact list and basic operations on it.
 *
 * mICQ Copyright (C) © 2001,2002,2003 Rüdiger Kuhlmann
 *
 * mICQ 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; version 2 dated June, 1991.
 *
 * mICQ 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 package; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 * 02111-1307, USA.
 *
 * $Id$
 */

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/stat.h>
#include <sys/types.h>

#include "micq.h"
#include "contact.h"
#include "util_str.h"
#include "util_ui.h"     /* for Debug() and DEB_CONTACT */
#include "conv.h"        /* for meta data file recoding */
#include "util_io.h"     /* for UtilIOReadline() */
#include "util_extra.h"
#include "packet.h"      /* for capabilities */
#include "buildmark.h"   /* for versioning */
#include "preferences.h" /* for BASEDIR */

static ContactGroup **cnt_groups = NULL;
static int            cnt_count = 0;

#define MAX_ENTRIES 32

#define CONTACTGROUP_GLOBAL (*cnt_groups)

#define BUILD_MIRANDA  0xffffffffL
#define BUILD_STRICQ   0xffffff8fL
#define BUILD_YSM      0xffffffabL
#define BUILD_ARQ      0xffffff7fL
#define BUILD_VICQ     0x04031980L
#define BUILD_ALICQ    0xffffffbeL

#define BUILD_LICQ     0x7d000000L
#define BUILD_SSL      0x00800000L

#define BUILD_TRILLIAN_ID1  0x3b75ac09
#define BUILD_TRILLIAN_ID2  0x3bae70b6
#define BUILD_TRILLIAN_ID3  0x3b744adb

#define BUILD_LIBICQ2K_ID1  0x3aa773ee
#define BUILD_LIBICQ2K_ID2  0x3aa66380
#define BUILD_LIBICQ2K_ID3  0x3a877a42

#define BUILD_KXICQ_ID1     0x3b4c4c0c
#define BUILD_KXICQ_ID2     0
#define BUILD_KXICQ_ID3     0x3b7248ed

#define BUILD_KXICQ2_ID1    0x3aa773ee
#define BUILD_KXICQ2_ID2    0x3aa66380
#define BUILD_KXICQ2_ID3    0x3a877a42

/*
 * Initializes the contact group table.
 */
static void ContactGroupInit (void)
{
    if (!cnt_groups)
    {
        cnt_groups = calloc (cnt_count = 32, sizeof (ContactGroup *));
        cnt_groups[0] = calloc (1, sizeof (ContactGroup));
        cnt_groups[0]->used = 0;
    }
}

/*
 * Iterates through the contact groups.
 */
ContactGroup *ContactGroupIndex (int i)
{
    if (!cnt_groups)
        ContactGroupInit ();
    if (i >= 0 && i + 1 < cnt_count && cnt_groups[i + 1])
        return cnt_groups[i + 1];
    return NULL;
}

/*
 * Finds and/or creates a contact group.
 */
ContactGroup *ContactGroupFind (UWORD id, Connection *serv, const char *name, BOOL create)
{
    int i, j;
    
    if (!cnt_groups)
        ContactGroupInit ();
    for (i = 1; i < cnt_count; i++)
        if (    cnt_groups[i]
            && (!id   || cnt_groups[i]->id   == id)
            && (!serv || cnt_groups[i]->serv == serv)
            && (!name || !strcasecmp (cnt_groups[i]->name, name)))
        {
            return cnt_groups[i];
        }
    if (!create || !serv || !name)
        return NULL;
    for (i = 1; i < cnt_count; i++)
        if (!cnt_groups[i])
            break;
    if (i >= cnt_count - 1)
    {
        ContactGroup **ncgp = realloc (cnt_groups, sizeof (ContactGroup *) * (2 * cnt_count));
        if (!ncgp)
            return NULL;
        cnt_groups = ncgp;
        cnt_groups[i] = NULL;
        cnt_count *= 2;
    }
    cnt_groups[i + 1] = NULL;
    cnt_groups[i] = calloc (1, sizeof (ContactGroup));
    if (!cnt_groups[i])
        return NULL;
    Debug (DEB_CONTACT, "grpadd #%d %p %p", i, cnt_groups[i], serv);
    cnt_groups[i]->id = id;
    cnt_groups[i]->serv = serv;
    cnt_groups[i]->name = strdup (name ? name : "");
    cnt_groups[i]->more = NULL;
    cnt_groups[i]->used = 0;
    for (j = 0; j < MAX_ENTRIES; j++)
        cnt_groups[i]->contacts[j] = NULL;
    return cnt_groups[i];
}

/*
 * Returns the group id, if necessary create one
 */
UWORD ContactGroupID (ContactGroup *group)
{
    while (!group->id)
    {
        ContactGroup *cg;
        int i;

        group->id = rand() % 0x7fff;
        for (i = 0; (cg = ContactGroupIndex (i)); i++)
            if (cg->id == group->id && cg != group)
                group->id = 0;
    }
    return group->id;
}

/*
 * Count the number of contacts in this list.
 */
UDWORD ContactGroupCount (ContactGroup *group)
{
    UDWORD c = 0;
    while (group)
    {
        c += group->used;
        group = group->more;
    }
    return c;
}

/*
 * Remove a contact group.
 */
void ContactGroupD (ContactGroup *group)
{
    ContactGroup *tmp;
    int i;
    
    if (!cnt_groups)
        ContactGroupInit ();
    for (i = 1; i < cnt_count && cnt_groups[i]; i++)
        if (cnt_groups[i] == group)
        {
            Debug (DEB_CONTACT, "grprem #%d %p", i, group);
            memmove (cnt_groups + i, cnt_groups + i + 1, (cnt_count - i - 1) * sizeof (ContactGroup *));
            s_repl (&group->name, NULL);
            while (group)
            {
                tmp = group->more;
                free (group);
                group = tmp;
            }
            break;
        }
}

/*
 * Iterate through contacts on a contact group
 */
Contact *ContactIndex (ContactGroup *group, int i)
{
    static ContactGroup *old = NULL, *oldpos = NULL;
    static int oldoff = 0;
    ContactGroup *orig;
    int j = 0;
    
    if (!group)
    {
        if (!cnt_groups)
            ContactGroupInit ();
        group = CONTACTGROUP_GLOBAL;
    }
    orig = group;
    if (old == group && oldoff <= i)
    {
        group = oldpos;
        i -= oldoff;
        j = oldoff;
    }
    while (group && group->used <= i)
    {
        i -= group->used;
        j += group->used;
        group = group->more;
    }
    if (!group)
        return NULL;
    old = orig;
    oldpos = group;
    oldoff = j;
    return group->contacts[i];
}

/*
 * Finds a contact on a contact group, possibly creating it
 */
Contact *ContactFind (ContactGroup *group, UWORD id, UDWORD uin, const char *nick, BOOL create)
{
    ContactGroup *tmp, *fr = NULL;
    Contact *cont, *alias = NULL;
    int i;
    
    if (!group && !cnt_groups)
        ContactGroupInit ();

    for (tmp = group ? group : CONTACTGROUP_GLOBAL; tmp; tmp = tmp->more)
    {
        if (tmp->used < MAX_ENTRIES)
            fr = tmp;
        for (i = 0; i < tmp->used; i++)
            for (cont = tmp->contacts[i]; cont; cont = cont->alias)
                if ((!uin  || uin == cont->uin) &&
                    (!nick || !strcasecmp (nick, cont->nick)) &&
                    (!id   || id == cont->id))
                {
                    return cont;
                }
        if (!tmp->more)
        {
            fr = tmp;
            break;
        }
    }
    if (!create)
        return NULL;
    if (nick && (alias = ContactFind (group, id, uin, NULL, 0))
             && alias->flags & CONT_TEMPORARY)
    {
        s_repl (&alias->nick, nick);
        alias->flags &= ~CONT_TEMPORARY;
        Debug (DEB_CONTACT, "new   #%d %ld '%s' %p in %p was temporary", id, uin, nick, alias, group);
        return alias;
    }
    cont = calloc (1, sizeof (Contact));
    if (!cont)
        return NULL;
    cont->uin = uin;
    cont->id = id;
    if (!nick)
    {
        cont->flags |= CONT_TEMPORARY;
        s_repl (&cont->nick, s_sprintf ("%ld", uin));
    }
    else
        s_repl (&cont->nick, nick);
    cont->status = STATUS_OFFLINE;
    cont->seen_time = -1L;
    cont->seen_micq_time = -1L;
    if (alias)
    {
        Debug (DEB_CONTACT, "alias #%d %ld '%s' %p in %p for #%d '%s'",
               id, uin, cont->nick, cont, group, alias->id, alias->nick);
        while (alias->alias)
            alias = alias->alias;
        alias->alias = cont;
        cont->flags |= CONT_ALIAS;
        return cont;
    }
    if (fr->used == MAX_ENTRIES)
        fr = fr->more = calloc (1, sizeof (ContactGroup));
    if (!fr)
        return NULL;
    fr->contacts[fr->used++] = cont;
    if (nick)
        Debug (DEB_CONTACT, "new   #%d %ld '%s' %p in %p", id, uin, nick, cont, group);
    else
        Debug (DEB_CONTACT, "temp  #%d %ld '' %p in %p", id, uin, cont, group);
    if (group)
        ContactAdd (NULL, cont);
    return cont;
}

/*
 * Adds a contact to a contact group.
 */
BOOL ContactAdd (ContactGroup *group, Contact *cont)
{
    ContactGroup *orig = group;
    if (!group)
    {
        if (!cnt_groups)
            ContactGroupInit ();
        group = CONTACTGROUP_GLOBAL;
    }
    if (!group || !cont || cont->flags & CONT_ALIAS)
        return FALSE;
    while (group->used == MAX_ENTRIES && group->more)
        group = group->more;
    if (group->used == MAX_ENTRIES)
    {
        group->more = calloc (1, sizeof (ContactGroup));
        if (!group->more)
            return FALSE;
        group = group->more;
    }
    group->contacts[group->used++] = cont;
    Debug (DEB_CONTACT, "add   #%d %ld '%s' %p to %p", cont->id, cont->uin, cont->nick, cont, orig);
    return TRUE;
}

/*
 * Removes a contact from a contact group.
 */
BOOL ContactRem (ContactGroup *group, Contact *cont)
{
    ContactGroup *orig = group;
    Contact *alias;
    int i;

    if (!group)
    {
        if (!cnt_groups)
            ContactGroupInit ();
        group = CONTACTGROUP_GLOBAL;
    }
    if (!group || !cont)
        return FALSE;
    while (group)
    {
        for (i = 0; i < group->used; i++)
            for (alias = group->contacts[i]; alias; alias = alias->alias)
                if (alias == cont)
                {
                    group->contacts[i] = group->contacts[--group->used];
                    group->contacts[group->used] = 0;
                    Debug (DEB_CONTACT, "rem   #%d %ld '%s' %p to %p", cont->id, cont->uin, cont->nick, cont, orig);
                    return TRUE;
                }
        group = group->more;
    }
    return FALSE;
}

/*
 * Removes an alias from a contact.
 */
BOOL ContactRemAlias (ContactGroup *group, Contact *alias)
{
    Contact *cont, *tmp;

    if (!group)
    {
        if (!cnt_groups)
            ContactGroupInit ();
        group = CONTACTGROUP_GLOBAL;
    }
    if (!group || !alias)
        return FALSE;
    if (alias->alias)
    {
        Debug (DEB_CONTACT, "remal #%d %ld '%s' %p to %p", alias->id, alias->uin, alias->nick, alias, group);
        tmp = alias->alias->alias;
        s_repl (&alias->nick, alias->alias->nick);
        s_repl (&alias->alias->nick, NULL);
        free (alias->alias);
        alias->alias = tmp;
        return TRUE;
    }
    cont = ContactFind (group, 0, alias->uin, NULL, 0);
    if (!cont)
        return FALSE;
    if (cont == alias)
    {
        s_repl (&alias->nick, s_sprintf ("%ld", alias->uin));
        alias->id = 0;
        alias->flags = CONT_TEMPORARY;
        return ContactRem (group, alias);
    }
    while (cont->alias != alias)
        if (!(cont = cont->alias))
            return FALSE;
    Debug (DEB_CONTACT, "remal #%d %ld '%s' %p to %p", alias->id, alias->uin, alias->nick, cont, group);
    s_repl (&alias->nick, NULL);
    free (alias);
    cont->alias = NULL;
    return TRUE;
}

/*
 * Returns the contact id, if necessary create one
 */
UWORD ContactID (Contact *cont)
{
    while (!cont->id)
    {
        Contact *c;
        int i;

        cont->id = rand() % 0x7fff;
        for (i = 0; (c = ContactIndex (NULL, i)); i++)
            if (c->id == cont->id && c != cont)
                cont->id = 0;
    }
    return cont->id;
}

/*
 * Save the contact's meta data to disc.
 */
BOOL ContactMetaSave (Contact *cont)
{
    MetaEmail *email;
    Contact *alias;
    Extra *extra;
    FILE *f;
    
    if (!(f = fopen (s_sprintf ("%scontacts" _OS_PATHSEPSTR "icq-%ld", PrefUserDir (prG), cont->uin), "w")))
    {
        mkdir (s_sprintf ("%scontacts", PrefUserDir (prG)), 0700);
        if (!(f = fopen (s_sprintf ("%scontacts" _OS_PATHSEPSTR "icq-%ld", PrefUserDir (prG), cont->uin), "w")))
            return FALSE;
    }
    fprintf (f, "#\n# Meta data for contact %ld.\n#\n\n", cont->uin);
#ifdef ENABLE_UTF8
    fprintf (f, "encoding UTF-8\n"); 
#else
    fprintf (f, "encoding %s\n", s_quote (ConvEncName (prG->enc_loc)));
#endif
    fprintf (f, "format 1\n\n");
    fprintf (f, "b_uin      %ld\n", cont->uin);
    fprintf (f, "b_id       %d\n", cont->id);
    fprintf (f, "b_nick     %s\n", s_quote (cont->nick));
    for (alias = cont->alias; alias; alias = alias->alias)
        fprintf (f, "b_alias    %s\n", s_quote (alias->nick));
    fprintf (f, "b_flags    %ld\n", cont->flags);
    fprintf (f, "b_enc      %s\n", s_quote (ConvEncName (cont->encoding)));
    fprintf (f, "b_seen     %ld\n", (long)cont->seen_time);
    fprintf (f, "b_micq     %ld\n", (long)cont->seen_micq_time);
    if (cont->meta_about)
        fprintf (f, "b_about    %s\n", s_quote (cont->meta_about));
    if (cont->meta_general)
    {
        MetaGeneral *mg = cont->meta_general;
        fprintf (f, "g_nick     %s\n", s_quote (mg->nick));
        fprintf (f, "g_first    %s\n", s_quote (mg->first));
        fprintf (f, "g_last     %s\n", s_quote (mg->last));
        fprintf (f, "g_email    %s\n", s_quote (mg->email));
        fprintf (f, "g_city     %s\n", s_quote (mg->city));
        fprintf (f, "g_state    %s\n", s_quote (mg->state));
        fprintf (f, "g_phone    %s\n", s_quote (mg->phone));
        fprintf (f, "g_fax      %s\n", s_quote (mg->fax));
        fprintf (f, "g_zip      %s\n", s_quote (mg->zip));
        fprintf (f, "g_street   %s\n", s_quote (mg->street));
        fprintf (f, "g_cell     %s\n", s_quote (mg->cellular));
        fprintf (f, "g_country  %u\n", mg->country);
        fprintf (f, "g_tz       %d\n", mg->tz);
        fprintf (f, "g_flags    %u\n", (mg->auth ? 1 : 0)
                                    + (mg->webaware ? 2 : 0)
                                    + (mg->hideip ? 4 : 0));
    }
    if (cont->meta_work)
    {
        MetaWork *mw = cont->meta_work;
        fprintf (f, "w_city     %s\n", s_quote (mw->wcity));
        fprintf (f, "w_state    %s\n", s_quote (mw->wstate));
        fprintf (f, "w_phone    %s\n", s_quote (mw->wphone));
        fprintf (f, "w_fax      %s\n", s_quote (mw->wfax));
        fprintf (f, "w_address  %s\n", s_quote (mw->waddress));
        fprintf (f, "w_zip      %s\n", s_quote (mw->wzip));
        fprintf (f, "w_company  %s\n", s_quote (mw->wcompany));
        fprintf (f, "w_depart   %s\n", s_quote (mw->wdepart));
        fprintf (f, "w_position %s\n", s_quote (mw->wposition));
        fprintf (f, "w_homepage %s\n", s_quote (mw->whomepage));
        fprintf (f, "w_country  %u\n", mw->wcountry);
        fprintf (f, "w_occup    %u\n", mw->woccupation);
    }
    if (cont->meta_more)
    {
        MetaMore *mm = cont->meta_more;
        fprintf (f, "m_homepage %s\n", s_quote (mm->homepage));
        fprintf (f, "m_age      %u\n", mm->age);
        fprintf (f, "m_year     %u\n", mm->year);
        fprintf (f, "m_unknown  %u\n", mm->unknown);
        fprintf (f, "m_sex      %u\n", mm->sex);
        fprintf (f, "m_month    %u\n", mm->month);
        fprintf (f, "m_day      %u\n", mm->day);
        fprintf (f, "m_lang1    %u\n", mm->lang1);
        fprintf (f, "m_lang2    %u\n", mm->lang2);
        fprintf (f, "m_lang3    %u\n", mm->lang3);
    }
    for (email = cont->meta_email; email; email = email->meta_email)
        if (email->email)
            fprintf (f, "email %u %s\n", email->auth, s_quote (email->email));
    if (cont->meta_obsolete)
        fprintf (f, "obsolete %u %u %u %s\n", cont->meta_obsolete->given,
                 cont->meta_obsolete->empty, cont->meta_obsolete->unknown,
                 s_quote (cont->meta_obsolete->description));
    for (extra = cont->meta_interest; extra; extra = extra->more)
        if (extra->text)
            fprintf (f, "interest %lu %s\n", extra->data, s_quote (extra->text));
    for (extra = cont->meta_background; extra; extra = extra->more)
        if (extra->text)
            fprintf (f, "background %lu %s\n", extra->data, s_quote (extra->text));
    for (extra = cont->meta_affiliation; extra; extra = extra->more)
        if (extra->text)
            fprintf (f, "affiliation %lu %s\n", extra->data, s_quote (extra->text));
    if (fclose (f))
        return FALSE;
    cont->updated |= UPF_DISC;
    return TRUE;
}

/*
 *
 */
BOOL ContactMetaLoad (Contact *cont)
{
    MetaEmail *email;
    UBYTE enc;
    Extra *extra;
    FILE *f;
    char *line, *cmd;
    UDWORD i;
    
    if (!(f = fopen (s_sprintf ("%scontacts" _OS_PATHSEPSTR "icq-%ld", PrefUserDir (prG), cont->uin), "r")))
        return FALSE;

    cont->updated = 0;
    ExtraD (cont->meta_interest);
    ExtraD (cont->meta_background);
    ExtraD (cont->meta_affiliation);
    while ((email = cont->meta_email))
    {
        s_free (email->email);
        cont->meta_email = email->meta_email;
        free (email);
    }
    
    enc = 0;
    while ((line = UtilIOReadline (f)))
    {
        if (!*line || (*line == '#'))
            continue;
        if (!s_parse (&line, &cmd))
             continue;
        if (!strcmp (cmd, "encoding"))
        {
            if (!s_parse (&line, &cmd))
                return FALSE;
            enc = ConvEnc (cmd);
#ifdef ENABLE_UTF8
            if (enc & ENC_AUTO && (enc ^ prG->enc_loc) & ~ENC_AUTO)
                return FALSE;
#else
            if ((enc ^ prG->enc_loc) & ~ENC_AUTO)
                return FALSE;
#endif
            enc &= ~ENC_AUTO;
        }
        else if (!enc)
            return FALSE;
        else if (!strncmp (cmd, "b_", 2))
        {
            if      (!strcmp (cmd, "b_uin"))   { if (s_parseint (&line, &i) && i != cont->uin) return FALSE; }
            else if (!strcmp (cmd, "b_id"))    { if (s_parseint (&line, &i)) cont->id = i; }
            else if (!strcmp (cmd, "b_nick"))  { s_parse (&line, &cmd); /* ignore for now */ }
            else if (!strcmp (cmd, "b_alias")) { s_parse (&line, &cmd); /* ignore for now */ }
            else if (!strcmp (cmd, "b_enc"))   { if (s_parse (&line, &cmd))  cont->encoding = ConvEnc (cmd) & ~ENC_AUTO; }
            else if (!strcmp (cmd, "b_flags")) { if (s_parseint (&line, &i)) cont->flags = ((cont->flags & ~CONT_ISEDITED) | (i & CONT_ISEDITED)); }
            else if (!strcmp (cmd, "b_about")) { if (s_parse (&line, &cmd))  s_repl (&cont->meta_about, ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "b_seen"))  { if (s_parseint (&line, &i)) cont->seen_time = i; }
            else if (!strcmp (cmd, "b_micq"))  { if (s_parseint (&line, &i)) cont->seen_micq_time = i; }
        }
        else if (!strncmp (cmd, "g_", 2))
        {
            MetaGeneral *mg = CONTACT_GENERAL (cont);
            if      (!strcmp (cmd, "g_nick"))    { if (s_parse (&line, &cmd))  s_repl (&mg->first,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_first"))   { if (s_parse (&line, &cmd))  s_repl (&mg->first,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_last"))    { if (s_parse (&line, &cmd))  s_repl (&mg->last,     ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_email"))   { if (s_parse (&line, &cmd))  s_repl (&mg->email,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_city"))    { if (s_parse (&line, &cmd))  s_repl (&mg->city,     ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_state"))   { if (s_parse (&line, &cmd))  s_repl (&mg->state,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_phone"))   { if (s_parse (&line, &cmd))  s_repl (&mg->phone,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_fax"))     { if (s_parse (&line, &cmd))  s_repl (&mg->fax,      ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_zip"))     { if (s_parse (&line, &cmd))  s_repl (&mg->zip,      ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_street"))  { if (s_parse (&line, &cmd))  s_repl (&mg->street,   ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_cell"))    { if (s_parse (&line, &cmd))  s_repl (&mg->cellular, ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "g_country")) { if (s_parseint (&line, &i)) mg->country = i; }
            else if (!strcmp (cmd, "g_tz"))      { if (s_parseint (&line, &i)) mg->tz = i; }
            else if (!strcmp (cmd, "g_flags"))   { if (s_parseint (&line, &i))
            {
                mg->auth     = i & 1 ? 1 : 0;
                mg->webaware = i & 2 ? 1 : 0;
                mg->hideip   = i & 4 ? 1 : 0;
            }}
        }
        else if (!strncmp (cmd, "w_", 2))
        {
            MetaWork *mw = CONTACT_WORK (cont);
            if      (!strcmp (cmd, "w_city"))     { if (s_parse (&line, &cmd))  s_repl (&mw->wcity,     ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_state"))    { if (s_parse (&line, &cmd))  s_repl (&mw->wstate,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_phone"))    { if (s_parse (&line, &cmd))  s_repl (&mw->wphone,    ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_fax"))      { if (s_parse (&line, &cmd))  s_repl (&mw->wfax,      ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_address"))  { if (s_parse (&line, &cmd))  s_repl (&mw->waddress,  ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_zip"))      { if (s_parse (&line, &cmd))  s_repl (&mw->wzip,      ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_company"))  { if (s_parse (&line, &cmd))  s_repl (&mw->wcompany,  ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_depart"))   { if (s_parse (&line, &cmd))  s_repl (&mw->wdepart,   ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_position")) { if (s_parse (&line, &cmd))  s_repl (&mw->wposition, ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_homepage")) { if (s_parse (&line, &cmd))  s_repl (&mw->whomepage, ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "w_country"))  { if (s_parseint (&line, &i)) mw->wcountry = i; }
            else if (!strcmp (cmd, "w_occup"))    { if (s_parseint (&line, &i)) mw->woccupation = i; }
        }
        else if (!strncmp (cmd, "m_", 2))
        {
            MetaMore *mm = CONTACT_MORE (cont);
            if      (!strcmp (cmd, "m_homepage")) { if (s_parse (&line, &cmd))  s_repl (&mm->homepage, ConvToUTF8 (cmd, enc, -1, 0)); }
            else if (!strcmp (cmd, "m_age"))      { if (s_parseint (&line, &i)) mm->age = i; }
            else if (!strcmp (cmd, "m_year"))     { if (s_parseint (&line, &i)) mm->year = i; }
            else if (!strcmp (cmd, "m_unknown"))  { if (s_parseint (&line, &i)) mm->unknown = i; }
            else if (!strcmp (cmd, "m_sex"))      { if (s_parseint (&line, &i)) mm->sex = i; }
            else if (!strcmp (cmd, "m_month"))    { if (s_parseint (&line, &i)) mm->month = i; }
            else if (!strcmp (cmd, "m_day"))      { if (s_parseint (&line, &i)) mm->day = i; }
            else if (!strcmp (cmd, "m_lang1"))    { if (s_parseint (&line, &i)) mm->lang1 = i; }
            else if (!strcmp (cmd, "m_lang2"))    { if (s_parseint (&line, &i)) mm->lang2 = i; }
            else if (!strcmp (cmd, "m_lang3"))    { if (s_parseint (&line, &i)) mm->lang3 = i; }
        }
        else if (!strcmp (cmd, "email"))
        {
            if (s_parseint (&line, &i) && s_parse (&line, &cmd))
            {
                email = cont->meta_email;
                cont->meta_email = calloc (1, sizeof (MetaEmail));
                cont->meta_email->meta_email = email;
                cont->meta_email->auth = i;
                cont->meta_email->email = strdup (cmd);
            }
        }
        else if (!strcmp (cmd, "obsolete"))
        {
            MetaObsolete *mo = CONTACT_OBSOLETE (cont);
            if (s_parseint (&line, &i)) mo->given = i;
            if (s_parseint (&line, &i)) mo->empty = i;
            if (s_parseint (&line, &i)) mo->unknown = i;
            if (s_parse (&line, &cmd)) s_repl (&mo->description, ConvToUTF8 (cmd, enc, -1, 0));
        }
        else if (!strcmp (cmd, "interest"))
        {
            if (s_parseint (&line, &i) && s_parse (&line, &cmd))
            {
                extra = cont->meta_interest;
                cont->meta_interest = ExtraSet (NULL, 0, i, ConvToUTF8 (cmd, enc, -1, 0));
                cont->meta_interest->more = extra;
            }
        }
        else if (!strcmp (cmd, "background"))
        {
            if (s_parseint (&line, &i) && s_parse (&line, &cmd))
            {
                extra = cont->meta_background;
                cont->meta_interest = ExtraSet (NULL, 0, i, ConvToUTF8 (cmd, enc, -1, 0));
                cont->meta_interest->more = extra;
            }
        }
        else if (!strcmp (cmd, "affiliation"))
        {
            if (s_parseint (&line, &i) && s_parse (&line, &cmd))
            {
                extra = cont->meta_affiliation;
                cont->meta_interest = ExtraSet (NULL, 0, i, ConvToUTF8 (cmd, enc, -1, 0));
                cont->meta_interest->more = extra;
            }
        }
        else if (!strcmp (cmd, "format"))
        {
            s_parseint (&line, &i); /* ignored for now */
        }
#ifdef WIP
        if (s_parse (&line, &cmd))
            M_printf ("FIXMEWIP: Ignored trailing stuff: '%s' from '%s'.\n", ConvToUTF8 (cmd, enc, -1, 0), line);
#endif
    }
    if (fclose (f))
        return FALSE;
    cont->updated |= UPF_DISC;
    return TRUE;
}


/*
 * Set a capability for the contact.
 */
void ContactSetCap (Contact *cont, Cap *cap)
{
    if (!cap->id)
        return;
    if (cap->id == CAP_SIM && cap->var)
    {
        UBYTE ver;
        
        ver = cap->var[15];
        if (ver >> 6) /* SchlIMm */
        {
            cont->v1 = (ver >> 6) - 1;
            cont->v2 = ver & 0x1f;
            cont->v3 = cont->v4 = 0;
            if (ver <= 0x48)
                cont->caps &= ~(1 << CAP_UTF8);
        }
        else /* KOtzPEKE */
        {
            cont->v1 = 0;
            cont->v3 = ver & 0x1f;
            cont->v2 = cont->v4 = 0;
            if (ver <= 1)
                cont->caps &= ~(1 << CAP_UTF8);
        }
    }
    else if (cap->id == CAP_MICQ && cap->var)
    {
        cont->v1 = cap->var[12];
        cont->v2 = cap->var[13];
        cont->v3 = cap->var[14];
        cont->v4 = cap->var[15];
    }
    cont->caps |= 1 << cap->id;
}

/*
 * Guess the contacts client from time stamps.
 */
void ContactSetVersion (Contact *cont)
{
    char buf[100];
    char *new = NULL, *tail = NULL;
    unsigned int ver;
    ContactDC *dc;
    
    if (!(dc = cont->dc))
    {
        s_repl (&cont->version, NULL);
        return;
    }
    
    ver = dc->id1 & 0xffff;
    
    if (!HAS_CAP (cont->caps, CAP_SIM) && !HAS_CAP (cont->caps, CAP_MICQ))
        cont->v1 = cont->v2 = cont->v3 = cont->v4 = 0;

    if ((dc->id1 & 0xff7f0000) == BUILD_LICQ && ver > 1000)
    {
        new = "licq";
        if (dc->id1 & BUILD_SSL)
            tail = "/SSL";
        cont->v1 = ver / 1000;
        cont->v2 = (ver / 10) % 100;
        cont->v3 = ver % 10;
        cont->v4 = 0;
    }
#ifdef WIP
    else if ((dc->id1 & 0xff7f0000) == BUILD_MICQ || (dc->id1 & 0xff7f0000) == BUILD_LICQ)
    {
        new = "mICQ";
        cont->v1 = ver / 10000;
        cont->v2 = (ver / 100) % 100;
        cont->v3 = (ver / 10) % 10;
        cont->v4 = ver % 10;
        if (ver >= 489 && dc->id2)
            dc->id1 = BUILD_MICQ;
    }
#endif

    else if ((dc->id1 & 0xffff0000) == 0xffff0000)
    {
        cont->v1 = (dc->id2 & 0x7f000000) >> 24;
        cont->v2 = (dc->id2 &   0xff0000) >> 16;
        cont->v3 = (dc->id2 &     0xff00) >> 8;
        cont->v4 =  dc->id2 &       0xff;
        switch ((long)dc->id1)
        {
            case BUILD_MIRANDA:
                if (dc->id2 <= 0x00010202 && dc->version >= 8)
                    dc->version = 7;
                new = "Miranda";
                if (dc->id2 & 0x80000000)
                    tail = " cvs";
                break;
            case BUILD_STRICQ:
                new = "StrICQ";
                break;
            case BUILD_MICQ:
                cont->seen_micq_time = time (NULL);
                new = "mICQ";
                if (dc->id2 & 0x80000000)
                    tail = " cvs";
                break;
            case BUILD_YSM:
                new = "YSM";
                if ((cont->v1 | cont->v2 | cont->v3 | cont->v4) & 0x80)
                    cont->v1 = cont->v2 = cont->v3 = cont->v4 = 0;
                break;
            case BUILD_ARQ:
                new = "&RQ";
                break;
            case BUILD_ALICQ:
                new = "alicq";
                break;
            default:
                snprintf (buf, sizeof (buf), "%08lx", (long)dc->id1);
                new = buf;
        }
    }
    else if (dc->id1 == BUILD_VICQ)
    {
        cont->v1 = 0;
        cont->v2 = 43;
        cont->v3 =  dc->id2 &     0xffff;
        cont->v4 = (dc->id2 & 0x7fff0000) >> 16;
        new = "vICQ";
    }
    else if (dc->id1 == BUILD_TRILLIAN_ID1 &&
             dc->id2 == BUILD_TRILLIAN_ID2 &&
             dc->id3 == BUILD_TRILLIAN_ID3)
    {
        new = "Trillian";
    }
    else if (dc->id1 == BUILD_LIBICQ2K_ID1 &&
             dc->id2 == BUILD_LIBICQ2K_ID2 &&
             dc->id3 == BUILD_LIBICQ2K_ID3)
    {
        new = "libicq2000";
    }
    else if (dc->id1 == BUILD_KXICQ_ID1 &&
             dc->id2 == BUILD_KXICQ_ID2 &&
             dc->id3 == BUILD_KXICQ_ID3)
    {
        new = "KXicq2";
    }
    else if (dc->id1 == BUILD_KXICQ2_ID1 &&
             dc->id2 == BUILD_KXICQ2_ID2 &&
             dc->id3 == BUILD_KXICQ2_ID3)
    {
        new = "KXicq2 > 0.7.6";
    }
    else if (HAS_CAP (cont->caps, CAP_TRILL_CRYPT | CAP_TRILL_2))
        new = "Trillian";
    else if (HAS_CAP (cont->caps, CAP_LICQ))
        new = "licq";
    else if (HAS_CAP (cont->caps, CAP_SIM))
    {
        if (cont->v1 || cont->v2)
            new = "SIM";
        else
            new = "Kopete";
    }
    else if (HAS_CAP (cont->caps, CAP_MICQ))
        new = "mICQ";
    else if (dc->id1 == dc->id2 && dc->id2 == dc->id3 && dc->id1 == 0xffffffff)
        new = "vICQ/GAIM(?)";
    else if (dc->version == 7 && HAS_CAP (cont->caps, CAP_IS_WEB))
        new = "ICQ2go";
    else if (dc->version == 9 && HAS_CAP (cont->caps, CAP_IS_WEB))
        new = "ICQ Lite";
    else if (HAS_CAP (cont->caps, CAP_STR_2002) && HAS_CAP (cont->caps, CAP_UTF8))
        new = "ICQ 2002";
    else if (HAS_CAP (cont->caps, CAP_STR_2001) && HAS_CAP (cont->caps, CAP_IS_2001))
        new = "ICQ 2001";
    else if (HAS_CAP (cont->caps, CAP_MACICQ))
        new = "ICQ for Mac";
    else if (HAS_CAP (cont->caps, CAP_KXICQ))
        new = "KXicq2";
    else if (dc->version == 8 && HAS_CAP (cont->caps, CAP_UTF8))
        new = "ICQ 2002 (?)";
    else if (dc->version == 8 && HAS_CAP (cont->caps, CAP_IS_2001))
        new = "ICQ 2001 (?)";
    else if (HAS_CAP (cont->caps, CAP_AIM_CHAT))
        new = "AIM(?)";
    else if (dc->version == 7 && !HAS_CAP (cont->caps, CAP_RTFMSGS))
        new = "ICQ 2000 (?)";
    else if (!dc->version && HAS_CAP (cont->caps, CAP_UTF8))
        new = "ICQ 2002 (?)";
    else if (!dc->version && HAS_CAP (cont->caps, CAP_IS_2001))
        new = "ICQ 2001 (?)";
    else if (HAS_CAP (cont->caps, CAP_AIM_CHAT))
        new = "AIM(?)";
    else if (!dc->version && !HAS_CAP (cont->caps, CAP_RTFMSGS))
        new = "ICQ 2000 (?)";
    
    if (new)
    {
        if (new != buf)
            strcpy (buf, new);
        if (cont->v4)
            snprintf (buf + strlen (buf), sizeof(buf) - strlen (buf),
                      " %d.%d.%d.%d", cont->v1, cont->v2, cont->v3, cont->v4);
        else if (cont->v3)
            snprintf (buf + strlen (buf), sizeof(buf) - strlen (buf),
                      " %d.%d.%d", cont->v1, cont->v2, cont->v3);
        else if (cont->v1 || cont->v2)
            snprintf (buf + strlen (buf), sizeof(buf) - strlen (buf),
                      " %d.%d", cont->v1, cont->v2);
        if (tail)
            snprintf (buf + strlen (buf), sizeof(buf) - strlen (buf),
                      "%s", tail);
    }
    else
        buf[0] = '\0';

    s_repl (&cont->version, strlen (buf) ? buf : NULL);
}