projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added mark messages as read or unread
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index 3c0203575d978e3355bd95b41df023268080a98f..b287413da9a511d7e5cb8e3863889c0228bde6d9 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-25,15
+25,15
@@
use strict;
#
sub print
{
#
sub print
{
- my $
self
= $DXLog::log;
+ my $
fcb
= $DXLog::log;
my $from = shift;
my $to = shift;
my $from = shift;
my $to = shift;
- my @date =
$self->unixtoj
(shift);
+ my @date =
Julian::unixtojm
(shift);
my $pattern = shift;
my $who = uc shift;
my $search;
my @in;
my $pattern = shift;
my $who = uc shift;
my $search;
my @in;
- my @out;
+ my @out
= ()
;
my $eval;
my $count;
my $eval;
my $count;
@@
-55,25
+55,28
@@
sub print
}
);
}
);
- $
self
->close; # close any open files
+ $
fcb
->close; # close any open files
- my $fh = $
self
->open(@date);
+ my $fh = $
fcb
->open(@date);
for ($count = 0; $count < $to; ) {
for ($count = 0; $count < $to; ) {
- my
@spots = ()
;
+ my
$ref
;
if ($fh) {
if ($fh) {
+ @in = ();
while (<$fh>) {
chomp;
while (<$fh>) {
chomp;
- push @in, [ split '\^' ];
+ $ref = [ split '\^' ];
+ push @{$ref}, "" unless @{$ref} >= 4;
+ push @in, $ref;
}
eval $eval; # do the search on this file
last if $count >= $to; # stop after n
return ("Log search error", $@) if $@;
}
}
eval $eval; # do the search on this file
last if $count >= $to; # stop after n
return ("Log search error", $@) if $@;
}
- $fh = $
self
->openprev(); # get the next file
+ $fh = $
fcb
->openprev(); # get the next file
last if !$fh;
}
last if !$fh;
}
- return @out
if defined @out
;
+ return @out;
}
#
}
#