projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. protect against PC41s with field[3] == field[2]
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index 6d37cb415d16ddfba84d481aa69055e881f653d2..c2434aba48f8f5eda22edc3c2c909e7371ffc095 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-27,7
+27,7
@@
sub print
my $fcb = $DXLog::log;
my $from = shift;
my $to = shift;
my $fcb = $DXLog::log;
my $from = shift;
my $to = shift;
- my
@date = Julian::unixtojm
(shift);
+ my
$jdate = $fcb->unixtoj
(shift);
my $pattern = shift;
my $who = uc shift;
my $search;
my $pattern = shift;
my $who = uc shift;
my $search;
@@
-67,7
+67,7
@@
sub print
if ($search) {
\$count++;
next if \$count < $from;
if ($search) {
\$count++;
next if \$count < $from;
-
push
\@out, print_item(\$ref);
+
unshift
\@out, print_item(\$ref);
last if \$count >= \$to; # stop after n
}
}
last if \$count >= \$to; # stop after n
}
}
@@
-75,7
+75,7
@@
sub print
$fcb->close; # close any open files
$fcb->close; # close any open files
- my $fh = $fcb->open(
@
date);
+ my $fh = $fcb->open(
$j
date);
for ($count = 0; $count < $to; ) {
my $ref;
if ($fh) {
for ($count = 0; $count < $to; ) {
my $ref;
if ($fh) {