hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

add a 36 month limit on sh/log queries.

Browse Source
This commit is contained in:
minima 2006-01-15 20:18:48 +00:00
parent 2d04aeea02
commit 57ffea56da
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -4,6 +4,7 @@ with initialising the User file.
2. Fixed the problem with certain things not being shown in sh/log (because of
a regex that rejected too many things).
3. Speeded up sh/log quite a bit at the same time.
4. Add a default limit of the last 36 months for sh/log querys.
14Jan06=======================================================================
1. undo frequency rounding change, it causes more problems than it solves.
11Jan06=======================================================================

10
perl/DXLogPrint.pm
View File

@ -18,12 +18,14 @@ use RingBuf;
use strict;
use vars qw($VERSION $BRANCH);
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;
$maxmonths = 36;
#
# print some items from the log backwards in time
#
@ -70,8 +72,9 @@ sub print
$fcb->close; # close any open files
my $months;
my $fh = $fcb->open($jdate);
L1: for (;@in < $to;) {
L1: for ($months = 0; $months < $maxmonths && @in < $tot; $months++) {
my $ref;
my $ring = RingBuf->new($tot);
@ -87,6 +90,9 @@ sub print
$fh = $fcb->openprev(); # get the next file
last if !$fh;
}
@in = splice @in, -$tot, $tot if @in > $tot;
for (@in) {
my @line = split /\^/ ;
push @out, print_item(\@line);