plugins/test.pl@5a0984a84166 (annotated)
plugins/test.pl
Wed, 20 Aug 2003 11:08:19 +0000
- author
- Christian Hammond <chipx86@chipx86.com>
- date
- Wed, 20 Aug 2003 11:08:19 +0000
- changeset 6529
- 5a0984a84166
- child 6592
- 1ce027571e8a
- permissions
- -rw-r--r--
[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.
| 6529 | 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 | } |
