Mercurial > pidgin.yaz
annotate plugins/test.pl @ 12024:e67993da8a22
[gaim-migrate @ 14317]
I strongly suspect CruiseControl is going to yell at me for this.
A voice chat API, GUI + mediastreamer. This is what I'm using for Google Talk.
This doesn't actually do anything at all. There's no code in the Jabber plugin yet
to use this API (although it Works For Me). All it will do is compile and link.
If you're lucky.
To build this, you should install oRTP from Linphone, Speex and iLBC (also
from linphone, I believe). To not build this, ./configure --disable-vv.
Most of the configure.ac and Makefile.am hackery was lifted right out of
Linphone with a few modifications. It seems to work if you have everything
installed or if you --disable-vv. I haven't really tested not having
everything installed and not --disabling-vv.
It's kinda funky to include all of mediastreamer in the source tree like this,
but linphone doesn't build it as a separate library. I'll probably wind up
writing them a patch to build it as a .so so we can link it dynamically instead.
This code certainly isn't finished. It'll adapt as I progress on the Google code,
but it's certainly of more use here in CVS than in my personal tree.
committer: Tailor Script <tailor@pidgin.im>
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Wed, 09 Nov 2005 08:07:20 +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 } |