Mercurial > pidgin.yaz
annotate plugins/test.pl @ 7929:94a90bf90f32
[gaim-migrate @ 8600]
Fix some more graying/ungraying of stuff, I think. The add/remove
buttons show up for chats now. And instead of getting deleted and
then recreated when something is added or removed from the buddy
list, they just get hidden or shown.
Also show the add/remove buttons for chats.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Fri, 26 Dec 2003 19:07:19 +0000 |
parents | b1ea29d1293e |
children |
rev | line source |
---|---|
6529 | 1 #!/usr/bin/perl -w |
2 | |
3 use Gaim; | |
4 | |
5 %PLUGIN_INFO = ( | |
6 perl_api_version => 2, | |
7 name => 'Test Perl Plugin', | |
8 version => '1.0', | |
9 summary => 'Provides as a test base for the perl plugin.', | |
10 description => 'Provides as a test base for the perl plugin.', | |
11 author => 'Christian Hammond <chipx86@gnupdate.org>', | |
12 url => 'http://gaim.sf.net/', | |
13 | |
14 load => "plugin_load", | |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
15 unload => "plugin_unload" |
6529 | 16 ); |
17 | |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
18 sub account_away_cb { |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
19 Gaim::debug_info("perl test plugin", "In account_away_cb\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
20 |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
21 my ($account, $state, $message, $data) = @_; |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
22 |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
23 Gaim::debug_info("perl test plugin", "Account " . |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
24 $account->get_username() . " went away.\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
25 Gaim::debug_info("perl test plugin", $data . "\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
26 } |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
27 |
6529 | 28 sub plugin_init { |
29 return %PLUGIN_INFO; | |
30 } | |
31 | |
32 sub plugin_load { | |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
33 Gaim::debug_info("perl test plugin", "plugin_load\n"); |
6529 | 34 my $plugin = shift; |
35 | |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
36 Gaim::debug_info("perl test plugin", "Listing accounts.\n"); |
6529 | 37 foreach $account (Gaim::accounts()) { |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
38 Gaim::debug_info("perl test plugin", $account->get_username() . "\n"); |
6529 | 39 } |
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
40 |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
41 Gaim::debug_info("perl test plugin", "Listing buddy list.\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
42 foreach $group (Gaim::BuddyList::groups()) { |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
43 Gaim::debug_info("perl test plugin", |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
44 $group->get_name() . ":\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
45 |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
46 foreach $buddy ($group->buddies()) { |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
47 Gaim::debug_info("perl test plugin", |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
48 " " . $buddy->get_name() . "\n"); |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
49 } |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
50 } |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
51 |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
52 Gaim::signal_connect(Gaim::Accounts::handle, "account-away", |
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
53 $plugin, \&account_away_cb, "test"); |
6529 | 54 } |
55 | |
56 sub plugin_unload { | |
57 my $plugin = shift; | |
58 } |