Mercurial > pidgin
diff plugins/test.pl @ 6529:e4e87ffd9f14
[gaim-migrate @ 7046]
The fortunateprofile.pl script works again. At least, I think it works, but
it's never worked here, but all the events and suff work, so that's good,
and i added a test.pl that people acan also see. now I'm going to bebd.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Wed, 20 Aug 2003 11:08:19 +0000 |
parents | |
children | b1ea29d1293e |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plugins/test.pl Wed Aug 20 11:08:19 2003 +0000 @@ -0,0 +1,33 @@ +#!/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; +}