Mercurial > pidgin
comparison 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 |
comparison
equal
deleted
inserted
replaced
6528:390807f638b1 | 6529:e4e87ffd9f14 |
---|---|
1 #!/usr/bin/perl -w | |
2 | |
3 use Gaim; | |
4 use vars qw(%PLUGIN_INFO); | |
5 | |
6 %PLUGIN_INFO = ( | |
7 perl_api_version => 2, | |
8 name => 'Test Perl Plugin', | |
9 version => '1.0', | |
10 summary => 'Provides as a test base for the perl plugin.', | |
11 description => 'Provides as a test base for the perl plugin.', | |
12 author => 'Christian Hammond <chipx86@gnupdate.org>', | |
13 url => 'http://gaim.sf.net/', | |
14 | |
15 load => "plugin_load", | |
16 unload => "plugin_unload", | |
17 ); | |
18 | |
19 sub plugin_init { | |
20 return %PLUGIN_INFO; | |
21 } | |
22 | |
23 sub plugin_load { | |
24 my $plugin = shift; | |
25 | |
26 foreach $account (Gaim::accounts()) { | |
27 Gaim::debug("perl test plugin", $account->get_username() . "\n"); | |
28 } | |
29 } | |
30 | |
31 sub plugin_unload { | |
32 my $plugin = shift; | |
33 } |