package Plugins::TextCommands;
use strict;

return bless({
    command_handlers => {
        'renee' => \&renee_handler,
    },
});

sub custom_handler
{
    my($self,$main,$command,$text) = @_;
    
    my @ret=();

    if ($text ne '')
    {
        my $output = $main->createOutput(
               
 {
               
     template => $command,
               
     name => $main->{current_user}{name},
               
     nick => $main->{current_user}{nick},
               
     color => $main->{current_user}{color},
               
     text => $main->toHTML($text),
               
 });
        $output->restrictToCurrentRoom;
        push @ret,$output;
    }
    
    return \@ret;
}

<font color="{GET|$params.color}"><i>&lt;<a href="javascript:void(0)" onfocus="resetFocus()" onclick="{IF|$params.name ne $current_user.name}{IF|$current_user.popup_privatemsg}writePrivateMsg('{GET_ESCAPED|$params.name}','{GET_ESCAPED|$params.nick}','');{ELSE}insertText('/msg {GET_JS|$params.nick} ');{ENDIF}{ENDIF}return false;" style="color:{GET|$params.color}">{GET|$params.nick}</a> {DOFILTER|links|formatting|smileys|smileyshide}{GET|$params.text}{ENDDO}&gt;</i></font><br> 

package Plugins::TextCommands;
use strict;
use lib qw(/home/www/web33/html/cgi-bin/test/);
use File::ReadBackwards;


return bless({
    command_handlers => {
        'texts' => \&texts_handler,
    },
});

sub texts_handler
{
    my($self,$main,$command,$text) = @_;
    
    my @ret=();

    my $file = './Variables/messages.log';
    my $frb =  File::ReadBackwards->new( $file ) or
                    die "can't read $file $!";

    for(0..9)
    {

    my $output = $main->createOutput(
               
 {
               
     template => 'xyz',
               
     texts => $frb->readline(),
               
     nick => $main->{current_user}{nick},
               
     color => $main->{current_user}{color},
               
     text => $main->toHTML($text),
               
 });
        $output->restrictToCurrentRoom;
        push @ret,$output;
    
    return \@ret;
}
}

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();
            }
}