package GTChat::Plugins::MyPlugin;

use File::ReadBackwards;

return bless({
       template_command_handlers => {
                FRB  => \&read_backwards,
            },
});

sub read_backwards{
            my ($self, $main, $params, $output) = @_;

            my ($tag, $file,$linecount) = @$params;
            my $frb = File::ReadBackwards->new( $file ) or
                   die "can't read $file $!";
            for(1..$linecount){
                $$output .= $frb->readline();
            }
}