Mercurial > pidgin
view libgaim/plugins/test.pl @ 20392:9ba7dee775e1
The first msn-p13-merge-head.diff.gz from SF Patch #1621854 from Ka-Hing Cheung.
"uploaded a diff, this diff is unchanged from the last tarball that I
previously uploaded, except that it's against HEAD. This should be a little
easier for most people."
(This was apparently msn-p13-merge-head.diff, which SourceForge didn't allow to
be uploaded.)
PLUS
"Updated the diff with basically no change, except with simom's icon fix.
The previous diff was broken because some of the files were not added"
author | Richard Laager <rlaager@wiktel.com> |
---|---|
date | Sun, 15 Apr 2007 03:01:41 +0000 |
parents | 60b1bc8dbf37 |
children |
line wrap: on
line source
#!/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 <chipx86@gnupdate.org>', 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; }