# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061693022 0
# Node ID b1ea29d1293e9c40f6e5e04e224df2c668c58ae5
# Parent  d25ae4b5a204e774e27415647fd6ee572680dbbd
[gaim-migrate @ 7116]
Updated test.pl

committer: Tailor Script <tailor@pidgin.im>

diff -r d25ae4b5a204 -r b1ea29d1293e plugins/test.pl
--- a/plugins/test.pl	Sun Aug 24 02:43:27 2003 +0000
+++ b/plugins/test.pl	Sun Aug 24 02:43:42 2003 +0000
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 
 use Gaim;
-use vars qw(%PLUGIN_INFO);
 
 %PLUGIN_INFO = (
 	perl_api_version => 2,
@@ -13,19 +12,45 @@
 	url              => 'http://gaim.sf.net/',
 
 	load             => "plugin_load",
-	unload           => "plugin_unload",
+	unload           => "plugin_unload"
 );
 
+sub account_away_cb {
+	Gaim::debug_info("perl test plugin", "In account_away_cb\n");
+
+	my ($account, $state, $message, $data) = @_;
+
+	Gaim::debug_info("perl test plugin", "Account " .
+	                 $account->get_username() . " went away.\n");
+	Gaim::debug_info("perl test plugin", $data . "\n");
+}
+
 sub plugin_init {
 	return %PLUGIN_INFO;
 }
 
 sub plugin_load {
+	Gaim::debug_info("perl test plugin", "plugin_load\n");
 	my $plugin = shift;
 
+	Gaim::debug_info("perl test plugin", "Listing accounts.\n");
 	foreach $account (Gaim::accounts()) {
-		Gaim::debug("perl test plugin", $account->get_username() . "\n");
+		Gaim::debug_info("perl test plugin", $account->get_username() . "\n");
 	}
+
+	Gaim::debug_info("perl test plugin", "Listing buddy list.\n");
+	foreach $group (Gaim::BuddyList::groups()) {
+		Gaim::debug_info("perl test plugin",
+		                 $group->get_name() . ":\n");
+
+		foreach $buddy ($group->buddies()) {
+			Gaim::debug_info("perl test plugin",
+			                 "  " . $buddy->get_name() . "\n");
+		}
+	}
+
+	Gaim::signal_connect(Gaim::Accounts::handle, "account-away",
+	                     $plugin, \&account_away_cb, "test");
 }
 
 sub plugin_unload {