diff -r e3666fde4b18 -r cc1ab32edcdc plugins/perl/common/Conversation_IM.xs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/perl/common/Conversation_IM.xs	Sun Aug 24 02:43:27 2003 +0000
@@ -0,0 +1,53 @@
+#include "module.h"
+
+MODULE = Gaim::Conversation::IM  PACKAGE = Gaim::Conversation::IM  PREFIX = gaim_im_
+PROTOTYPES: ENABLE
+
+Gaim::Conversation::IM
+new(account, name)
+	Gaim::Account account
+	const char *name
+CODE:
+	RETVAL = GAIM_IM(gaim_conversation_new(GAIM_CONV_IM, account, name));
+OUTPUT:
+	RETVAL
+
+void
+DESTROY(im)
+	Gaim::Conversation::IM im
+CODE:
+	gaim_conversation_destroy(gaim_im_get_conversation(im));
+
+
+Gaim::Conversation
+gaim_im_get_conversation(im)
+	Gaim::Conversation::IM im
+
+void
+gaim_im_write(im, who, message, flags)
+	Gaim::Conversation::IM im
+	const char *who
+	const char *message
+	int flags
+CODE:
+	gaim_im_write(im, who, message, -1, flags, time(NULL));
+
+void
+gaim_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_IM(l->data),
+			"Gaim::Conversation")));
+	}