# HG changeset patch
# User Herman Bloggs <hermanator12002@yahoo.com>
# Date 1053532770 0
# Node ID cb8e58ded7b06b1baaaa1ab2a5c3022b6421deed
# Parent  df653f6f2978b74d43c775455287241632ebaf57
[gaim-migrate @ 5862]
now builds on win32, after plugin re-design

committer: Tailor Script <tailor@pidgin.im>

diff -r df653f6f2978 -r cb8e58ded7b0 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed May 21 15:57:31 2003 +0000
+++ b/plugins/perl/perl.c	Wed May 21 15:59:30 2003 +0000
@@ -535,9 +535,7 @@
 		scp->version = g_strdup(ver);
 		scp->shutdowncallback = g_strdup(callback);
 		scp->plug = plug; 
-
 		perl_list = g_list_append(perl_list, scp);
-
 		XST_mPV(0, plug->path);
 	}
 	else
@@ -560,7 +558,7 @@
 
 		case 1:
 			{
-				GSList *c = connections;
+				GSList *c = gaim_get_connections();
 				struct gaim_connection *gc;
 
 				while (c) {
@@ -576,7 +574,7 @@
 				struct gaim_connection *gc =
 					(struct gaim_connection *)SvIV(ST(1));
 
-				if (g_slist_find(connections, gc))
+				if (g_slist_find(gaim_get_connections(), gc))
 					XST_mIV(i++, gc->protocol);
 				else
 					XST_mIV(i++, -1);
@@ -588,7 +586,7 @@
 				struct gaim_connection *gc =
 					(struct gaim_connection *)SvIV(ST(1));
 
-				if (g_slist_find(connections, gc))
+				if (g_slist_find(gaim_get_connections(), gc))
 					XST_mPV(i++, gc->username);
 				else
 					XST_mPV(i++, "");
@@ -600,7 +598,7 @@
 				struct gaim_connection *gc =
 					(struct gaim_connection *)SvIV(ST(1));
 
-				if (g_slist_find(connections, gc))
+				if (g_slist_find(gaim_get_connections(), gc))
 					XST_mIV(i++, g_slist_index(gaim_accounts, gc->account));
 				else
 					XST_mIV(i++, -1);
@@ -634,7 +632,7 @@
 				struct gaim_connection *gc =
 					(struct gaim_connection *)SvIV(ST(1));
 
-				if (g_slist_find(connections, gc))
+				if (g_slist_find(gaim_get_connections(), gc))
 					XST_mPV(i++, gc->prpl->info->name);
 				else
 					XST_mPV(i++, "Unknown");
@@ -731,11 +729,11 @@
 		serv_login(g_slist_nth_data(gaim_accounts, index));
 	} else if (!strncasecmp(command, "signoff", 7)) {
 		struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-		if (g_slist_find(connections, gc)) signoff(gc);
+		if (g_slist_find(gaim_get_connections(), gc)) signoff(gc);
 		else signoff_all(NULL, NULL);
 	} else if (!strncasecmp(command, "info", 4)) {
 		struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-		if (g_slist_find(connections, gc))
+		if (g_slist_find(gaim_get_connections(), gc))
 			serv_set_info(gc, SvPV(ST(2), junk));
 	} else if (!strncasecmp(command, "away", 4)) {
 		char *message = SvPV(ST(1), junk);
@@ -745,7 +743,7 @@
 	} else if (!strncasecmp(command, "back", 4)) {
 		do_im_back();
 	} else if (!strncasecmp(command, "idle", 4)) {
-		GSList *c = connections;
+		GSList *c = gaim_get_connections();
 		struct gaim_connection *gc;
 
 		while (c) {
@@ -754,7 +752,7 @@
 			c = c->next;
 		}
 	} else if (!strncasecmp(command, "warn", 4)) {
-		GSList *c = connections;
+		GSList *c = gaim_get_connections();
 		struct gaim_connection *gc;
 
 		while (c) {
@@ -776,7 +774,7 @@
 	items = 0;
 
 	gc = (struct gaim_connection *)SvIV(ST(0));
-	if (g_slist_find(connections, gc))
+	if (g_slist_find(gaim_get_connections(), gc))
 		buddy = gaim_find_buddy(gc->account, SvPV(ST(1), junk));
 
 	if (!buddy)
@@ -836,7 +834,7 @@
 	what = SvPV(ST(2), junk);
 	isauto = SvIV(ST(3));
 
-	if (!g_slist_find(connections, gc)) {
+	if (!g_slist_find(gaim_get_connections(), gc)) {
 		XSRETURN(0);
 		return;
 	}
@@ -858,7 +856,7 @@
 	nick = SvPV(ST(1), junk);
 	what = SvPV(ST(2), junk);
 	isauto = SvIV(ST(3));
-	if (!g_slist_find(connections, gc)) {
+	if (!g_slist_find(gaim_get_connections(), gc)) {
 		XSRETURN(0);
 		return;
 	}
@@ -893,7 +891,7 @@
 	id = SvIV(ST(1));
 	what = SvPV(ST(2), junk);
 
-	if (!g_slist_find(connections, gc)) {
+	if (!g_slist_find(gaim_get_connections(), gc)) {
 		XSRETURN(0);
 		return;
 	}