Sample perl plugin that does nothing.

sample.pl (text/plain), 701 bytes, created by Wallex on 2004-06-28 10:35:31 UTC

use Gaim;

%PLUGIN_INFO = (
	perl_api_version => 2,
	name             => "Sample Plugin",
	version          => "0.1",
	summary          => "Sample",
	description      => "Sample",
	author           => "Noone",
	url              => "-",
	load             => "plugin_load",
	unload           => "plugin_unload"
);
sub plugin_init {
	return %PLUGIN_INFO;
}

sub buddy_signed {
	return 0;
}

sub plugin_load {
	my $plugin = shift;
													
	Gaim::signal_connect(Gaim::BuddyList::handle, "buddy-signed-on",
								$plugin, \&buddy_signed, "on");
	Gaim::signal_connect(Gaim::BuddyList::handle, "buddy-signed-off",
								$plugin, \&buddy_signed, "off");
}

sub plugin_unload {
	my $plugin = shift;
}