use Irssi;
use Irssi::Irc;
use strict;
use warnings;
use vars qw($VERSION %IRSSI);
$VERSION="0.0.1";
%IRSSI = (
	authors	=> 'johnny',
	contact	=> 'johnny\@netvor.sk',
	name	=> 'reverse',
	description	=> 'reverse',
	license	=> 'BSD',
	url	=> 'http://netvor.sk/~johnny/',
);

sub cmd_rev {
	my ($data, $server, $witem) = @_;
	if (!$server || !$server->{connected}) {
		Irssi::print ("not connected");
		return;
	} 
	$witem->command("/SAY ".reverse split("",$data));
}

Irssi::command_bind('rev','cmd_rev');