mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 08:17:10 +00:00
127 lines
2.4 KiB
Perl
127 lines
2.4 KiB
Perl
#
|
|
# Log Printing routines
|
|
#
|
|
# Copyright (c) - 1998 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
package DXLog;
|
|
|
|
use IO::File;
|
|
use DXVars;
|
|
#use DXDebug ();
|
|
use DXUtil;
|
|
use DXLog;
|
|
use Julian;
|
|
|
|
use strict;
|
|
|
|
#
|
|
# print some items from the log backwards in time
|
|
#
|
|
# This command outputs a list of n lines starting from time t with $pattern tags
|
|
#
|
|
sub print
|
|
{
|
|
my $fcb = $DXLog::log;
|
|
my $from = shift;
|
|
my $to = shift;
|
|
my @date = Julian::unixtojm(shift);
|
|
my $pattern = shift;
|
|
my $who = uc shift;
|
|
my $search;
|
|
my @in;
|
|
my @out = ();
|
|
my $eval;
|
|
my $count;
|
|
my $hint = "";
|
|
|
|
if ($pattern) {
|
|
$search = "\$ref->[1] =~ m{^$pattern}i";
|
|
$hint = "m{$pattern}i";
|
|
}
|
|
if ($who) {
|
|
if ($search) {
|
|
$search .= ' && ';
|
|
$hint .= ' && ';
|
|
}
|
|
$search .= "(\$ref->[2] =~ m{$who}i || \$ref->[3] =~ m{$who}i)";
|
|
$hint .= 'm{$who}i';
|
|
}
|
|
$hint = "next unless $hint" if $hint;
|
|
$search = "1" unless $search;
|
|
|
|
$eval = qq(
|
|
\@in = ();
|
|
while (<\$fh>) {
|
|
$hint;
|
|
chomp;
|
|
\$ref = [ split '\\^' ];
|
|
push \@\$ref, "" unless \@\$ref >= 4;
|
|
push \@in, \$ref;
|
|
}
|
|
my \$c;
|
|
for (\$c = \$#in; \$c >= 0; \$c--) {
|
|
\$ref = \$in[\$c];
|
|
if ($search) {
|
|
\$count++;
|
|
next if \$count < $from;
|
|
push \@out, print_item(\$ref);
|
|
last if \$count >= \$to; # stop after n
|
|
}
|
|
}
|
|
);
|
|
|
|
$fcb->close; # close any open files
|
|
|
|
my $fh = $fcb->open(@date);
|
|
for ($count = 0; $count < $to; ) {
|
|
my $ref;
|
|
if ($fh) {
|
|
eval $eval; # do the search on this file
|
|
last if $count >= $to; # stop after n
|
|
return ("Log search error", $@) if $@;
|
|
}
|
|
$fh = $fcb->openprev(); # get the next file
|
|
last if !$fh;
|
|
}
|
|
|
|
return @out;
|
|
}
|
|
|
|
#
|
|
# the standard log printing interpreting routine.
|
|
#
|
|
# every line that is printed should call this routine to be actually visualised
|
|
#
|
|
# Don't really know whether this is the correct place to put this stuff, but where
|
|
# else is correct?
|
|
#
|
|
# I get a reference to an array of items
|
|
#
|
|
sub print_item
|
|
{
|
|
my $r = shift;
|
|
my @ref = @$r;
|
|
my $d = atime($ref[0]);
|
|
my $s = 'undef';
|
|
|
|
if ($ref[1] eq 'rcmd') {
|
|
if ($ref[2] eq 'in') {
|
|
$s = "$ref[4] (priv: $ref[3]) rcmd: $ref[5]";
|
|
} else {
|
|
$s = "$ref[3] reply: $ref[4]";
|
|
}
|
|
} elsif ($ref[1] eq 'talk') {
|
|
$s = "$ref[3] -> $ref[2] ($ref[4]) $ref[5]";
|
|
} elsif ($ref[1] eq 'ann') {
|
|
$s = "$ref[3] -> $ref[2] $ref[4]";
|
|
} else {
|
|
$s = "$ref[2]";
|
|
}
|
|
return "$d $s";
|
|
}
|
|
|
|
1;
|