comparison: plugins/test.pl
plugins/test.pl
- changeset 6529
- 5a0984a84166
- child 6592
- 1ce027571e8a
equal
deleted
inserted
replaced
| 6528:c85b45edd838 | 6529:5a0984a84166 |
|---|---|
| 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 } |
