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