Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-03 18:47:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add option to mail $FailedBuildAdministrator upon initial build failure.

Browse Source 
Bug #206665 r=preed
This commit is contained in:
cls%seawood.org 2007-01-23 19:38:47 +00:00
parent f9e751bd67
commit c4bddfb943
2 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tools/tinderbox/build-seamonkey-util.pl
View File

@ -24,7 +24,7 @@ use Config; # for $Config{sig_name} and $Config{sig_num}
use File::Find ();
use File::Copy;
$::UtilsVersion = '$Revision: 1.343 $ ';
$::UtilsVersion = '$Revision: 1.344 $ ';
package TinderUtils;
@ -730,6 +730,35 @@ sub mail_build_started_message {
unlink "$msg_log";
}
sub mail_build_failed_message {
my ($start_time) = @_;
return if (!defined($Settings::FailedBuildAdministrator) or
"$Settings::FailedBuildAdministrator" eq "");
my $msg_log = "build_failed_msg.tmp";
open LOG, ">", $msg_log;
PrintUsage() if $Settings::BuildTree =~ /^\s+$/i;
my $platform = $Settings::OS =~ /^WIN/ ? 'windows' : 'unix';
print_log "Subject: tinderbox bustage: $Settings::BuildName";
print_log "\n";
print_log "Tinderbox tree: $Settings::BuildName has failed to build at $start_time\n";
print_log "\n";
close LOG;
if ($Settings::blat ne "" && $Settings::use_blat) {
system("$Settings::blat $msg_log -to $Settings::FailedBuildAdministrator");
} else {
system "$Settings::mail " .
"$Settings::FailedBuildAdministrator < $msg_log";
}
unlink "$msg_log";
}
sub encode_log {
my $input_file = shift;
my $output_file = shift;
@ -1208,6 +1237,8 @@ sub BuildIt {
# Increment failure count if we failed.
if ($build_status eq 'busted') {
$build_failure_count++;
mail_build_failed_message($start_time) if
($build_failure_count == 1 && $Settings::ReportFailedStatus);
} else {
$build_failure_count = 0;
}

2
tools/tinderbox/tinder-config.pl
View File

@ -22,6 +22,7 @@
#- PLEASE FILL THIS IN WITH YOUR PROPER EMAIL ADDRESS
#$BuildAdministrator = "$ENV{USER}\@$ENV{HOST}";
#$BuildAdministrator = ($ENV{USER} || "cltbld") . "\@" . ($ENV{HOST} || "dhcp");
#$FailedBuildAdministrator = $BuildAdministrator;
#- You'll need to change these to suit your machine's needs
#$DisplayServer = ':0.0';
@ -31,6 +32,7 @@
#$BuildDepend = 1; # Depend or Clobber
#$BuildDebug = 0; # Debug or Opt (Darwin)
#$ReportStatus = 1; # Send results to server, or not
#$ReportFailedStatus= 1; # Send email report of initial build failure
#$ReportFinalStatus = 1; # Finer control over $ReportStatus.
#$UseTimeStamp = 1; # Use the CVS 'pull-by-timestamp' option, or not
#$BuildOnce = 0; # Build once, don't send results to server