void* prplcb_request_input(const char *title, const char *primary,
const char *secondary, const char *default_value, gboolean multiline,
gboolean masked, gchar *hint, const char *ok_text, GCallback ok_cb,
const char *cancel_text, GCallback cancel_cb, PurpleAccount *account,
const char *who, PurpleConversation *conv, void *user_data)
{
struct im_connection *ic = purple_ic_by_pa(account);
struct purple_data *pd = ic->proto_data;
struct request_input_data *ri = g_new0(struct request_input_data, 1);
guint id = pd->next_request_id++;
ri->id = id;
ri->ic = ic;
ri->buddy = g_strdup_printf("%s_%u", PURPLE_REQUEST_HANDLE, id);
ri->data_callback = (ri_callback_t) ok_cb;
ri->user_data = user_data;
g_hash_table_insert(pd->input_requests, GUINT_TO_POINTER(id), ri);
imcb_add_buddy(ic, ri->buddy, NULL);
if (title && *title) {
imcb_buddy_msg(ic, ri->buddy, title, 0, 0);
}
if (primary && *primary) {
imcb_buddy_msg(ic, ri->buddy, primary, 0, 0);
}
if (secondary && *secondary) {
imcb_buddy_msg(ic, ri->buddy, secondary, 0, 0);
}
return ri;
}
void imcb_notify_email(struct im_connection *ic, char *format, ...)
{
const char *handle;
va_list params;
char *msg;
if (!set_getbool(&ic->acc->set, "mail_notifications")) {
return;
}
va_start(params, format);
msg = g_strdup_vprintf(format, params);
va_end(params);
/* up to the protocol to set_add this if they want to use this */
handle = set_getstr(&ic->acc->set, "mail_notifications_handle");
if (handle != NULL) {
imcb_buddy_msg(ic, handle, msg, 0, 0);
} else {
imcb_log(ic, "%s", msg);
}
g_free(msg);
}
void sasl_oauth2_init( struct im_connection *ic )
{
struct jabber_data *jd = ic->proto_data;
char *msg, *url;
imcb_log( ic, "Starting OAuth authentication" );
/* Temporary contact, just used to receive the OAuth response. */
imcb_add_buddy( ic, JABBER_OAUTH_HANDLE, NULL );
url = oauth2_url( jd->oauth2_service );
msg = g_strdup_printf( "Open this URL in your browser to authenticate: %s", url );
imcb_buddy_msg( ic, JABBER_OAUTH_HANDLE, msg, 0, 0 );
imcb_buddy_msg( ic, JABBER_OAUTH_HANDLE, "Respond to this message with the returned "
"authorization token.", 0, 0 );
g_free( msg );
g_free( url );
}
static gboolean twitter_oauth_callback(struct oauth_info *info)
{
struct im_connection *ic = info->data;
struct twitter_data *td;
if (!g_slist_find(twitter_connections, ic))
return FALSE;
td = ic->proto_data;
if (info->stage == OAUTH_REQUEST_TOKEN) {
char *name, *msg;
if (info->request_token == NULL) {
imcb_error(ic, "OAuth error: %s", twitter_parse_error(info->http));
imc_logout(ic, TRUE);
return FALSE;
}
name = g_strdup_printf("%s_%s", td->prefix, ic->acc->user);
msg = g_strdup_printf("To finish OAuth authentication, please visit "
"%s and respond with the resulting PIN code.",
info->auth_url);
imcb_buddy_msg(ic, name, msg, 0, 0);
g_free(name);
g_free(msg);
} else if (info->stage == OAUTH_ACCESS_TOKEN) {
const char *sn;
if (info->token == NULL || info->token_secret == NULL) {
imcb_error(ic, "OAuth error: %s", twitter_parse_error(info->http));
imc_logout(ic, TRUE);
return FALSE;
}
if ((sn = oauth_params_get(&info->params, "screen_name"))) {
if (ic->acc->prpl->handle_cmp(sn, ic->acc->user) != 0)
imcb_log(ic, "Warning: You logged in via OAuth as %s "
"instead of %s.", sn, ic->acc->user);
g_free(td->user);
td->user = g_strdup(sn);
}
/* IM mods didn't do this so far and it's ugly but I should
be able to get away with it... */
g_free(ic->acc->pass);
ic->acc->pass = oauth_to_string(info);
twitter_login_finish(ic);
}
return TRUE;
}
static void prplcb_conv_im( PurpleConversation *conv, const char *who, const char *message, PurpleMessageFlags flags, time_t mtime )
{
struct im_connection *ic = purple_ic_by_pa( conv->account );
PurpleBuddy *buddy;
/* ..._SEND means it's an outgoing message, no need to echo those. */
if( flags & PURPLE_MESSAGE_SEND )
return;
buddy = purple_find_buddy( conv->account, who );
if( buddy != NULL )
who = purple_buddy_get_name( buddy );
imcb_buddy_msg( ic, (char*) who, (char*) message, 0, mtime );
}
/* Generic handler for IM or chat messages, covers write_chat, write_im and write_conv */
static void handle_conv_msg(PurpleConversation *conv, const char *who, const char *message, guint32 bee_flags, time_t mtime)
{
struct im_connection *ic = purple_ic_by_pa(conv->account);
struct groupchat *gc = conv->ui_data;
PurpleBuddy *buddy;
buddy = purple_find_buddy(conv->account, who);
if (buddy != NULL) {
who = purple_buddy_get_name(buddy);
}
if (conv->type == PURPLE_CONV_TYPE_IM) {
imcb_buddy_msg(ic, (char *) who, (char *) message, bee_flags, mtime);
} else if (gc) {
imcb_chat_msg(gc, who, (char *) message, bee_flags, mtime);
}
}
static xt_status jabber_xmlconsole( struct xt_node *node, gpointer data )
{
struct im_connection *ic = data;
struct jabber_data *jd = ic->proto_data;
if( jd->flags & JFLAG_XMLCONSOLE )
{
char *msg, *pkt;
pkt = xt_to_string( node );
msg = g_strdup_printf( "RX: %s", pkt );
imcb_buddy_msg( ic, JABBER_XMLCONSOLE_HANDLE, msg, 0, 0 );
g_free( msg );
g_free( pkt );
}
return XT_NEXT;
}
int jabber_write( struct im_connection *ic, char *buf, int len )
{
struct jabber_data *jd = ic->proto_data;
gboolean ret;
if( jd->flags & JFLAG_XMLCONSOLE )
{
char *msg;
msg = g_strdup_printf( "TX: %s", buf );
imcb_buddy_msg( ic, JABBER_XMLCONSOLE_HANDLE, msg, 0, 0 );
g_free( msg );
}
if( jd->tx_len == 0 )
{
/* If the queue is empty, allocate a new buffer. */
jd->tx_len = len;
jd->txq = g_memdup( buf, len );
/* Try if we can write it immediately so we don't have to do
it via the event handler. If not, add the handler. (In
most cases it probably won't be necessary.) */
if( ( ret = jabber_write_queue( ic ) ) && jd->tx_len > 0 )
jd->w_inpa = b_input_add( jd->fd, GAIM_INPUT_WRITE, jabber_write_callback, ic );
}
else
{
/* Just add it to the buffer if it's already filled. The
event handler is already set. */
jd->txq = g_renew( char, jd->txq, jd->tx_len + len );
memcpy( jd->txq + jd->tx_len, buf, len );
jd->tx_len += len;
/* The return value for write() doesn't necessarily mean
that everything got sent, it mainly means that the
connection (officially) still exists and can still
be accessed without hitting SIGSEGV. IOW: */
ret = TRUE;
}
return ret;
}
static void skype_parse_chatmessage_said_emoted(struct im_connection *ic, struct groupchat *gc, char *body)
{
struct skype_data *sd = ic->proto_data;
char buf[IRC_LINE_SIZE];
if (!strcmp(sd->type, "SAID")) {
if (!sd->is_edit)
g_snprintf(buf, IRC_LINE_SIZE, "%s", body);
else {
g_snprintf(buf, IRC_LINE_SIZE, "%s %s", set_getstr(&ic->acc->set, "edit_prefix"), body);
sd->is_edit = 0;
}
} else
g_snprintf(buf, IRC_LINE_SIZE, "/me %s", body);
if (!gc)
/* Private message */
imcb_buddy_msg(ic, sd->handle, buf, 0, 0);
else
/* Groupchat message */
imcb_chat_msg(gc, sd->handle, buf, 0, 0);
}
/**
* Processes a #SteamApiMsg.
*
* @param sata The #SteamData.
* @param msg The #SteamUserMsg.
* @param time The timestamp (UTC) of the message, or 0 for now.
**/
static void steam_user_msg(SteamData *sata, SteamUserMsg *msg, gint64 time)
{
SteamUserInfo *info = msg->info;
bee_user_t *bu;
gchar *str;
guint32 f;
gchar sid[STEAM_ID_STR_MAX];
STEAM_ID_STR(info->id, sid);
STEAM_UTIL_DEBUGLN("Incoming message from %s (Type: %u, Act: %u)",
sid, msg->type, info->act);
switch (msg->type) {
case STEAM_USER_MSG_TYPE_EMOTE:
case STEAM_USER_MSG_TYPE_SAYTEXT:
bu = imcb_buddy_by_handle(sata->ic, sid);
if ((bu != NULL) && (bu->flags & OPT_TYPING))
imcb_buddy_typing(sata->ic, sid, 0);
if (msg->type == STEAM_USER_MSG_TYPE_EMOTE)
str = g_strconcat("/me ", msg->text, NULL);
else
str = g_strdup(msg->text);
imcb_buddy_msg(sata->ic, sid, str, 0, time);
g_free(str);
return;
case STEAM_USER_MSG_TYPE_LEFT_CONV:
imcb_buddy_typing(sata->ic, sid, 0);
return;
case STEAM_USER_MSG_TYPE_RELATIONSHIP:
goto relationship;
case STEAM_USER_MSG_TYPE_TYPING:
bu = imcb_buddy_by_handle(sata->ic, sid);
if (G_UNLIKELY(bu == NULL))
return;
f = (bu->flags & OPT_TYPING) ? 0 : OPT_TYPING;
imcb_buddy_typing(sata->ic, sid, f);
return;
default:
steam_user_status(sata, info, NULL);
return;
}
relationship:
switch (info->act) {
case STEAM_USER_ACT_REMOVE:
case STEAM_USER_ACT_IGNORE:
imcb_remove_buddy(sata->ic, sid, NULL);
return;
case STEAM_USER_ACT_REQUEST:
imcb_ask_auth(sata->ic, sid, info->nick);
return;
case STEAM_USER_ACT_ADD:
imcb_add_buddy(sata->ic, sid, NULL);
imcb_buddy_nick_hint(sata->ic, sid, info->nick);
imcb_rename_buddy(sata->ic, sid, info->fullname);
steam_user_status(sata, info, NULL);
return;
default:
return;
}
}
static xt_status jabber_pkt_message_normal(struct xt_node *node, gpointer data, gboolean carbons_sent)
{
struct im_connection *ic = data;
struct jabber_data *jd = ic->proto_data;
char *from = xt_find_attr(node, carbons_sent ? "to" : "from");
char *type = xt_find_attr(node, "type");
char *id = xt_find_attr(node, "id");
struct xt_node *body = xt_find_node(node->children, "body"), *c;
struct xt_node *request = xt_find_node(node->children, "request");
struct jabber_buddy *bud = NULL;
char *s, *room = NULL, *reason = NULL;
if (!from) {
return XT_HANDLED; /* Consider this packet corrupted. */
}
/* try to detect hipchat's own version of self-messages */
if (jd->flags & JFLAG_HIPCHAT) {
struct xt_node *c;
if ((c = xt_find_node_by_attr(node->children, "delay", "xmlns", XMLNS_DELAY)) &&
(s = xt_find_attr(c, "from_jid")) &&
jabber_compare_jid(s, jd->me)) {
carbons_sent = TRUE;
}
}
if (request && id && g_strcmp0(type, "groupchat") != 0 && !carbons_sent) {
/* Send a message receipt (XEP-0184), looking like this:
* <message from='...' id='...' to='...'>
* <received xmlns='urn:xmpp:receipts' id='richard2-4.1.247'/>
* </message>
*
* MUC messages are excluded, since receipts aren't supposed to be sent over MUCs
* (XEP-0184 section 5.3) and replying to those may result in 'forbidden' errors.
*/
struct xt_node *received, *receipt;
received = xt_new_node("received", NULL, NULL);
xt_add_attr(received, "xmlns", XMLNS_RECEIPTS);
xt_add_attr(received, "id", id);
receipt = jabber_make_packet("message", NULL, from, received);
jabber_write_packet(ic, receipt);
xt_free_node(receipt);
}
bud = jabber_buddy_by_jid(ic, from, GET_BUDDY_EXACT);
if (type && strcmp(type, "error") == 0) {
/* Handle type=error packet. */
} else if (type && from && strcmp(type, "groupchat") == 0) {
jabber_chat_pkt_message(ic, bud, node);
} else { /* "chat", "normal", "headline", no-type or whatever. Should all be pretty similar. */
GString *fullmsg = g_string_new("");
for (c = node->children; (c = xt_find_node(c, "x")); c = c->next) {
char *ns = xt_find_attr(c, "xmlns");
struct xt_node *inv;
if (ns && strcmp(ns, XMLNS_MUC_USER) == 0 &&
(inv = xt_find_node(c->children, "invite"))) {
/* This is an invitation. Set some vars which
will be passed to imcb_chat_invite() below. */
room = from;
if ((from = xt_find_attr(inv, "from")) == NULL) {
from = room;
}
if ((inv = xt_find_node(inv->children, "reason")) && inv->text_len > 0) {
reason = inv->text;
}
}
}
if ((s = strchr(from, '/'))) {
if (bud) {
bud->last_msg = time(NULL);
from = bud->ext_jid ? bud->ext_jid : bud->bare_jid;
} else {
*s = 0; /* We need to generate a bare JID now. */
}
}
if (type && strcmp(type, "headline") == 0) {
if ((c = xt_find_node(node->children, "subject")) && c->text_len > 0) {
g_string_append_printf(fullmsg, "Headline: %s\n", c->text);
}
/* <x xmlns="jabber:x:oob"><url>http://....</url></x> can contain a URL, it seems. */
for (c = node->children; c; c = c->next) {
struct xt_node *url;
if ((url = xt_find_node(c->children, "url")) && url->text_len > 0) {
g_string_append_printf(fullmsg, "URL: %s\n", url->text);
}
}
} else if ((c = xt_find_node(node->children, "subject")) && c->text_len > 0 &&
(!bud || !(bud->flags & JBFLAG_HIDE_SUBJECT))) {
g_string_append_printf(fullmsg, "<< \002BitlBee\002 - Message with subject: %s >>\n", c->text);
if (bud) {
bud->flags |= JBFLAG_HIDE_SUBJECT;
}
} else if (bud && !c) {
/* Yeah, possibly we're hiding changes to this field now. But nobody uses
this for anything useful anyway, except GMail when people reply to an
e-mail via chat, repeating the same subject all the time. I don't want
to have to remember full subject strings for everyone. */
bud->flags &= ~JBFLAG_HIDE_SUBJECT;
}
if (body && body->text_len > 0) { /* Could be just a typing notification. */
fullmsg = g_string_append(fullmsg, body->text);
}
if (fullmsg->len > 0) {
imcb_buddy_msg(ic, from, fullmsg->str,
carbons_sent ? OPT_SELFMESSAGE : 0, jabber_get_timestamp(node));
}
if (room) {
imcb_chat_invite(ic, room, from, reason);
}
g_string_free(fullmsg, TRUE);
/* Handling of incoming typing notifications. */
if (bud == NULL || carbons_sent) {
/* Can't handle these for unknown buddies.
And ignore them if it's just carbons */
} else if (xt_find_node(node->children, "composing")) {
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing(ic, from, OPT_TYPING);
}
else if (xt_find_node(node->children, "active")) {
bud->flags |= JBFLAG_DOES_XEP85;
/* No need to send a "stopped typing" signal when there's a message. */
if (body == NULL) {
imcb_buddy_typing(ic, from, 0);
}
} else if (xt_find_node(node->children, "paused")) {
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing(ic, from, OPT_THINKING);
}
if (s) {
*s = '/'; /* And convert it back to a full JID. */
}
}
return XT_HANDLED;
}
xt_status jabber_pkt_message( struct xt_node *node, gpointer data )
{
struct im_connection *ic = data;
char *from = xt_find_attr( node, "from" );
char *type = xt_find_attr( node, "type" );
char *id = xt_find_attr( node, "id" );
struct xt_node *body = xt_find_node( node->children, "body" ), *c;
struct xt_node *request = xt_find_node( node->children, "request" );
struct jabber_buddy *bud = NULL;
char *s, *room = NULL, *reason = NULL;
if( !from )
return XT_HANDLED; /* Consider this packet corrupted. */
if( request && id )
{
/* Send a message receipt (XEP-0184), looking like this:
* <message
* from='[email protected]/throne'
* id='bi29sg183b4v'
* to='[email protected]/westminster'>
* <received xmlns='urn:xmpp:receipts' id='richard2-4.1.247'/>
* </message> */
struct xt_node *received, *receipt;
received = xt_new_node( "received", NULL, NULL );
xt_add_attr( received, "xmlns", XMLNS_RECEIPTS );
xt_add_attr( received, "id", id );
receipt = jabber_make_packet( "message", NULL, from, received );
jabber_write_packet( ic, receipt );
xt_free_node( receipt );
}
bud = jabber_buddy_by_jid( ic, from, GET_BUDDY_EXACT );
if( type && strcmp( type, "error" ) == 0 )
{
/* Handle type=error packet. */
}
else if( type && from && strcmp( type, "groupchat" ) == 0 )
{
jabber_chat_pkt_message( ic, bud, node );
}
else /* "chat", "normal", "headline", no-type or whatever. Should all be pretty similar. */
{
GString *fullmsg = g_string_new( "" );
for( c = node->children; ( c = xt_find_node( c, "x" ) ); c = c->next )
{
char *ns = xt_find_attr( c, "xmlns" );
struct xt_node *inv;
if( ns && strcmp( ns, XMLNS_MUC_USER ) == 0 &&
( inv = xt_find_node( c->children, "invite" ) ) )
{
/* This is an invitation. Set some vars which
will be passed to imcb_chat_invite() below. */
room = from;
if( ( from = xt_find_attr( inv, "from" ) ) == NULL )
from = room;
if( ( inv = xt_find_node( inv->children, "reason" ) ) && inv->text_len > 0 )
reason = inv->text;
}
}
if( ( s = strchr( from, '/' ) ) )
{
if( bud )
{
bud->last_msg = time( NULL );
from = bud->ext_jid ? bud->ext_jid : bud->bare_jid;
}
else
*s = 0; /* We need to generate a bare JID now. */
}
if( type && strcmp( type, "headline" ) == 0 )
{
if( ( c = xt_find_node( node->children, "subject" ) ) && c->text_len > 0 )
g_string_append_printf( fullmsg, "Headline: %s\n", c->text );
/* <x xmlns="jabber:x:oob"><url>http://....</url></x> can contain a URL, it seems. */
for( c = node->children; c; c = c->next )
{
struct xt_node *url;
if( ( url = xt_find_node( c->children, "url" ) ) && url->text_len > 0 )
g_string_append_printf( fullmsg, "URL: %s\n", url->text );
}
}
else if( ( c = xt_find_node( node->children, "subject" ) ) && c->text_len > 0 &&
( !bud || !( bud->flags & JBFLAG_HIDE_SUBJECT ) ) )
{
g_string_append_printf( fullmsg, "<< \002BitlBee\002 - Message with subject: %s >>\n", c->text );
if( bud )
bud->flags |= JBFLAG_HIDE_SUBJECT;
}
else if( bud && !c )
{
/* Yeah, possibly we're hiding changes to this field now. But nobody uses
this for anything useful anyway, except GMail when people reply to an
e-mail via chat, repeating the same subject all the time. I don't want
to have to remember full subject strings for everyone. */
bud->flags &= ~JBFLAG_HIDE_SUBJECT;
}
if( body && body->text_len > 0 ) /* Could be just a typing notification. */
fullmsg = g_string_append( fullmsg, body->text );
if( fullmsg->len > 0 )
imcb_buddy_msg( ic, from, fullmsg->str,
0, jabber_get_timestamp( node ) );
if( room )
imcb_chat_invite( ic, room, from, reason );
g_string_free( fullmsg, TRUE );
/* Handling of incoming typing notifications. */
if( bud == NULL )
{
/* Can't handle these for unknown buddies. */
}
else if( xt_find_node( node->children, "composing" ) )
{
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing( ic, from, OPT_TYPING );
}
/* No need to send a "stopped typing" signal when there's a message. */
else if( xt_find_node( node->children, "active" ) && ( body == NULL ) )
{
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing( ic, from, 0 );
}
else if( xt_find_node( node->children, "paused" ) )
{
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing( ic, from, OPT_THINKING );
}
if( s )
*s = '/'; /* And convert it back to a full JID. */
}
return XT_HANDLED;
}