Mercurial > pidgin.yaz
annotate plugins/test.pl @ 13342:bd981bf1a663
[gaim-migrate @ 15712]
SF Patch #1439221 from Shawn Outman
"The fix that allowed the message window to blink with
the first message in the conversation also allowed it
to blink with system messages, including those from the
Buddy State Notification plugin.
This patch modifies winprefs to not flash for system
messages, which is how it is in 1.5 and 2.0beta1 & 2.
(The first message in the conversation still causes it
to blink, however)."
committer: Tailor Script <tailor@pidgin.im>
author | Richard Laager <rlaager@wiktel.com> |
---|---|
date | Tue, 28 Feb 2006 01:27:12 +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 } |