Mercurial > pidgin.yaz
annotate plugins/test.pl @ 8146:596c64a2a2d0
[gaim-migrate @ 8854]
"
(16:36:05) Me: Hi Sean
(16:36:21) Me: Mind if I e-mail you a little COPYRIGHT related diff?
(16:37:17) Sean: Yes, I do!
(16:37:22) Sean: How dare you consider e-mailing me patches?
(16:37:26) Sean: seriously, now.
(16:37:32) Me:
(16:38:42) Me: Look at my webcam:
[URL to patch, now attached to this message]
(16:43:03) Sean: Have Luke commit it for me
(16:43:17) Sean: I won't be around until late tomorrow night.
(16:46:53) Me: ahh, k
It's a pretty straightforward deal - I think I mentioned this the other
day: .[c|h] files in src/ should have the generic copyright. Also,
giving Marc Mulcahy credit for the accessibility stuff.
Cheers,
John [Silvestri]"
except that i'd already given Marc credit
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Tue, 20 Jan 2004 02:51:14 +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 } |