use strict;
use vars qw($VERSION %IRSSI);

use Irssi qw(signal_stop signal_continue signal_add_first signal_add settings_add_str settings_get_str settings_add_bool settings_get_bool);

$VERSION = '1.00';
%IRSSI = (
    authors	=> 'cvncpu',
    contact	=> 'sysop@cvncpu.net',
    name	=> 'l33t4lk',
    description	=> 'this should 3l33t ur txt',
    license	=> 'Public Domain',
    url		=> 'http://cvncpu.net/',
);

sub mf ($$$) {
	my ($line, $server, $witem) = @_;
	return unless ref $witem;
	if ($line && settings_get_bool('le_enable')) {
		signal_stop();
		$_ = settings_get_str('le_start')."".$line."".settings_get_str('le_end');
		signal_continue($_, $server, $witem);
	}
}

settings_add_str('le', 'le_start', '.:[-{ ');
settings_add_str('le', 'le_end', ' }-]:.');
settings_add_bool('le', 'le_enable', 1);
signal_add_first('send text', "mf");