Mercurial > pidgin3 / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/scripts/request.pl	Mon Apr 16 00:44:33 2007 +0000
@@ -0,0 +1,109 @@
+$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");
+}
+