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

use Irssi;
$VERSION = '0.1a';
%IRSSI =
(
 authors => 'Patroklos Argyroudis',
 contact => 'argp at domain cs.tcd.ie',
 name => 'reverse sentence',
 description => 'Reverses the order of words in the typed sentence',
 license => 'BSD',
 commands => 'rev',
);

sub cmd_rev
{
 my ($text, $server, $dest) = @_;

 $text = join("", reverse split(/(\S+)/, $text));

 if(!$server || !$server->{connected})
 {
  Irssi::print("error");
  return;
 }

 return unless $dest;
 
 if($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY")
 {
  $dest->command('msg '.$dest->{name}.' '.$text);
 }
}

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