Mercurial > pidgin.yaz
view libpurple/plugins/perl/scripts/plugin_action.pl @ 21969:27d665278485
merge of '7e8103bd3c5298a43a4e18bb59037980f5c213c9'
and 'dc6923294f5f33ff7a52a998e1b9e9ad47be0211'
author | Evan Schoenberg <evan.s@dreskin.net> |
---|---|
date | Wed, 02 Jan 2008 06:42:29 +0000 |
parents | 2f8274ce570a |
children |
line wrap: on
line source
$MODULE_NAME = "Plugin Action Test Plugin"; use Purple; sub plugin_init { return %PLUGIN_INFO; } sub plugin_load { my $plugin = shift; } sub plugin_unload { my $plugin = shift; } sub fun1 { print "1\n"; } sub fun2 { print "2\n"; } sub fun3 { print "3\n"; } %plugin_actions = ( "Action 1" => \&fun1, "Action 2" => \&fun2, "Action 3" => \&fun3 # "Action 1" => sub { print "1\n"; }, # "Action 2" => sub { print "2\n"; }, # "Action 3" => sub { print "3\n"; } ); sub plugin_action_names { foreach $key (keys %plugin_actions) { push @array, $key; } return @array; } # All the information Purple gets about our nifty plugin %PLUGIN_INFO = ( perl_api_version => 2, name => "Perl: $MODULE_NAME", version => "0.1", summary => "Test plugin for the Perl interpreter.", description => "Just a basic test plugin template.", author => "Etan Reisner <deryni\@gmail.com>", url => "http://sourceforge.net/users/deryni9/", load => "plugin_load", unload => "plugin_unload", plugin_action_sub => "plugin_action_names" );