Mercurial > pidgin.yaz

changeset 6592:b1ea29d1293e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7116] Updated test.pl committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Sun, 24 Aug 2003 02:43:42 +0000
parents d25ae4b5a204
children 540edd51051b
files plugins/test.pl
diffstat 1 files changed, 28 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 {