Mercurial > pidgin.yaz
view libpurple/plugins/perl/scripts/request.pl @ 24376:40141d227b27
Seriously why would you ever do this? Use g_path_get_basename()
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Fri, 14 Nov 2008 20:13:22 +0000 |
parents | 2f8274ce570a |
children |
line wrap: on
line source
$MODULE_NAME = "Request Functions Test"; use Purple; # 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 => "Implements a set of test proccedures to ensure all functions that work in the C API still work in the Perl plugin interface. As XSUBs are added, this *should* be updated to test the changes. Furthermore, this will function as the tutorial perl plugin.", author => "John H. Kelm <johnhkelm\@gmail.com>", url => "http://sourceforge.net/users/johnhkelm/", load => "plugin_load", unload => "plugin_unload", plugin_action_sub => "plugin_action_names" ); %plugin_actions = ( "Plugin Action Test Label" => \&plugin_action_test, ); sub plugin_action_names { foreach $key (keys %plugin_actions) { push @array, $key; } return @array; } sub plugin_init { return %PLUGIN_INFO; } sub ok_cb_test { $fields = shift; Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: BEGIN\n"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: Button Click\n"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: Field Type: $fields \n"); $account = Purple::Request::Fields::get_account($fields, "acct_test"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: Username of selected account: " . Purple::Account::get_username($account) . "\n"); $int = Purple::Request::Fields::get_integer($fields, "int_test"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: Integer Value: $int \n"); $choice = Purple::Request::Fields::get_choice($fields, "ch_test"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: Choice Value: $choice \n"); Purple::Debug::info($MODULE_NAME, "ok_cb_test: END\n"); } sub cancel_cb_test { Purple::Debug::info($MODULE_NAME, "cancel_cb_test: Button Click\n"); } sub plugin_action_test { $plugin = shift; Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); plugin_request($plugin); Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: END\n"); } sub plugin_load { my $plugin = shift; ######### TEST CODE HERE ########## } sub plugin_request { $group = Purple::Request::Field::Group::new("Group Name"); $field = Purple::Request::Field::account_new("acct_test", "Account Text", undef); Purple::Request::Field::account_set_show_all($field, 0); Purple::Request::Field::Group::add_field($group, $field); $field = Purple::Request::Field::int_new("int_test", "Integer Text", 33); Purple::Request::Field::Group::add_field($group, $field); # Test field choice $field = Purple::Request::Field::choice_new("ch_test", "Choice Text", 1); Purple::Request::Field::choice_add($field, "Choice 0"); Purple::Request::Field::choice_add($field, "Choice 1"); Purple::Request::Field::choice_add($field, "Choice 2"); Purple::Request::Field::Group::add_field($group, $field); $request = Purple::Request::Fields::new(); Purple::Request::Fields::add_group($request, $group); Purple::Request::fields( $plugin, "Request Title!", "Primary Title", "Secondary Title", $request, "Ok Text", "ok_cb_test", "Cancel Text", "cancel_cb_test"); } sub plugin_unload { my $plugin = shift; Purple::Debug::info($MODULE_NAME, "#" x 80 . "\n"); ######### TEST CODE HERE ########## Purple::Debug::info($MODULE_NAME, "\n" . "#" x 80 . "\n"); }