Mercurial > pidgin.yaz
view plugins/test.pl @ 6582:c571981c7ce8
[gaim-migrate @ 7104]
corrections
committer: Tailor Script <tailor@pidgin.im>
author | Herman Bloggs <hermanator12002@yahoo.com> |
---|---|
date | Sat, 23 Aug 2003 17:31:11 +0000 |
parents | e4e87ffd9f14 |
children | b1ea29d1293e |
line wrap: on
line source
#!/usr/bin/perl -w use Gaim; use vars qw(%PLUGIN_INFO); %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 plugin_init { return %PLUGIN_INFO; } sub plugin_load { my $plugin = shift; foreach $account (Gaim::accounts()) { Gaim::debug("perl test plugin", $account->get_username() . "\n"); } } sub plugin_unload { my $plugin = shift; }