This commit is contained in:
kestes%walrus.com 2002-05-03 21:25:24 +00:00
Родитель 98d6fbe6f4
Коммит 7b80f2f6ec
1 изменённых файлов: 7 добавлений и 26 удалений

Просмотреть файл

@ -40,8 +40,8 @@
# Contributor(s):
# $Revision: 1.29 $
# $Date: 2002-05-03 21:09:51 $
# $Revision: 1.30 $
# $Date: 2002-05-03 21:25:24 $
# $Author: kestes%walrus.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/VC_Bonsai.pm,v $
# $Name: $
@ -101,7 +101,7 @@ use TreeData;
use VCDisplay;
$VERSION = ( qw $Revision: 1.29 $ )[1];
$VERSION = ( qw $Revision: 1.30 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -112,25 +112,7 @@ $VC_NAME = $TinderConfig::VC_NAME || "CVS";
$VC_BUGNUM_REGEXP = $TinderConfig::VC_BUGNUM_REGEXP ||
"(\d\d\d+)";
$EMPTY_TABLE_CELL = $HTMLPopUp::EMPTY_TABLE_CELL ||
# 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 ;
}
$EMPTY_TABLE_CELL = $HTMLPopUp::EMPTY_TABLE_CELL;
# Return the most recent times that we recieved treestate and checkin
@ -411,15 +393,14 @@ sub status_table_row {
$rowspan++ ;
}
my ($cell_color) = BuildStatus::status2html_colors('not_running');
my ($cell_options) = ("rowspan=$rowspan ".
"bgcolor=$cell_color ");
my ($lc_time) = localtime($current_rec->{'timenow'});
my ($lc_time) = localtime($DB_TIMES[$NEXT_DB]);
push @outrow, ("\t<!-- not_running: Build:".
push @outrow, ("\t<!-- not_running: VC_Bonsai ".
"tree: $tree, ".
"build: $buildname, ".
"previous_end: $lc_time, ".
"Next_End: $lc_time, ".
"-->\n".
"\t\t<td align=center $cell_options>".