#!/usr/bin/perl

use strict;
use warnings;
use File::ReadBackwards;

my $file = '/path/to/file.txt';
my $frb =  File::ReadBackwards->new( 'log_file' ) or
                        die "can't read 'log_file' $!";

for(0..9){
    print $frb->readline();
}

    $main->{template_vars}{log_filename}=$filename;
    $main->printTemplate('admin/log_top');

    my %rooms = map {$_ => 1} split(/\s+/,$main->{input}{rooms});
    foreach (@entries)
    {
        s/[\n\r]//g;
        my ($time,$user,$room,$message) = split(/\|/,$_,4);
        if (($user eq '' && $room eq '' && $main->{input}{show_global})
         || ($user ne '' && $main->{input}{show_private})
         || ($room ne '' && !$rooms{$room} && $main->{input}{show_nonexistent})
         || ($room ne '' && $main->{input}{"show_room.$room"}))
        {
            $message = $main->fromOutputString($message);
            if ($main->{input}{"show_template.$message->{template}"})
            {
               
 $message->{time} = $time;
               
 $message->{_user} = $user;
               
 $message->{_room} = $room;
               
 
               
 $main->{template_vars}{params}=$message;

               
 my $output = '';
               
 $main->parseTemplate('log/'.$message->{template})->process($main,\$output);

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use File::ReadBackwards;

my $cgi = CGI->new();
print $cgi->header('text/plain');

my $file = '/path/to/file.txt';
my $frb =  File::ReadBackwards->new( 'log_file' ) or
                       die "can't read 'log_file' $!";

for(0..9){
   print $frb->readline();
}

      package Plugins::MyPlugin;
      return bless({

            template_command_handlers => {
                  MY_TAG  => \&tagHandler,
            },
      });

      sub tagHandler
      { 
           my ($self, $main, $params, $output) = @_; 
           my ($tag, $name) = @$params;
            $$output .= "$name was here";
      }