Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

resync file with changes to other columns. This does not include new NOTICES changes.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@121282 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%walrus.com 2002-05-10 21:18:52 +00:00
parent 6470956342
commit 5cfb4c130a
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
mozilla/webtools/tinderbox2/src/lib/TinderDB/BT_Req.pm
View File

@ -42,8 +42,8 @@
# $Revision: 1.4 $
# $Date: 2002-05-02 22:56:33 $
# $Revision: 1.5 $
# $Date: 2002-05-10 21:18:52 $
# $Author: kestes%walrus.com $
# $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/lib/TinderDB/BT_Req.pm,v $
# $Name: not supported by cvs2svn $
@ -82,7 +82,7 @@ use VCDisplay;
$VERSION = ( qw $Revision: 1.4 $ )[1];
$VERSION = ( qw $Revision: 1.5 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -140,25 +140,6 @@ sub clean_bug_input {
}
# remove all records from the database which are older then last_time.
sub trim_db_history {
my ($self, $tree,) = (@_);
my ($last_time) = $main::TIME - $TinderDB::TRIM_SECONDS;
# sort numerically ascending
my (@times) = sort {$a <=> $b} keys %{ $DATABASE{$tree} };
foreach $time (@times) {
($time >= $last_time) && last;
delete $DATABASE{$tree}{$time};
}
return ;
}
# get the recent data from the Req log file. There is one log file
# per tree.
@ -287,7 +268,7 @@ sub apply_db_updates {
$TinderDB::MAX_UPDATES_SINCE_TRIM)
) {
$METADATA{$tree}{'updates_since_trim'}=0;
trim_db_history(@_);
$self->trim_db_history(@_);
}
$self->savetree_db($tree);