plugins/perl/common/Conversation_IM.xs

Fri, 11 Jun 2004 00:16:36 +0000

author
Justin Wood
date
Fri, 11 Jun 2004 00:16:36 +0000
changeset 9262
3aa857850c6f
parent 7120
83dba78f8518
permissions
-rw-r--r--

[gaim-migrate @ 10061]
Patch by Justin Wood. He says:

"User icon would set wrong status There is a small window, that if you set
a user icon, you'll set the wrong status for the next update.

Thought this over, and it shouldn't have any nasty side effects.. but there
are potential problems, if a status change message is lost. Things should
be ok though, that said"

committer: Christian Hammond <chipx86@chipx86.com>

#include "module.h"

MODULE = Gaim::Conversation::IM  PACKAGE = Gaim::Conversation::IM  PREFIX = gaim_conv_im_
PROTOTYPES: ENABLE

Gaim::Conversation::IM
new(account, name)
	Gaim::Account account
	const char *name
CODE:
	RETVAL = GAIM_CONV_IM(gaim_conversation_new(GAIM_CONV_IM, account, name));
OUTPUT:
	RETVAL

void
DESTROY(im)
	Gaim::Conversation::IM im
CODE:
	gaim_conversation_destroy(gaim_conv_im_get_conversation(im));


Gaim::Conversation
gaim_conv_im_get_conversation(im)
	Gaim::Conversation::IM im

void
gaim_conv_im_write(im, who, message, flags)
	Gaim::Conversation::IM im
	const char *who
	const char *message
	int flags
CODE:
	gaim_conv_im_write(im, who, message, flags, time(NULL));

void
gaim_conv_im_send(im, message)
	Gaim::Conversation::IM im
	const char *message


MODULE = Gaim::Conversation::IM  PACKAGE = Gaim  PREFIX = gaim_
PROTOTYPES: ENABLE

void
ims()
PREINIT:
	GList *l;
PPCODE:
	for (l = gaim_get_ims(); l != NULL; l = l->next)
	{
		XPUSHs(sv_2mortal(gaim_perl_bless_object(GAIM_CONV_IM(l->data),
			"Gaim::Conversation")));
	}

mercurial