mirror of
https://github.com/mozilla/gecko-dev.git
synced 2025-02-11 10:08:41 +00:00
parent
c8ab1dc7f1
commit
b3a10011c2
@ -90,13 +90,13 @@ if ($form{note}) {
|
||||
print NOTES "$buildtime|$buildname|$who|$now|$enc_note\n";
|
||||
|
||||
# Find the latest times for the "other" trees
|
||||
my (%build_status, %build_times);
|
||||
tb_loadquickparseinfo($tree, \%build_status, \%build_times, 1);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata, 1);
|
||||
|
||||
foreach my $element (keys %form) {
|
||||
# The checkboxes for the builds have "NAME" set to the build name
|
||||
if (defined $build_times{$element}) {
|
||||
print NOTES "$build_times{$element}|$element|$who|$now|$enc_note\n";
|
||||
if (defined $quickdata{$element}->{buildtime}) {
|
||||
print NOTES "$quickdata{$element}->{buildtime}|$element|$who|$now|$enc_note\n";
|
||||
}
|
||||
}
|
||||
close NOTES;
|
||||
@ -172,12 +172,12 @@ if ($form{note}) {
|
||||
__END_FORM
|
||||
|
||||
# Find the names of the "other" trees
|
||||
my (%build_status, %build_times);
|
||||
tb_loadquickparseinfo($tree, \%build_status, \%build_times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
my $ignore_builds = &tb_load_ignorebuilds($tree);
|
||||
|
||||
# Add a checkbox for the each of the other builds
|
||||
for my $other_build_name (sort keys %build_status) {
|
||||
for my $other_build_name (sort keys %quickdata) {
|
||||
if ($other_build_name ne '' and $other_build_name ne $buildname
|
||||
and not $ignore_builds->{$other_build_name}) {
|
||||
print "<INPUT TYPE='checkbox' NAME='$other_build_name'>";
|
||||
|
@ -920,10 +920,10 @@ sub do_express($) {
|
||||
|
||||
print "Content-type: text/html\nRefresh: 900\n\n<HTML>\n";
|
||||
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
my @keys = sort keys %build;
|
||||
my @keys = sort keys %quickdata;
|
||||
my $keycount = @keys;
|
||||
my $tm = &print_time(time);
|
||||
print "<table border=1 cellpadding=1 cellspacing=1><tr>";
|
||||
@ -934,7 +934,7 @@ sub do_express($) {
|
||||
}
|
||||
print ", $tm</a></tr><tr>\n";
|
||||
foreach my $buildname (@keys) {
|
||||
print "<td bgcolor='$colormap{$build{$buildname}}'>$buildname</td>";
|
||||
print "<td bgcolor='$colormap{$quickdata{$buildname}->{buildstatus}}'>$buildname</td>";
|
||||
}
|
||||
print "</tr></table>\n";
|
||||
}
|
||||
@ -946,8 +946,8 @@ sub do_panel($) {
|
||||
|
||||
print "Content-type: text/html\n\n<HTML>\n" unless $form_ref->{static};
|
||||
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
print q(
|
||||
<head>
|
||||
@ -980,8 +980,8 @@ sub do_panel($) {
|
||||
print ", $tm</a><br>";
|
||||
|
||||
print "<table border=0 cellpadding=1 cellspacing=1>";
|
||||
foreach my $buildname (sort {$times{$b} cmp $times{$a}} keys %build) {
|
||||
print "<tr><td bgcolor='$colormap{$build{$buildname}}'>$buildname</td></tr>";
|
||||
foreach my $buildname (sort {$quickdata{$b}->{buildtime} cmp $quickdata{$a}->{buildtime}} keys %quickdata) {
|
||||
print "<tr><td bgcolor='$colormap{$quickdata{$buildname}->{buildstatus}}'>$buildname</td></tr>";
|
||||
}
|
||||
print "</table></body>";
|
||||
}
|
||||
@ -992,13 +992,13 @@ sub do_flash($) {
|
||||
|
||||
print "Content-type: text/rdf\n\n" unless $form_ref->{static};
|
||||
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
my ($mac,$unix,$win) = (0,0,0);
|
||||
|
||||
while (my ($name, $status) = each %build) {
|
||||
next if $status eq 'success';
|
||||
foreach my $name (keys %quickdata) {
|
||||
next if $quickdata{$name}->{buildstatus} eq 'success';
|
||||
$mac = 1, next if $name =~ /Mac/;
|
||||
$win = 1, next if $name =~ /Win/;
|
||||
$unix = 1;
|
||||
@ -1069,11 +1069,16 @@ sub do_quickparse($) {
|
||||
$::global_treedata->{$tt}->{bonsai_tree} .
|
||||
"|$state\n";
|
||||
}
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tt, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tt, \%quickdata);
|
||||
|
||||
foreach my $buildname (sort keys %build) {
|
||||
print "Build|$tt|$buildname|$build{$buildname}|$times{$buildname}\n";
|
||||
# URL encode binaryurl so that urls with | will not
|
||||
# break the quickparse format
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
print "Build|$tt|$buildname|" .
|
||||
"$quickdata{$buildname}->{buildstatus}|" .
|
||||
"$quickdata{$buildname}->{buildtime}|" .
|
||||
url_encode($quickdata{$buildname}->{binaryurl}) . "\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -1089,13 +1094,13 @@ sub do_rdf($) {
|
||||
|
||||
$dirurl =~ s@/[^/]*$@@;
|
||||
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
my $image = "channelok.gif";
|
||||
my $imagetitle = "OK";
|
||||
foreach my $buildname (sort keys %build) {
|
||||
if ($build{$buildname} eq 'busted') {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted') {
|
||||
$image = "channelflames.gif";
|
||||
$imagetitle = "Bad";
|
||||
last;
|
||||
@ -1123,8 +1128,8 @@ sub do_rdf($) {
|
||||
"<link>$mainurl</link></item>\n";
|
||||
}
|
||||
|
||||
foreach my $buildname (sort keys %build) {
|
||||
if ($build{$buildname} eq 'busted') {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted') {
|
||||
print "<item><title>$buildname is in flames</title>",
|
||||
"<link>$mainurl</link></item>\n";
|
||||
}
|
||||
@ -1148,11 +1153,11 @@ sub do_hdml($) {
|
||||
if (&is_tree_state_available($tree)) {
|
||||
print "<LINE>$tree is " . (&is_tree_open($tree) ? 'open' : 'closed');
|
||||
}
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
foreach my $buildname (sort keys %build) {
|
||||
print "<LINE>$state_symbols{$build{$buildname}} $buildname\n";
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
print "<LINE>$state_symbols{$quickdata{$buildname}->{buildstatus}} $buildname\n";
|
||||
}
|
||||
|
||||
print q{
|
||||
@ -1187,17 +1192,17 @@ sub do_vxml($) {
|
||||
if (&is_tree_state_available($tree)) {
|
||||
print "<audio>$tree is " . (&is_tree_open($tree) ? 'open.' : 'closed.') . "</audio>";
|
||||
}
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
my $testFailed = 0;
|
||||
my $flames = 0;
|
||||
|
||||
print "\n";
|
||||
foreach my $buildname (sort keys %build) {
|
||||
if ($build{$buildname} eq 'busted') {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted') {
|
||||
$flames = 1;
|
||||
} elsif ($build{$buildname} eq 'testfailed') {
|
||||
} elsif ($quickdata{$buildname}->{buildstatus} eq 'testfailed') {
|
||||
$testFailed = 1;
|
||||
}
|
||||
}
|
||||
@ -1211,18 +1216,18 @@ sub do_vxml($) {
|
||||
}
|
||||
print "\n";
|
||||
|
||||
foreach my $buildname (sort keys %build) {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
print "<pause>500</pause>";
|
||||
print "\n";
|
||||
if ($build{$buildname} eq 'busted' ||
|
||||
$build{$buildname} eq 'testfailed') {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted' ||
|
||||
$quickdata{$buildname}->{buildstatus} eq 'testfailed') {
|
||||
print '<audio src="http://www.boulderdesign.com/sounds/getfixed.wav">bustage</audio>';
|
||||
print "\n";
|
||||
}
|
||||
|
||||
print "<pause>500</pause>";
|
||||
print "\n";
|
||||
print "<audio>$buildname is $state_symbols{$build{$buildname}} </audio>";
|
||||
print "<audio>$buildname is $state_symbols{$quickdata{$buildname}->{buildstatus}} </audio>";
|
||||
print "\n";
|
||||
}
|
||||
} else {
|
||||
@ -1253,17 +1258,17 @@ sub do_wml($) {
|
||||
if (&is_tree_state_available($tree)) {
|
||||
print "<p align='left'>$tree is " . (&is_tree_open($tree) ? 'open.' : 'closed.') . "</p>";
|
||||
}
|
||||
my (%build, %times);
|
||||
&tb_loadquickparseinfo($tree, \%build, \%times);
|
||||
my (%quickdata);
|
||||
tb_loadquickparseinfo($tree, \%quickdata);
|
||||
|
||||
my $testFailed = 0;
|
||||
my $flames = 0;
|
||||
|
||||
print "\n";
|
||||
foreach my $buildname (sort keys %build) {
|
||||
if ($build{$buildname} eq 'busted') {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted') {
|
||||
$flames = 1;
|
||||
} elsif ($build{$buildname} eq 'testfailed') {
|
||||
} elsif ($quickdata{$buildname}->{buildstatus} eq 'testfailed') {
|
||||
$testFailed = 1;
|
||||
}
|
||||
}
|
||||
@ -1285,11 +1290,11 @@ sub do_wml($) {
|
||||
print '<p align="center"><b><u>Builds</u></b></p>';
|
||||
print '<p mode="nowrap"><table columns="2">';
|
||||
|
||||
foreach my $buildname (sort keys %build) {
|
||||
foreach my $buildname (sort keys %quickdata) {
|
||||
print "<tr><td>[";
|
||||
if ($build{$buildname} eq 'busted') {
|
||||
if ($quickdata{$buildname}->{buildstatus} eq 'busted') {
|
||||
print '<b>RED</b>';
|
||||
} elsif ($build{$buildname} eq 'testfailed') {
|
||||
} elsif ($quickdata{$buildname}->{buildstatus} eq 'testfailed') {
|
||||
print '<b>TEST FAILED</b>';
|
||||
} else {
|
||||
print 'GREEN';
|
||||
|
@ -568,7 +568,7 @@ sub tb_load_data($) {
|
||||
}
|
||||
|
||||
sub tb_loadquickparseinfo {
|
||||
my ($tree, $build, $times, $includeStatusOfBuilding) = (@_);
|
||||
my ($tree, $qdref, $includeStatusOfBuilding) = (@_);
|
||||
local $_;
|
||||
|
||||
return if (! -d "$tree" || ! -r "$tree/build.dat");
|
||||
@ -581,7 +581,7 @@ sub tb_loadquickparseinfo {
|
||||
my $tooearly = 0;
|
||||
while( $_ = $bw->readline ) {
|
||||
chop;
|
||||
my ($buildtime, $buildname, $buildstatus) = (split /\|/)[1,2,4];
|
||||
my ($buildtime, $buildname, $buildstatus, $binaryurl) = (split /\|/)[1,2,4,6];
|
||||
|
||||
if ($includeStatusOfBuilding or
|
||||
$buildstatus =~ /^success|busted|testfailed$/) {
|
||||
@ -606,11 +606,12 @@ sub tb_loadquickparseinfo {
|
||||
$tooearly = 0;
|
||||
|
||||
next if exists $ignore_builds->{$buildname};
|
||||
next if exists $build->{$buildname}
|
||||
and $times->{$buildname} >= $buildtime;
|
||||
next if exists $qdref->{$buildname}->{buildstatus}
|
||||
and $qdref->{$buildname}->{buildtime} >= $buildtime;
|
||||
|
||||
$build->{$buildname} = $buildstatus;
|
||||
$times->{$buildname} = $buildtime;
|
||||
$qdref->{$buildname}->{buildstatus} = $buildstatus;
|
||||
$qdref->{$buildname}->{buildtime} = $buildtime;
|
||||
$qdref->{$buildname}->{binaryurl} = $binaryurl;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user