gecko-dev/tools/tinderbox/build-seamonkey.pl

706 строки
20 KiB
Perl
Исходник Обычный вид История

1999-04-28 01:32:19 +04:00
#!/usr/bin/perl
require 5.000;
use Sys::Hostname;
use POSIX "sys_wait_h";
use Cwd;
1999-08-25 21:54:47 +04:00
$Version = '$Revision: 1.9 $ ';
1999-04-28 01:32:19 +04:00
sub PrintUsage {
die "usage: $0 --depend --clobber --once --manual\n"
." --classic --compress --example-config --noreport --notest\n"
." --timestamp -tag TREETAG -t TREENAME\n"
." --configfile CONFIGFILENAME --version\n";
1999-04-28 01:32:19 +04:00
}
&InitVars;
&ParseArgs;
&ConditionalArgs;
&GetSystemInfo;
&LoadConfig;
&SetupEnv;
&SetupPath;
&BuildIt;
1999-04-28 01:32:19 +04:00
1;
1999-04-28 01:32:19 +04:00
# End of main
# ------------------------------------------------------
1999-04-28 01:32:19 +04:00
sub ParseArgs {
&PrintUsage if $#ARGV == -1;
1999-04-28 01:32:19 +04:00
while ($arg = shift @ARGV) {
$BuildDepend = 0 , next if $arg eq '--clobber';
$BuildDepend = 1 , next if $arg eq '--depend';
$CVS = 'cvs -q -z3', next if $arg eq '--compress';
&PrintExampleConfig, exit if $arg eq '--example-config';
&PrintUsage , exit if $arg eq '--help' or $arg eq '-h';
$ReportStatus = 0 , next if $arg eq '--noreport';
$RunTest = 0 , next if $arg eq '--notest';
$BuildOnce = 1 , next if $arg eq '--once';
$UseTimeStamp = 1 , next if $arg eq '--timestamp';
1999-04-28 01:32:19 +04:00
if ($arg eq '-tag') {
$BuildTag = shift @ARGV;
&PrintUsage if $BuildTag eq '' or $BuildTag eq '-t';
1999-04-28 01:32:19 +04:00
}
elsif ($arg eq '-t') {
$BuildTree = shift @ARGV;
&PrintUsage if $BuildTree eq '';
1999-04-28 01:32:19 +04:00
}
elsif ($arg eq '--configfile') {
$ConfigFileName = shift @ARGV;
&PrintUsage if $ConfigFileName eq '';
}
elsif ($arg eq '--version' or $arg eq '-v') {
die "$0: version" . substr($Version,9,6) . "\n";
} else {
&PrintUsage;
}
}
&PrintUsage if $BuildTree =~ /^\s+$/i;
1999-04-28 01:32:19 +04:00
}
sub InitVars {
for (@ARGV) {
# Save DATA section for printing the example.
return if /^--example-config$/;
}
eval while <DATA>; # See __END__ section below
}
1999-04-28 01:32:19 +04:00
sub PrintExampleConfig {
print "#- tinder-config.pl - Tinderbox configuration file.\n";
print "#- Uncomment the variables you need to set.\n";
print "#- The default values are the same as the commented variables\n\n";
while (<DATA>) {
s/^\$/\#\$/;
print;
}
}
1999-04-28 01:32:19 +04:00
sub ConditionalArgs {
$FE = 'apprunner';
$BuildModule = 'SeaMonkeyAll';
$CVSCO .= " -r $BuildTag" unless $BuildTag eq '';
}
1999-04-28 01:32:19 +04:00
sub GetSystemInfo {
$OS = `uname -s`;
$OSVer = `uname -r`;
$CPU = `uname -m`;
$BuildName = '';
my $host = hostname;
$host =~ s/\..*$//;
chomp($OS, $OSVer, $CPU, $host);
1999-04-28 01:32:19 +04:00
if ($OS eq 'AIX') {
my $osAltVer = `uname -v`;
chomp($osAltVer);
$OSVer = "$osAltVer.$OSVer";
}
$OS = 'BSD_OS' if $OS eq 'BSD/OS';
$OS = 'IRIX' if $OS eq 'IRIX64';
1999-04-28 01:32:19 +04:00
if ($OS eq 'QNX') {
$OSVer = `uname -v`;
chomp($OSVer);
$OSVer =~ s/^([0-9])([0-9]*)$/$1.$2/;
}
if ($OS eq 'SCO_SV') {
$OS = 'SCOOS';
$OSVer = '5.0';
}
unless ("$host" eq '') {
$BuildName = "$host $OS ". ($BuildDepend ? 'Depend' : 'Clobber');
}
$DirName = "${OS}_${OSVer}_". ($BuildDepend ? 'depend' : 'clobber');
$logfile = "${DirName}.log";
1999-04-28 01:32:19 +04:00
#
# Make the build names reflect architecture/OS
#
if ($OS eq 'AIX') {
# Assumes 4.2.1 for now.
}
if ($OS eq 'BSD_OS') {
$BuildName = "$host BSD/OS $OSVer ". ($BuildDepend ? 'Depend' : 'Clobber');
}
if ($OS eq 'FreeBSD') {
$BuildName = "$host $OS/$CPU $OSVer ". ($BuildDepend ? 'Depend':'Clobber');
}
if ($OS eq 'HP-UX') {
}
if ($OS eq 'IRIX') {
}
if ($OS eq 'Linux') {
if ($CPU eq 'alpha' or $CPU eq 'sparc') {
$BuildName = "$host $OS/$CPU $OSVer "
. ($BuildDepend ? 'Depend' : 'Clobber');
} elsif ($CPU eq 'armv4l' or $CPU eq 'sa110') {
$BuildName = "$host $OS/arm $OSVer ". ($BuildDepend?'Depend':'Clobber');
} elsif ($CPU eq 'ppc') {
$BuildName = "$host $OS/$CPU $OSVer ". ($BuildDepend?'Depend':'Clobber');
} else {
$BuildName = "$host $OS ". ($BuildDepend?'Depend':'Clobber');
# What's the right way to test for this?
$ObjDir .= 'libc1' if $host eq 'truth';
1999-04-28 01:32:19 +04:00
}
}
if ($OS eq 'NetBSD') {
$BuildName = "$host $OS/$CPU $OSVer ". ($BuildDepend?'Depend':'Clobber');
}
if ($OS eq 'OSF1') {
# Assumes 4.0D for now.
}
if ($OS eq 'QNX') {
}
if ($OS eq 'SunOS') {
if ($CPU eq 'i86pc') {
$BuildName = "$host $OS/i386 $OSVer ". ($BuildDepend?'Depend':'Clobber');
} else {
$OSVerMajor = substr($OSVer, 0, 1);
if ($OSVerMajor ne '4') {
$BuildName = "$host $OS/sparc $OSVer "
. ($BuildDepend?'Depend':'Clobber');
}
1999-04-28 01:32:19 +04:00
}
}
}
1999-04-28 01:32:19 +04:00
sub SetupEnv {
umask 0;
#$ENV{CVSROOT} = ':pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot';
$ENV{LD_LIBRARY_PATH} = "$NSPRDir/lib:"
."$BaseDir/$DirName/mozilla/${ObjDir}dist/bin:/usr/lib/png:"
."/usr/local/lib:$BaseDir/$DirName/mozilla/dist/bin";
$ENV{DISPLAY} = $DisplayServer;
$ENV{MOZCONFIG} = "$BaseDir/$ConfigFileName";
}
1999-04-28 01:32:19 +04:00
sub SetupPath {
my $comptmp;
$comptmp = '';
#print "Path before: $ENV{PATH}\n";
if ($OS eq 'AIX') {
$ENV{PATH} = "/builds/local/bin:$ENV{PATH}:/usr/lpp/xlC/bin";
$ConfigureArgs .= '--x-includes=/usr/include/X11 '
. '--x-libraries=/usr/lib --disable-shared';
$ConfigureEnvArgs = 'CC=xlC_r CXX=xlC_r';
$Compiler = 'xlC_r';
$NSPRArgs .= 'NS_USE_NATIVE=1 USE_PTHREADS=1';
}
if ($OS eq 'BSD_OS') {
$ENV{PATH} = "/usr/contrib/bin:/bin:/usr/bin:$ENV{PATH}";
$ConfigureArgs .= '--disable-shared';
$ConfigureEnvArgs = 'CC=shlicc2 CXX=shlicc2';
$Compiler = 'shlicc2';
$mail = '/usr/ucb/mail';
# Because ld dies if it encounters -include
$MakeOverrides = 'CPP_PROG_LINK=0 CCF=shlicc2';
$NSPRArgs .= 'NS_USE_GCC=1 NS_USE_NATIVE=';
}
1999-04-28 01:32:19 +04:00
if ($OS eq 'FreeBSD') {
$ENV{PATH} = "/bin:/usr/bin:$ENV{PATH}";
if ($ENV{HOST} eq 'angelus.mcom.com') {
$ConfigureEnvArgs = 'CC=egcc CXX=eg++';
$Compiler = 'egcc';
1999-04-28 01:32:19 +04:00
}
$mail = '/usr/bin/mail';
}
1999-04-28 01:32:19 +04:00
if ($OS eq 'HP-UX') {
$ENV{PATH} = "/opt/ansic/bin:/opt/aCC/bin:/builds/local/bin:"
. "$ENV{PATH}";
$ENV{LPATH} = "/usr/lib:$ENV{LD_LIBRARY_PATH}:/builds/local/lib";
$ENV{SHLIB_PATH} = $ENV{LPATH};
$ConfigureArgs .= '--x-includes=/usr/include/X11 '
. '--x-libraries=/usr/lib --disable-gtktest ';
$ConfigureEnvArgs = 'CC="cc -Ae" CXX="aCC -ext"';
$Compiler = 'cc/aCC';
# Use USE_PTHREADS=1 instead of CLASSIC_NSPR if you've got DCE installed.
$NSPRArgs .= 'NS_USE_NATIVE=1 CLASSIC_NSPR=1';
}
if ($OS eq 'IRIX') {
$ENV{PATH} = "/opt/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} .= ':/opt/lib';
$ENV{LD_LIBRARYN32_PATH} = $ENV{LD_LIBRARY_PATH};
$ConfigureEnvArgs = 'CC=cc CXX=CC CFLAGS="-n32 -O" CXXFLAGS="-n32 -O"';
$Compiler = 'cc/CC';
$NSPRArgs .= 'NS_USE_NATIVE=1 USE_PTHREADS=1';
}
if ($OS eq 'NetBSD') {
$ENV{PATH} = "/bin:/usr/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} .= ':/usr/X11R6/lib';
$ConfigureEnvArgs = 'CC=egcc CXX=eg++';
$Compiler = 'egcc';
$mail = '/usr/bin/mail';
}
if ($OS eq 'OSF1') {
$ENV{PATH} = "/usr/gnu/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} .= ':/usr/gnu/lib';
$ConfigureEnvArgs = 'CC="cc -readonly_strings" CXX="cxx"';
$Compiler = 'cc/cxx';
$MakeOverrides = 'SHELL=/usr/bin/ksh';
$NSPRArgs .= 'NS_USE_NATIVE=1 USE_PTHREADS=1';
$ShellOverride = '/usr/bin/ksh';
}
if ($OS eq 'QNX') {
$ENV{PATH} = "/usr/local/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} .= ':/usr/X11/lib';
$ConfigureArgs .= '--x-includes=/usr/X11/include '
. '--x-libraries=/usr/X11/lib --disable-shared ';
$ConfigureEnvArgs = 'CC="cc -DQNX" CXX="cc -DQNX"';
$Compiler = 'cc';
$mail = '/usr/bin/sendmail';
}
1999-04-28 01:32:19 +04:00
if ($OS eq 'SunOS') {
if ($OSVerMajor eq '4') {
$ENV{PATH} = "/usr/gnu/bin:/usr/local/sun4/bin:/usr/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} = "/home/motif/usr/lib:$ENV{LD_LIBRARY_PATH}";
$ConfigureArgs .= '--x-includes=/home/motif/usr/include/X11 '
. '--x-libraries=/home/motif/usr/lib';
$ConfigureEnvArgs = 'CC="egcc -DSUNOS4" CXX="eg++ -DSUNOS4"';
$Compiler = 'egcc';
} else {
$ENV{PATH} = '/usr/ccs/bin:' . $ENV{PATH};
}
if ($CPU eq 'i86pc') {
$ENV{PATH} = '/opt/gnu/bin:' . $ENV{PATH};
$ENV{LD_LIBRARY_PATH} .= ':/opt/gnu/lib';
$ConfigureEnvArgs = 'CC=egcc CXX=eg++';
$Compiler = 'egcc';
# Possible NSPR bug... If USE_PTHREADS is defined, then
# _PR_HAVE_ATOMIC_CAS gets defined (erroneously?) and
# libnspr21 does not work.
$NSPRArgs .= 'CLASSIC_NSPR=1 NS_USE_GCC=1 NS_USE_NATIVE=';
} else {
# This is utterly lame....
if ($ENV{HOST} eq 'fugu') {
$ENV{PATH} = "/tools/ns/workshop/bin:/usrlocal/bin:$ENV{PATH}";
$ENV{LD_LIBRARY_PATH} = '/tools/ns/workshop/lib:/usrlocal/lib:'
. $ENV{LD_LIBRARY_PATH};
$ConfigureEnvArgs = 'CC=cc CXX=CC';
$comptmp = `cc -V 2>&1 | head -1`;
chomp($comptmp);
$Compiler = "cc/CC \($comptmp\)";
$NSPRArgs .= 'NS_USE_NATIVE=1';
} else {
$NSPRArgs .= 'NS_USE_GCC=1 NS_USE_NATIVE=';
}
if ($OSVerMajor eq '5') {
$NSPRArgs .= ' USE_PTHREADS=1';
}
1999-04-28 01:32:19 +04:00
}
}
#print "Path after: $ENV{PATH}\n";
}
1999-04-28 01:32:19 +04:00
sub LoadConfig {
if (-r 'tinder-config.pl') {
do 'tinder-config.pl';
} else {
warn "Error: Need tinderbox config file, tinder-config.pl\n";
warn " To get started, run the following,\n";
warn " $0 --example-config > tinder-config.pl\n";
exit;
}
1999-04-28 01:32:19 +04:00
}
sub BuildIt {
my $fe, @felist, $EarlyExit, $LastTime, $SaveCVSCO, $comptmp;
1999-04-28 01:32:19 +04:00
$comptmp = '';
$jflag = '';
mkdir $DirName, 0777;
chdir $DirName || die "Couldn't enter $DirName";
$StartDir = getcwd();
$LastTime = 0;
$EarlyExit = 0;
$SaveCVSCO = $CVSCO;
print "Starting dir is : $StartDir\n";
while (not $EarlyExit) {
chdir $StartDir;
if (time - $LastTime < (60 * $BuildSleep)) {
$SleepTime = (60 * $BuildSleep) - (time - $LastTime);
print "\n\nSleeping $SleepTime seconds ...\n";
sleep $SleepTime;
}
$LastTime = time;
if ($UseTimeStamp) {
$CVSCO = $SaveCVSCO;
} else {
$CVSCO = $SaveCVSCO . ' -A';
}
$StartTime = time;
if ($UseTimeStamp) {
$BuildStart = `date '+%D %H:%M'`;
chomp($BuildStart);
$CVSCO .= " -D '$BuildStart'";
1999-04-28 01:32:19 +04:00
}
&MailStartBuildMessage if $ReportStatus;
$CurrentDir = getcwd();
if ($CurrentDir ne $StartDir) {
print "startdir: $StartDir, curdir $CurrentDir\n";
die "curdir != startdir";
1999-04-28 01:32:19 +04:00
}
$BuildDir = $CurrentDir;
1999-04-28 01:32:19 +04:00
unlink $logfile;
1999-04-28 01:32:19 +04:00
print "Opening $logfile\n";
open LOG, ">$logfile" || print "can't open $?\n";
print LOG "current dir is -- " . $ENV{HOST} . ":$CurrentDir\n";
print LOG "Build Administrator is $BuildAdministrator\n";
&PrintEnv;
if ($Compiler ne '') {
print LOG "===============================\n";
if ($Compiler eq 'gcc' or $Compiler eq 'egcc') {
$comptmp = `$Compiler --version`;
chomp($comptmp);
print LOG "Compiler is -- $Compiler \($comptmp\)\n";
} else {
print LOG "Compiler is -- $Compiler\n";
}
print LOG "===============================\n";
1999-04-28 01:32:19 +04:00
}
$BuildStatus = 0;
1999-04-28 01:32:19 +04:00
mkdir $TopLevel, 0777;
chdir $TopLevel || die "chdir($TopLevel): $!\n";
print "$CVS $CVSCO mozilla/client.mk\n";
print LOG "$CVS $CVSCO mozilla/client.mk\n";
open PULL, "$CVS $CVSCO mozilla/client.mk 2>&1 |" || die "open: $!\n";
while (<PULL>) {
print $_;
print LOG $_;
1999-04-28 01:32:19 +04:00
}
close PULL;
1999-04-28 01:32:19 +04:00
chdir $Topsrcdir || die "chdir $Topsrcdir: $!\n";
# Let us delete the binaries before rebuilding
@felist = split /,/, $FE;
foreach $fe (@felist) {
if (&BinaryExists($fe)) {
print LOG "deleting existing binary\n";
&DeleteBinary($fe);
1999-04-28 01:32:19 +04:00
}
}
1999-04-28 01:32:19 +04:00
$ENV{MOZ_CO_DATE} = "$BuildStart" if $UseTimeStamp;
1999-04-28 01:32:19 +04:00
# If we are building depend, don't clobber.
if ($BuildDepend) {
print LOG "$Make -f client.mk\n";
open MAKEDEPEND, "$Make -f client.mk 2>&1 |";
while (<MAKEDEPEND>) {
print $_;
print LOG $_;
}
close MAKEDEPEND;
} else {
# Building clobber
print LOG "$Make -f client.mk checkout clean build 2>&1 |\n";
open MAKECLOBBER, "$Make -f client.mk checkout clean build 2>&1 |";
while (<MAKECLOBBER>) {
print $_;
print LOG $_;
}
close MAKECLOBBER;
1999-04-28 01:32:19 +04:00
}
foreach $fe (@felist) {
if (&BinaryExists($fe)) {
if ($RunTest) {
print LOG "export binary exists, build successful. Testing...\n";
$BuildStatus = &RunSmokeTest($fe);
} else {
print LOG "export binary exists, build successful. Skipping test.\n";
$BuildStatus = 0;
}
} else {
print LOG "export binary missing, build FAILED\n";
$BuildStatus = 666;
}
if ($BuildStatus == 0) {
$BuildStatusStr = 'success';
}
elsif ($BuildStatus == 333) {
$BuildStatusStr = 'testfailed';
} else {
$BuildStatusStr = 'busted';
}
print LOG "tinderbox: tree: $BuildTree\n";
print LOG "tinderbox: builddate: $StartTime\n";
print LOG "tinderbox: status: $BuildStatusStr\n";
print LOG "tinderbox: build: $BuildName\n";
print LOG "tinderbox: errorparser: unix\n";
print LOG "tinderbox: buildfamily: unix\n";
1999-08-25 21:54:47 +04:00
print LOG "tinderbox: version: $Version\n";
print LOG "tinderbox: END\n";
}
close LOG;
chdir $StartDir;
# This fun line added on 2/5/98. do not remove. Translated to english,
# that's "take any line longer than 1000 characters, and split it into less
# than 1000 char lines. If any of the resulting lines is
# a dot on a line by itself, replace that with a blank line."
# This is to prevent cases where a <cr>.<cr> occurs in the log file.
# Sendmail interprets that as the end of the mail, and truncates the
# log before it gets to Tinderbox. (terry weismann, chris yeh)
#
# This was replaced by a perl 'port' of the above, writen by
# preed@netscape.com; good things: no need for system() call, and now it's
# all in perl, so we don't have to do OS checking like before.
#
open LOG, "$logfile" || die "Couldn't open logfile: $!\n";
open OUTLOG, ">${logfile}.last" || die "Couldn't open logfile: $!\n";
while (<LOG>) {
for ($q = 0; ; $q++) {
$val = $q * 1000;
$Output = substr $_, $val, 1000;
last if $Output eq undef;
$Output =~ s/^\.$//g;
$Output =~ s/\n//g;
print OUTLOG "$Output\n";
}
1999-04-28 01:32:19 +04:00
}
close LOG;
close OUTLOG;
system("$mail $Tinderbox_server < ${logfile}.last") if $ReportStatus;
unlink("$logfile");
# If this is a test run, set early_exit to 0.
# This mean one loop of execution
$EarlyExit++ if $BuildOnce;
}
1999-04-28 01:32:19 +04:00
}
sub MailStartBuildMessage {
my $fe, @felist;
@felist = split /,/, $FE;
open LOG, "|$mail $Tinderbox_server";
foreach $fe (@felist) {
print LOG "\n";
print LOG "tinderbox: tree: $BuildTree\n";
print LOG "tinderbox: builddate: $StartTime\n";
print LOG "tinderbox: status: building\n";
print LOG "tinderbox: build: $BuildName\n";
print LOG "tinderbox: errorparser: unix\n";
print LOG "tinderbox: buildfamily: unix\n";
1999-08-25 21:54:47 +04:00
print LOG "tinderbox: version: $Version\n";
print LOG "tinderbox: END\n";
print LOG "\n";
}
close LOG;
1999-04-28 01:32:19 +04:00
}
# check for the existence of the binary
sub BinaryExists {
my ($fe) = @_;
my $BinName;
$fe = 'x' unless defined $fe;
1999-04-28 01:32:19 +04:00
$BinName = "$BuildDir/$TopLevel/${Topsrcdir}$BinaryName{$fe}";
1999-04-28 01:32:19 +04:00
if (-e $BinName and -x _ and -s _) {
print LOG "$BinName exists, is nonzero, and executable.\n";
1999-04-28 01:32:19 +04:00
1;
}
else {
print LOG "$BinName doesn't exist, is zero-size, or not executable.\n";
1999-04-28 01:32:19 +04:00
0;
}
}
sub DeleteBinary {
my ($fe) = @_;
my $BinName;
$fe = 'apprunner' unless defined $fe;
$BinName = "$BuildDir/$TopLevel/${Topsrcdir}$BinaryName{$fe}";
print LOG "unlinking $BinName\n";
unlink $BinName || print LOG "unlinking $BinName failed\n";
1999-04-28 01:32:19 +04:00
}
sub PrintEnv {
my($key);
foreach $key (sort keys %ENV) {
print LOG "$key=$ENV{$key}\n";
print "$key=$ENV{$key}\n";
}
1999-04-28 01:32:19 +04:00
}
sub RunSmokeTest {
my ($fe) = @_;
my $Binary;
my $status = 0;
my $waittime = 45;
my $pid = fork;
$fe = 'x' unless defined $fe;
$ENV{LD_LIBRARY_PATH} = "$BuildDir/$TopLevel/$Topsrcdir/dist/bin";
$ENV{MOZILLA_FIVE_HOME} = $ENV{LD_LIBRARY_PATH};
$Binary = "$BuildDir/$TopLevel/${Topsrcdir}$BinaryName{$fe}";
print LOG "$Binary\n";
$BinaryDir = "$BuildDir/$TopLevel/$Topsrcdir/dist/bin";
$Binary = "$BuildDir/$TopLevel/$Topsrcdir/dist/bin/apprunner";
$BinaryLog = $BuildDir . '/runlog';
unless ($pid) { # child
1999-04-28 01:32:19 +04:00
chdir $BinaryDir;
unlink $BinaryLog;
$SaveHome = $ENV{HOME};
$ENV{HOME} = $BinaryDir;
open STDOUT, ">$BinaryLog";
select STDOUT; $| = 1; # make STDOUT unbuffered
open STDERR,">&STDOUT";
select STDERR; $| = 1; # make STDERR unbuffered
exec $Binary;
close STDOUT;
close STDERR;
$ENV{HOME} = $SaveHome;
die "Couldn't exec()";
}
# parent - wait $waittime seconds then check on child
sleep $waittime;
$status = waitpid($pid, WNOHANG());
if ($status != 0) {
print LOG "$Binary has crashed or quit. Turn the tree orange now.\n";
1999-04-28 01:32:19 +04:00
print LOG "----------- Output from apprunner --------------- \n";
open READRUNLOG, "$BinaryLog";
1999-04-28 01:32:19 +04:00
while (<READRUNLOG>) {
print $_;
print LOG $_;
}
close READRUNLOG;
1999-04-28 01:32:19 +04:00
print LOG "--------------- End of Output -------------------- \n";
return 333;
}
print LOG "Success! $Binary is still running.\n";
1999-04-28 01:32:19 +04:00
# try to kill 3 times, then try a kill -9
for ($i=0; $i < 3; $i++) {
kill('TERM',$pid);
# give it 3 seconds to actually die
sleep 3;
$status = waitpid($pid, WNOHANG());
last if $status != 0;
}
print LOG "----------- Output from apprunner --------------- \n";
open READRUNLOG, "$BinaryLog";
while (<READRUNLOG>) {
print $_;
print LOG $_;
}
close READRUNLOG;
print LOG "--------------- End of Output -------------------- \n";
return 0;
}
1999-04-28 01:32:19 +04:00
__END__
#- PLEASE FILL THIS IN WITH YOUR PROPER EMAIL ADDRESS
$BuildAdministrator = "$ENV{USER}\@$ENV{HOST}";
#- You'll need to change these to suit your machine's needs
$BaseDir = '/builds/tinderbox/SeaMonkey';
$DisplayServer = 'crucible.mcom.com:0.0';
#- Default values of command-line opts
#-
$BuildDepend = 1; # Depend or Clobber
$ReportStatus = 1; # Send results to server, or not
$BuildOnce = 0; # Build once, don't send results to server
$RunTest = 1; # Run the smoke test on successful build, or not
$UseTimeStamp = 1; # Use the CVS 'pull-by-timestamp' option, or not
#- Set these to what makes sense for your system
$Make = 'gmake'; # Must be GNU make
$MakeOverrides = '';
$mail = '/bin/mail';
$CVS = 'cvs -q';
$CVSCO = 'checkout -P';
#- Set these proper values for your tinderbox server
$Tinderbox_server = 'tinderbox-daemon@cvs-mirror.mozilla.org';
# Relative path to binary
$BinaryName{apprunner} = '/dist/bin/apprunner';
#-
#- The rest should not need to be changed
#-
#- Minimum wait period from start of build to start of next build in minutes.
$BuildSleep = 10;
#- Until you get the script working. When it works,
#- change to the tree you're actually building
$BuildTree = 'MozillaTest';
$BuildName = '';
$BuildTag = '';
$BuildObjName = '';
$BuildConfigDir = 'mozilla/config';
$BuildStart = '';
$TopLevel = '.';
$Topsrcdir = 'mozilla';
$ClobberStr = 'realclean';
$ConfigureEnvArgs = '';
$ConfigureArgs = ' --cache-file=/dev/null ';
$ConfigGuess = './build/autoconf/config.guess';
$Logfile = '${BuildDir}.log';
$Compiler = 'gcc';
$ShellOverride = ''; # Only used if the default shell is too stupid