use Gaim;

%PLUGIN_INFO = (
	perl_api_version => 2,
	name => 'Figlet Plugin',
	version => '0.1',
	summary => 'Figlet-izes outgoing text',
	description => 'Figlet-izes outgoing text',
	author => 'CJ Kucera <gaim@apocalyptech.com>',
	url => 'http://apocalyptech.com/',
	load => 'plugin_load',
	unload => 'plugin_unload',
);

sub figletize
{
	my $data = \$_[2];
	Gaim::debug_info('figlet plugin', "Got data '$$data'\n");
	$$data = '<font face="Courier New">' . "\n" . `figlet "$$data"` . '</font>';
	return 1;
}

sub plugin_init
{
	return %PLUGIN_INFO;
}

sub plugin_load
{
	my $plugin = shift;

	Gaim::signal_connect(Gaim::Conversations::handle, 'sending-im-msg', $plugin, \&figletize, 0);
}

sub plugin_unload
{
	my $plugin = shift;
}