Mercurial > pidgin
comparison libgaim/plugins/perl/scripts/request.pl @ 14447:e88aae4f4c40
[gaim-migrate @ 17161]
Make the Perl GTK+ stuff work in wingaim.
committer: Tailor Script <tailor@pidgin.im>
| author | Daniel Atallah <daniel.atallah@gmail.com> |
|---|---|
| date | Mon, 04 Sep 2006 23:00:13 +0000 |
| parents | d1d275a95d02 |
| children | 74cdcd0c58b5 |
comparison
equal
deleted
inserted
replaced
| 14446:1bee09450652 | 14447:e88aae4f4c40 |
|---|---|
| 14 | 14 |
| 15 load => "plugin_load", | 15 load => "plugin_load", |
| 16 unload => "plugin_unload", | 16 unload => "plugin_unload", |
| 17 plugin_action_sub => "plugin_action_names" | 17 plugin_action_sub => "plugin_action_names" |
| 18 ); | 18 ); |
| 19 | |
| 20 | |
| 21 # These names must already exist | |
| 22 my $GROUP = "UIUC Buddies"; | |
| 23 my $USERNAME = "johnhkelm2"; | |
| 24 | |
| 25 # We will create these on load then destroy them on unload | |
| 26 my $TEST_GROUP = "perlTestGroup"; | |
| 27 my $TEST_NAME = "perlTestName"; | |
| 28 my $TEST_ALIAS = "perlTestAlias"; | |
| 29 my $PROTOCOL_ID = "prpl-oscar"; | |
| 30 | 19 |
| 31 %plugin_actions = ( | 20 %plugin_actions = ( |
| 32 "Plugin Action Test Label" => \&plugin_action_test, | 21 "Plugin Action Test Label" => \&plugin_action_test, |
| 33 ); | 22 ); |
| 34 | 23 |
