libpurple/plugins/test.pl

   1 use Purple;
   2
   3 %PLUGIN_INFO = (
   4         perl_api_version => 2,
   5         name             => 'Test Perl Plugin',
   6         version          => '1.0',
   7         summary          => 'Provides as a test base for the perl plugin.',
   8         description      => 'Provides as a test base for the perl plugin.',
   9         author           => 'Etan Reisner <deryni\@pidgin.im>',
  10         url              => 'http://pidgin.im',
  11
  12         load             => "plugin_load"
  13 );
  14
  15 sub plugin_init {
  16         return %PLUGIN_INFO;
  17 }
  18
  19 sub account_status_cb {
  20         my ($account, $old, $new, $data) = @_;
  21
  22         Purple::Debug::info("perl test plugin", "In account_status_cb\n");
  23
  24         Purple::Debug::info("perl test plugin", "Account " .
  25                             $account->get_username() . " changed status.\n");
  26         Purple::Debug::info("perl test plugin", $data . "\n");
  27 }
  28
  29 sub plugin_load {
  30         my $plugin = shift;
  31
  32         Purple::Debug::info("perl test plugin", "plugin_load\n");
  33
  34         Purple::Debug::info("perl test plugin", "Listing accounts.\n");
  35         foreach $account (Purple::Accounts::get_all()) {
  36                 Purple::Debug::info("perl test plugin", $account->get_username() . "\n");
  37         }
  38
  39         Purple::Signal::connect(Purple::Accounts::get_handle(),
  40                                 "account-status-changed", $plugin,
  41                                 \&account_status_cb, "test");
  42 }