Mercurial > pidgin.yaz
view libpurple/plugins/test.pl @ 28989:7d0b473f2295
I think errdesc was meant to be used here, not errmsg. errmsg isn't
initialized and errdesc is, and errdesc makes the happy little error
box show up at the bottom of the buddy list. Fixes a crash when
attempting to register for a new account (and failing because my
phone number is invalid--maybe I have to be in South Africa?)
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Sun, 22 Nov 2009 18:22:18 +0000 |
parents | c9dc220e0301 |
children |
line wrap: on
line source
use Purple; %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 => 'Etan Reisner <deryni\@pidgin.im>', url => 'http://pidgin.im', load => "plugin_load" ); sub plugin_init { return %PLUGIN_INFO; } sub account_status_cb { my ($account, $old, $new, $data) = @_; Purple::Debug::info("perl test plugin", "In account_status_cb\n"); Purple::Debug::info("perl test plugin", "Account " . $account->get_username() . " changed status.\n"); Purple::Debug::info("perl test plugin", $data . "\n"); } sub plugin_load { my $plugin = shift; Purple::Debug::info("perl test plugin", "plugin_load\n"); Purple::Debug::info("perl test plugin", "Listing accounts.\n"); foreach $account (Purple::Accounts::get_all()) { Purple::Debug::info("perl test plugin", $account->get_username() . "\n"); } Purple::Signal::connect(Purple::Accounts::get_handle(), "account-status-changed", $plugin, \&account_status_cb, "test"); }