diff plugins/test.pl @ 6529:e4e87ffd9f14

[gaim-migrate @ 7046] The fortunateprofile.pl script works again. At least, I think it works, but it's never worked here, but all the events and suff work, so that's good, and i added a test.pl that people acan also see. now I'm going to bebd. committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/test.pl	Wed Aug 20 11:08:19 2003 +0000
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+
+use Gaim;
+use vars qw(%PLUGIN_INFO);
+
+%PLUGIN_INFO = (
+	perl_api_version => 2,
+	name             => 'Test Perl Plugin',
+	version          => '1.0',
+	summary          => 'Provides as a test base for the perl plugin.',
+	description      => 'Provides as a test base for the perl plugin.',
+	author           => 'Christian Hammond <[e-mail]>',
+	url              => 'http://gaim.sf.net/',
+
+	load             => "plugin_load",
+	unload           => "plugin_unload",
+);
+
+sub plugin_init {
+	return %PLUGIN_INFO;
+}
+
+sub plugin_load {
+	my $plugin = shift;
+
+	foreach $account (Gaim::accounts()) {
+		Gaim::debug("perl test plugin", $account->get_username() . "\n");
+	}
+}
+
+sub plugin_unload {
+	my $plugin = shift;
+}