# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061675832 0
# Node ID 6deef41364bde6fc4c62ebc88de54315b5d36e61
# Parent  e07c66073b6d432a898e9a3f5a63acf86f2c5eb4
[gaim-migrate @ 7106]
Added the perl Gaim::Connection stuff.

committer: Tailor Script <tailor@pidgin.im>

diff -r e07c66073b6d -r 6deef41364bd plugins/perl/common/Connection.xs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/perl/common/Connection.xs	Sat Aug 23 21:57:12 2003 +0000
@@ -0,0 +1,42 @@
+#include "module.h"
+
+MODULE = Gaim::Connection  PACKAGE = Gaim::Connection  PREFIX = gaim_connection_
+PROTOTYPES: ENABLE
+
+void
+gaim_connection_set_display_name(gc, name)
+	Gaim::Connection gc
+	const char *name
+
+Gaim::Account
+gaim_connection_get_account(gc)
+	Gaim::Connection gc
+
+const char *
+gaim_connection_get_display_name(gc)
+	Gaim::Connection gc
+
+
+MODULE = Gaim::Connections  PACKAGE = Gaim::Connections  PREFIX = gaim_connections_
+PROTOTYPES: ENABLE
+
+void
+gaim_connections_disconnect_all()
+
+void *
+handle()
+CODE:
+	RETVAL = gaim_connections_get_handle();
+OUTPUT:
+	RETVAL
+
+
+MODULE = Gaim::Connection  PACKAGE = Gaim
+
+void
+connections()
+PREINIT:
+	GList *l;
+PPCODE:
+	for (l = gaim_connections_get_all(); l != NULL; l = l->next)
+		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Connection")));
diff -r e07c66073b6d -r 6deef41364bd plugins/perl/common/Gaim.xs
--- a/plugins/perl/common/Gaim.xs	Sat Aug 23 21:49:58 2003 +0000
+++ b/plugins/perl/common/Gaim.xs	Sat Aug 23 21:57:12 2003 +0000
@@ -99,4 +99,5 @@
 	GAIM_PERL_BOOT(BuddyList__Group);
 	GAIM_PERL_BOOT(BuddyList__Buddy);
 	GAIM_PERL_BOOT(BuddyList__Chat);
+	GAIM_PERL_BOOT(Connection);