projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-2413 prefixes
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index 8ce8e35c535492b6ec1a1dbe9f6a3176de191d08..b16d69e4c055b38406c7a52c30972acea6f2900f 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-3,7
+3,7
@@
#
# Copyright (c) - 1998 Dirk Koopman G1TLH
#
#
# Copyright (c) - 1998 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
package DXLog;
#
package DXLog;
@@
-18,12
+18,7
@@
use RingBuf;
use strict;
use strict;
-use vars qw($VERSION $BRANCH $maxmonths);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
+use vars qw($maxmonths);
$maxmonths = 36;
#
$maxmonths = 36;
#
@@
-38,7
+33,7
@@
sub print
my $to = shift || 10;
my $jdate = $fcb->unixtoj(shift);
my $pattern = shift;
my $to = shift || 10;
my $jdate = $fcb->unixtoj(shift);
my $pattern = shift;
- my $who =
uc
shift;
+ my $who = shift;
my $search;
my @in;
my @out = ();
my $search;
my @in;
my @out = ();
@@
-46,6
+41,8
@@
sub print
my $tot = $from + $to;
my $hint = "";
my $tot = $from + $to;
my $hint = "";
+ $who = uc $who if defined $who;
+
if ($pattern) {
$hint = "m{\\Q$pattern\\E}i";
} else {
if ($pattern) {
$hint = "m{\\Q$pattern\\E}i";
} else {
@@
-84,7
+81,7
@@
sub print
return ("Log search error", $@) if $@;
@in = ($ring->readall, @in);
return ("Log search error", $@) if $@;
@in = ($ring->readall, @in);
- last L1 if @in > $tot;
+ last L1 if @in >
=
$tot;
}
$fh = $fcb->openprev(); # get the next file
}
$fh = $fcb->openprev(); # get the next file