HGKeeper

* purple

* Purple is the legal property of its developers, whose names are too numerous

* to list here. Please refer to the COPYRIGHT file distributed with this

* source distribution.

* This program is free software; you can redistribute it and/or modify

* it under the terms of the GNU General Public License as published by

* the Free Software Foundation; either version 2 of the License, or

* (at your option) any later version.

* This program is distributed in the hope that it will be useful,

* but WITHOUT ANY WARRANTY; without even the implied warranty of

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

* GNU General Public License for more details.

* You should have received a copy of the GNU General Public License

* along with this program; if not, write to the Free Software

* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA

#include "internal.h"

#include "conversation.h"

#include "debug.h"

#include "network.h"

#include "notify.h"

#include "prpl.h"

#include "request.h"

#include "util.h"

/**************************************************************************/

/** @name Attention Type API */

/**************************************************************************/

PurpleAttentionType *

purple_attention_type_new(const char *ulname, const char *name,

const char *inc_desc, const char *out_desc)

{

PurpleAttentionType *attn = g_new0(PurpleAttentionType, 1);

purple_attention_type_set_name(attn, name);

purple_attention_type_set_incoming_desc(attn, inc_desc);

purple_attention_type_set_outgoing_desc(attn, out_desc);

purple_attention_type_set_unlocalized_name(attn, ulname);

return attn;

}

void

purple_attention_type_set_name(PurpleAttentionType *type, const char *name)

{

g_return_if_fail(type != NULL);

type->name = name;

}

void

purple_attention_type_set_incoming_desc(PurpleAttentionType *type, const char *desc)

{

g_return_if_fail(type != NULL);

type->incoming_description = desc;

}

void

purple_attention_type_set_outgoing_desc(PurpleAttentionType *type, const char *desc)

{

g_return_if_fail(type != NULL);

type->outgoing_description = desc;

}

void

purple_attention_type_set_icon_name(PurpleAttentionType *type, const char *name)

{

g_return_if_fail(type != NULL);

type->icon_name = name;

}

void

purple_attention_type_set_unlocalized_name(PurpleAttentionType *type, const char *ulname)

{

g_return_if_fail(type != NULL);

type->unlocalized_name = ulname;

}

const char *

purple_attention_type_get_name(const PurpleAttentionType *type)

{

g_return_val_if_fail(type != NULL, NULL);

return type->name;

}

const char *

purple_attention_type_get_incoming_desc(const PurpleAttentionType *type)

{

g_return_val_if_fail(type != NULL, NULL);

return type->incoming_description;

}

const char *

purple_attention_type_get_outgoing_desc(const PurpleAttentionType *type)

{

g_return_val_if_fail(type != NULL, NULL);

return type->outgoing_description;

}

const char *

purple_attention_type_get_icon_name(const PurpleAttentionType *type)

{

g_return_val_if_fail(type != NULL, NULL);

if(type->icon_name == NULL || *(type->icon_name) == '\0')

return NULL;

return type->icon_name;

}

const char *

purple_attention_type_get_unlocalized_name(const PurpleAttentionType *type)

{

g_return_val_if_fail(type != NULL, NULL);

return type->unlocalized_name;

}

/**************************************************************************/

/** @name Protocol Plugin API */

/**************************************************************************/

void

purple_prpl_got_account_idle(PurpleAccount *account, gboolean idle,

time_t idle_time)

{

g_return_if_fail(account != NULL);

g_return_if_fail(purple_account_is_connected(account));

purple_presence_set_idle(purple_account_get_presence(account),

idle, idle_time);

}

void

purple_prpl_got_account_login_time(PurpleAccount *account, time_t login_time)

{

PurplePresence *presence;

g_return_if_fail(account != NULL);

g_return_if_fail(purple_account_is_connected(account));

if (login_time == 0)

login_time = time(NULL);

presence = purple_account_get_presence(account);

purple_presence_set_login_time(presence, login_time);

}

void

purple_prpl_got_account_status(PurpleAccount *account, const char *status_id, ...)

{

PurplePresence *presence;

PurpleStatus *status;

va_list args;

g_return_if_fail(account != NULL);

g_return_if_fail(status_id != NULL);

g_return_if_fail(purple_account_is_connected(account));

presence = purple_account_get_presence(account);

status = purple_presence_get_status(presence, status_id);

g_return_if_fail(status != NULL);

va_start(args, status_id);

purple_status_set_active_with_attrs(status, TRUE, args);

va_end(args);

}

void

purple_prpl_got_account_actions(PurpleAccount *account)

{

g_return_if_fail(account != NULL);

g_return_if_fail(purple_account_is_connected(account));

purple_signal_emit(purple_accounts_get_handle(), "account-actions-changed",

account);

}

void

purple_prpl_got_user_idle(PurpleAccount *account, const char *name,

gboolean idle, time_t idle_time)

{

PurplePresence *presence;

GSList *list;

g_return_if_fail(account != NULL);

g_return_if_fail(name != NULL);

g_return_if_fail(purple_account_is_connected(account) || purple_account_is_connecting(account));

if ((list = purple_find_buddies(account, name)) == NULL)

return;

while (list) {

presence = purple_buddy_get_presence(list->data);

list = g_slist_delete_link(list, list);

purple_presence_set_idle(presence, idle, idle_time);

}

void

purple_prpl_got_user_login_time(PurpleAccount *account, const char *name,

time_t login_time)

{

GSList *list;

PurplePresence *presence;

g_return_if_fail(account != NULL);

g_return_if_fail(name != NULL);

if ((list = purple_find_buddies(account, name)) == NULL)

return;

if (login_time == 0)

login_time = time(NULL);

while (list) {

PurpleBuddy *buddy = list->data;

presence = purple_buddy_get_presence(buddy);

list = g_slist_delete_link(list, list);

if (purple_presence_get_login_time(presence) != login_time)

{

purple_presence_set_login_time(presence, login_time);

purple_signal_emit(purple_blist_get_handle(), "buddy-got-login-time", buddy);

}

void

purple_prpl_got_user_status(PurpleAccount *account, const char *name,

const char *status_id, ...)

{

GSList *list, *l;

PurpleBuddy *buddy;

PurplePresence *presence;

PurpleStatus *status;

PurpleStatus *old_status;

va_list args;

g_return_if_fail(account != NULL);

g_return_if_fail(name != NULL);

g_return_if_fail(status_id != NULL);

g_return_if_fail(purple_account_is_connected(account) || purple_account_is_connecting(account));

if((list = purple_find_buddies(account, name)) == NULL)

return;

for(l = list; l != NULL; l = l->next) {

buddy = l->data;

presence = purple_buddy_get_presence(buddy);

status = purple_presence_get_status(presence, status_id);

if(NULL == status)

* TODO: This should never happen, right? We should call

* g_warning() or something.

continue;

old_status = purple_presence_get_active_status(presence);

va_start(args, status_id);

purple_status_set_active_with_attrs(status, TRUE, args);

va_end(args);

purple_blist_update_buddy_status(buddy, old_status);

}

g_slist_free(list);

/* The buddy is no longer online, they are therefore by definition not

* still typing to us. */

if (!purple_status_is_online(status)) {

serv_got_typing_stopped(purple_account_get_connection(account), name);

purple_prpl_got_media_caps(account, name);

}

void purple_prpl_got_user_status_deactive(PurpleAccount *account, const char *name,

const char *status_id)

{

GSList *list, *l;

PurpleBuddy *buddy;

PurplePresence *presence;

PurpleStatus *status;

g_return_if_fail(account != NULL);

g_return_if_fail(name != NULL);

g_return_if_fail(status_id != NULL);

g_return_if_fail(purple_account_is_connected(account) || purple_account_is_connecting(account));

if((list = purple_find_buddies(account, name)) == NULL)

return;

for(l = list; l != NULL; l = l->next) {

buddy = l->data;

presence = purple_buddy_get_presence(buddy);

status = purple_presence_get_status(presence, status_id);

if(NULL == status)

continue;

if (purple_status_is_active(status)) {

purple_status_set_active(status, FALSE);

purple_blist_update_buddy_status(buddy, status);

}

g_slist_free(list);

}

static void

do_prpl_change_account_status(PurpleAccount *account,

PurpleStatus *old_status, PurpleStatus *new_status)

{

PurplePlugin *prpl;

PurplePluginProtocolInfo *prpl_info;

if (purple_status_is_online(new_status) &&

purple_account_is_disconnected(account) &&

purple_network_is_available())

{

purple_account_connect(account);

return;

}

if (!purple_status_is_online(new_status))

{

if (!purple_account_is_disconnected(account))

purple_account_disconnect(account);

/* Clear out the unsaved password if we're already disconnected and we switch to offline status */

else if (!purple_account_get_remember_password(account))

purple_account_set_password(account, NULL);

return;

}

if (purple_account_is_connecting(account))

* We don't need to call the set_status PRPL function because

* the PRPL will take care of setting its status during the

* connection process.

return;

prpl = purple_find_prpl(purple_account_get_protocol_id(account));

if (prpl == NULL)

return;

prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(prpl);

if (!purple_account_is_disconnected(account) && prpl_info->set_status != NULL)

{

prpl_info->set_status(account, new_status);

}

void

purple_prpl_change_account_status(PurpleAccount *account,

PurpleStatus *old_status, PurpleStatus *new_status)

{

g_return_if_fail(account != NULL);

g_return_if_fail(new_status != NULL);

g_return_if_fail(!purple_status_is_exclusive(new_status) || old_status != NULL);

purple_signal_emit(purple_accounts_get_handle(), "account-status-changing",

account, old_status, new_status);

do_prpl_change_account_status(account, old_status, new_status);

purple_signal_emit(purple_accounts_get_handle(), "account-status-changed",

account, old_status, new_status);

}

GList *

purple_prpl_get_statuses(PurpleAccount *account, PurplePresence *presence)

{

GList *statuses = NULL;

GList *l;

PurpleStatus *status;

g_return_val_if_fail(account != NULL, NULL);

g_return_val_if_fail(presence != NULL, NULL);

for (l = purple_account_get_status_types(account); l != NULL; l = l->next)

{

status = purple_status_new((PurpleStatusType *)l->data, presence);

statuses = g_list_prepend(statuses, status);

}

statuses = g_list_reverse(statuses);

return statuses;

}

static void

purple_prpl_attention(PurpleConversation *conv, const char *who,

guint type, PurpleMessageFlags flags, time_t mtime)

{

PurpleAccount *account = purple_conversation_get_account(conv);

purple_signal_emit(purple_conversations_get_handle(),

flags == PURPLE_MESSAGE_SEND ? "sent-attention" : "got-attention",

account, who, conv, type);

}

void

purple_prpl_send_attention(PurpleConnection *gc, const char *who, guint type_code)

{

PurpleAttentionType *attn;

PurpleMessageFlags flags;

PurplePlugin *prpl;

PurpleConversation *conv;

gboolean (*send_attention)(PurpleConnection *, const char *, guint);

PurpleBuddy *buddy;

const char *alias;

gchar *description;

time_t mtime;

g_return_if_fail(gc != NULL);

g_return_if_fail(who != NULL);

prpl = purple_find_prpl(purple_account_get_protocol_id(gc->account));

send_attention = PURPLE_PLUGIN_PROTOCOL_INFO(prpl)->send_attention;

g_return_if_fail(send_attention != NULL);

mtime = time(NULL);

attn = purple_get_attention_type_from_code(gc->account, type_code);

if ((buddy = purple_find_buddy(purple_connection_get_account(gc), who)) != NULL)

alias = purple_buddy_get_contact_alias(buddy);

else

alias = who;

if (attn && purple_attention_type_get_outgoing_desc(attn)) {

description = g_strdup_printf(purple_attention_type_get_outgoing_desc(attn), alias);

} else {

description = g_strdup_printf(_("Requesting %s's attention..."), alias);

}

flags = PURPLE_MESSAGE_SEND | PURPLE_MESSAGE_NOTIFY | PURPLE_MESSAGE_SYSTEM;

purple_debug_info("server", "serv_send_attention: sending '%s' to %s\n",

description, who);

if (!send_attention(gc, who, type_code))

return;

conv = purple_conversation_new(PURPLE_CONV_TYPE_IM, gc->account, who);

purple_conv_im_write(PURPLE_CONV_IM(conv), NULL, description, flags, mtime);

purple_prpl_attention(conv, who, type_code, PURPLE_MESSAGE_SEND, time(NULL));

g_free(description);

}

static void

got_attention(PurpleConnection *gc, int id, const char *who, guint type_code)

{

PurpleMessageFlags flags;

PurpleAttentionType *attn;

PurpleBuddy *buddy;

const char *alias;

gchar *description;

time_t mtime;

mtime = time(NULL);

attn = purple_get_attention_type_from_code(gc->account, type_code);

/* PURPLE_MESSAGE_NOTIFY is for attention messages. */

flags = PURPLE_MESSAGE_SYSTEM | PURPLE_MESSAGE_NOTIFY | PURPLE_MESSAGE_RECV;

/* TODO: if (attn->icon_name) is non-null, use it to lookup an emoticon and display

* it next to the attention command. And if it is null, display a generic icon. */

if ((buddy = purple_find_buddy(purple_connection_get_account(gc), who)) != NULL)

alias = purple_buddy_get_contact_alias(buddy);

else

alias = who;

if (attn && purple_attention_type_get_incoming_desc(attn)) {

description = g_strdup_printf(purple_attention_type_get_incoming_desc(attn), alias);

} else {

description = g_strdup_printf(_("%s has requested your attention!"), alias);

}

purple_debug_info("server", "got_attention: got '%s' from %s\n",

description, who);

if (id == -1)

serv_got_im(gc, who, description, flags, mtime);

else

serv_got_chat_in(gc, id, who, flags, description, mtime);

/* TODO: sounds (depending on PurpleAttentionType), shaking, etc. */

g_free(description);

}

void

purple_prpl_got_attention(PurpleConnection *gc, const char *who, guint type_code)

{

PurpleConversation *conv = NULL;

PurpleAccount *account = purple_connection_get_account(gc);

got_attention(gc, -1, who, type_code);

conv =

purple_find_conversation_with_account(PURPLE_CONV_TYPE_ANY, who, account);

if (conv)

purple_prpl_attention(conv, who, type_code, PURPLE_MESSAGE_RECV,

time(NULL));

}

void

purple_prpl_got_attention_in_chat(PurpleConnection *gc, int id, const char *who, guint type_code)

{

got_attention(gc, id, who, type_code);

}

gboolean

purple_prpl_initiate_media(PurpleAccount *account,

const char *who,

PurpleMediaSessionType type)

{

#ifdef USE_VV

PurpleConnection *gc = NULL;

PurplePlugin *prpl = NULL;

PurplePluginProtocolInfo *prpl_info = NULL;

if (account)

gc = purple_account_get_connection(account);

if (gc)

prpl = purple_connection_get_prpl(gc);

if (prpl)

prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(prpl);

if (prpl_info && PURPLE_PROTOCOL_PLUGIN_HAS_FUNC(prpl_info, initiate_media)) {

/* should check that the protocol supports this media type here? */

return prpl_info->initiate_media(account, who, type);

} else

#endif

return FALSE;

}

PurpleMediaCaps

purple_prpl_get_media_caps(PurpleAccount *account, const char *who)

{

#ifdef USE_VV

PurpleConnection *gc = NULL;

PurplePlugin *prpl = NULL;

PurplePluginProtocolInfo *prpl_info = NULL;

if (account)

gc = purple_account_get_connection(account);

if (gc)

prpl = purple_connection_get_prpl(gc);

if (prpl)

prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(prpl);

if (prpl_info && PURPLE_PROTOCOL_PLUGIN_HAS_FUNC(prpl_info,

get_media_caps)) {

return prpl_info->get_media_caps(account, who);

}

#endif

return PURPLE_MEDIA_CAPS_NONE;

}

void

purple_prpl_got_media_caps(PurpleAccount *account, const char *name)

{

#ifdef USE_VV

GSList *list;

g_return_if_fail(account != NULL);

g_return_if_fail(name != NULL);

if ((list = purple_find_buddies(account, name)) == NULL)

return;

while (list) {

PurpleBuddy *buddy = list->data;

PurpleMediaCaps oldcaps = purple_buddy_get_media_caps(buddy);

PurpleMediaCaps newcaps = 0;

const gchar *bname = purple_buddy_get_name(buddy);

list = g_slist_delete_link(list, list);

newcaps = purple_prpl_get_media_caps(account, bname);

purple_buddy_set_media_caps(buddy, newcaps);

if (oldcaps == newcaps)

continue;

purple_signal_emit(purple_blist_get_handle(),

"buddy-caps-changed", buddy,

newcaps, oldcaps);

}

#endif

}

/**************************************************************************

* Protocol Plugin Subsystem API

**************************************************************************/

PurplePlugin *

purple_find_prpl(const char *id)

{

GList *l;

PurplePlugin *plugin;

g_return_val_if_fail(id != NULL, NULL);

/* libpurple3 compatibility.

* prpl-xmpp isn't used yet (it's prpl-jabber),

* but may be used in the future.

if (purple_strequal(id, "prpl-xmpp") ||

purple_strequal(id, "prpl-gtalk"))

{

id = "prpl-jabber";

}

for (l = purple_plugins_get_protocols(); l != NULL; l = l->next) {

plugin = (PurplePlugin *)l->data;

if (purple_strequal(plugin->info->id, id))

return plugin;

}

return NULL;

}

pidgin/pidgin