annotate plugins/test.pl @ 7864:dc80d4e5c3b0

[gaim-migrate @ 8518] "Attached is a patch I wrote last night while trying to play with docklet.c - it turns out that one of the signals doesn't have the right parameter list (probably after Christian changed the signals some time). It has been tested, rather simply with the fact that a debug statement was not reached before, and is now, following the signal specs here: http://gaim.sourceforge.net/api/conversation-signals.html#received-im-msg I don't know if this needs to go through Robot101 (haven't seen him terribly active of late), and if it does, I'll gladly relay it to him. And yeah, I guess this was all inspired by my away msg at the time: [:-P] Well, I'm not that tired right now, and I think I'm going to work some Merlot and coffee off with some coding and Oggs... Oh yeah, and while I'm rambling about stuff irrelevant to the actual code, I somehow dedicate this patch to the wonderful person for whom I would like to be visually aware of their incoming messages..." --John B. Silvestri committer: Tailor Script <[e-mail]>

#!/usr/bin/perl -w

use Gaim;

%PLUGIN_INFO = (
	perl_api_version => 2,
	name             => 'Test Perl Plugin',
	version          => '1.0',
	summary          => 'Provides as a test base for the perl plugin.',
	description      => 'Provides as a test base for the perl plugin.',
	author           => 'Christian Hammond <[e-mail]>',
	url              => 'http://gaim.sf.net/',

	load             => "plugin_load",
	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_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 {
	my $plugin = shift;
}