comparison: libpurple/plugins/perl/scripts/request.pl
libpurple/plugins/perl/scripts/request.pl
- changeset 15894
- 765ec644ac47
- parent 15435
- 4b933b06d75e
- child 16238
- 33bf2fd32108
- child 18068
- b6554e3c8224
- child 20478
- 46933dc62880
equal
deleted
inserted
replaced
| 15893:b9be4c428c3e | 15894:765ec644ac47 |
|---|---|
| 1 $MODULE_NAME = "Request Functions Test"; | 1 $MODULE_NAME = "Request Functions Test"; |
| 2 | 2 |
| 3 use Gaim; | 3 use Purple; |
| 4 | 4 |
| 5 # All the information Gaim gets about our nifty plugin | 5 # All the information Purple gets about our nifty plugin |
| 6 %PLUGIN_INFO = ( | 6 %PLUGIN_INFO = ( |
| 7 perl_api_version => 2, | 7 perl_api_version => 2, |
| 8 name => "Perl: $MODULE_NAME", | 8 name => "Perl: $MODULE_NAME", |
| 9 version => "0.1", | 9 version => "0.1", |
| 10 summary => "Test plugin for the Perl interpreter.", | 10 summary => "Test plugin for the Perl interpreter.", |
| 34 } | 34 } |
| 35 | 35 |
| 36 sub ok_cb_test { | 36 sub ok_cb_test { |
| 37 $fields = shift; | 37 $fields = shift; |
| 38 | 38 |
| 39 Gaim::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); | 39 Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); |
| 40 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: BEGIN\n"); | 40 Purple::Debug::info($MODULE_NAME, "ok_cb_test: BEGIN\n"); |
| 41 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: Button Click\n"); | 41 Purple::Debug::info($MODULE_NAME, "ok_cb_test: Button Click\n"); |
| 42 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: Field Type: $fields \n"); | 42 Purple::Debug::info($MODULE_NAME, "ok_cb_test: Field Type: $fields \n"); |
| 43 $account = Gaim::Request::Fields::get_account($fields, "acct_test"); | 43 $account = Purple::Request::Fields::get_account($fields, "acct_test"); |
| 44 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: Username of selected account: " . Gaim::Account::get_username($account) . "\n"); | 44 Purple::Debug::info($MODULE_NAME, "ok_cb_test: Username of selected account: " . Purple::Account::get_username($account) . "\n"); |
| 45 $int = Gaim::Request::Fields::get_integer($fields, "int_test"); | 45 $int = Purple::Request::Fields::get_integer($fields, "int_test"); |
| 46 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: Integer Value: $int \n"); | 46 Purple::Debug::info($MODULE_NAME, "ok_cb_test: Integer Value: $int \n"); |
| 47 $choice = Gaim::Request::Fields::get_choice($fields, "ch_test"); | 47 $choice = Purple::Request::Fields::get_choice($fields, "ch_test"); |
| 48 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: Choice Value: $choice \n"); | 48 Purple::Debug::info($MODULE_NAME, "ok_cb_test: Choice Value: $choice \n"); |
| 49 Gaim::Debug::info($MODULE_NAME, "ok_cb_test: END\n"); | 49 Purple::Debug::info($MODULE_NAME, "ok_cb_test: END\n"); |
| 50 } | 50 } |
| 51 | 51 |
| 52 sub cancel_cb_test { | 52 sub cancel_cb_test { |
| 53 Gaim::Debug::info($MODULE_NAME, "cancel_cb_test: Button Click\n"); | 53 Purple::Debug::info($MODULE_NAME, "cancel_cb_test: Button Click\n"); |
| 54 } | 54 } |
| 55 | 55 |
| 56 sub plugin_action_test { | 56 sub plugin_action_test { |
| 57 $plugin = shift; | 57 $plugin = shift; |
| 58 Gaim::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); | 58 Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n"); |
| 59 plugin_request($plugin); | 59 plugin_request($plugin); |
| 60 Gaim::Debug::info($MODULE_NAME, "plugin_action_cb_test: END\n"); | 60 Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: END\n"); |
| 61 } | 61 } |
| 62 | 62 |
| 63 sub plugin_load { | 63 sub plugin_load { |
| 64 my $plugin = shift; | 64 my $plugin = shift; |
| 65 ######### TEST CODE HERE ########## | 65 ######### TEST CODE HERE ########## |
| 66 | 66 |
| 67 | 67 |
| 68 } | 68 } |
| 69 | 69 |
| 70 sub plugin_request { | 70 sub plugin_request { |
| 71 $group = Gaim::Request::Field::Group::new("Group Name"); | 71 $group = Purple::Request::Field::Group::new("Group Name"); |
| 72 $field = Gaim::Request::Field::account_new("acct_test", "Account Text", undef); | 72 $field = Purple::Request::Field::account_new("acct_test", "Account Text", undef); |
| 73 Gaim::Request::Field::account_set_show_all($field, 0); | 73 Purple::Request::Field::account_set_show_all($field, 0); |
| 74 Gaim::Request::Field::Group::add_field($group, $field); | 74 Purple::Request::Field::Group::add_field($group, $field); |
| 75 | 75 |
| 76 $field = Gaim::Request::Field::int_new("int_test", "Integer Text", 33); | 76 $field = Purple::Request::Field::int_new("int_test", "Integer Text", 33); |
| 77 Gaim::Request::Field::Group::add_field($group, $field); | 77 Purple::Request::Field::Group::add_field($group, $field); |
| 78 | 78 |
| 79 # Test field choice | 79 # Test field choice |
| 80 $field = Gaim::Request::Field::choice_new("ch_test", "Choice Text", 1); | 80 $field = Purple::Request::Field::choice_new("ch_test", "Choice Text", 1); |
| 81 Gaim::Request::Field::choice_add($field, "Choice 0"); | 81 Purple::Request::Field::choice_add($field, "Choice 0"); |
| 82 Gaim::Request::Field::choice_add($field, "Choice 1"); | 82 Purple::Request::Field::choice_add($field, "Choice 1"); |
| 83 Gaim::Request::Field::choice_add($field, "Choice 2"); | 83 Purple::Request::Field::choice_add($field, "Choice 2"); |
| 84 | 84 |
| 85 Gaim::Request::Field::Group::add_field($group, $field); | 85 Purple::Request::Field::Group::add_field($group, $field); |
| 86 | 86 |
| 87 | 87 |
| 88 $request = Gaim::Request::Fields::new(); | 88 $request = Purple::Request::Fields::new(); |
| 89 Gaim::Request::Fields::add_group($request, $group); | 89 Purple::Request::Fields::add_group($request, $group); |
| 90 | 90 |
| 91 Gaim::Request::fields( | 91 Purple::Request::fields( |
| 92 $plugin, | 92 $plugin, |
| 93 "Request Title!", | 93 "Request Title!", |
| 94 "Primary Title", | 94 "Primary Title", |
| 95 "Secondary Title", | 95 "Secondary Title", |
| 96 $request, | 96 $request, |
| 98 "Cancel Text", "cancel_cb_test"); | 98 "Cancel Text", "cancel_cb_test"); |
| 99 } | 99 } |
| 100 | 100 |
| 101 sub plugin_unload { | 101 sub plugin_unload { |
| 102 my $plugin = shift; | 102 my $plugin = shift; |
| 103 Gaim::Debug::info($MODULE_NAME, "#" x 80 . "\n"); | 103 Purple::Debug::info($MODULE_NAME, "#" x 80 . "\n"); |
| 104 ######### TEST CODE HERE ########## | 104 ######### TEST CODE HERE ########## |
| 105 | 105 |
| 106 | 106 |
| 107 Gaim::Debug::info($MODULE_NAME, "\n" . "#" x 80 . "\n"); | 107 Purple::Debug::info($MODULE_NAME, "\n" . "#" x 80 . "\n"); |
| 108 } | 108 } |
| 109 | 109 |
