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

152 строки
4.7 KiB
Perl

#!/usr/bin/perl
#
#
# This script gets called after a full mozilla build & test.
# Use this to build and test an embedded or commercial branding of Mozilla.
#
# ./build-seamonkey-utils.pl will call PostMozilla::main() after
# a successful build and testing of mozilla. This package can report
# status via the $TinderUtils::build_status variable. Yeah this is a hack,
# but it works for now. Feel free to improve this mechanism to properly
# return values & stuff. -mcafee
#
# Things to do:
# * Get pull by branch working
#
#
use strict;
package PostMozilla;
sub checkout {
my ($mozilla_build_dir) = @_;
# chdir to build directory
chdir "$mozilla_build_dir";
# Hack to get around po/ChangeLog cvs conflict bug in gettext lib.
my $status = TinderUtils::run_shell_command("\\rm -f galeon/po/ChangeLog");
# Checkout galeon source. First set up cvsroot:
# Both of these as of 10/2001 are kinda flakey:
# $ENV{CVSROOT} = ":pserver:anonymous\@anoncvs.gnome.org:/cvs/gnome";
# $ENV{CVSROOT} = ":pserver:anonymous@cvs.galeon.sourceforge.net:/cvsroot/galeon";
#
# Asked for direct cvs access and got it:
$ENV{CVSROOT} = ":pserver:mcafee\@cvs.gnome.org:/cvs/gnome";
# Next, actually do the checkout:
my $status = TinderUtils::run_shell_command("$Settings::CVS checkout galeon");
# hack in the galeon prefs, if needed
return $status;
}
sub PreBuild {
}
sub main {
my ($mozilla_build_dir) = @_;
TinderUtils::print_log "Post-Mozilla build goes here.\n";
# Pending a config file, stuff things here.
my $post_status = 'success'; # Success until we report a failure.
my $status = 0; # 0 = success
my $galeon_alive_test = 1;
my $galeon_test8_test = 1;
my $galeon_dir = "$mozilla_build_dir/galeon";
my $galeon_binary = "galeon-bin";
# Checkout/update the galeon code.
$status = checkout($mozilla_build_dir);
TinderUtils::print_log "Status from checkout: $status\n";
if ($status != 0) {
$post_status = 'busted';
}
# Build galeon if we passed the checkout command.
if ($post_status ne 'busted') {
# Build galeon.
chdir $galeon_dir;
# Make sure we have a configure
unless (-e "configure" and $post_status ne 'busted') {
$status = TinderUtils::run_shell_command("./autogen.sh");
TinderUtils::print_log "Status from autogen: $status\n";
}
# Not sure how to only do this when we need to.
# Force a configure for now.
if ($status == 0) {
TinderUtils::print_log "configuring...\n";
$status = TinderUtils::run_shell_command("./configure --sysconfdir=/etc --with-mozilla-libs=$mozilla_build_dir/mozilla/dist/bin --with-mozilla-includes=$mozilla_build_dir/mozilla/dist/include --with-nspr-includes=$mozilla_build_dir/mozilla/dist/include/nspr --with-mozilla-home=$mozilla_build_dir/mozilla/dist/bin");
TinderUtils::print_log "Status from configure: $status\n";
}
if ($status == 0) {
TinderUtils::print_log "Deleting, gmake...\n";
TinderUtils::DeleteBinary("$galeon_dir/src/$galeon_binary");
my $foo = Cwd::getcwd();
TinderUtils::print_log "cwd = $foo\n";
$status = TinderUtils::run_shell_command("gmake");
TinderUtils::print_log "Status from gmake: $status\n";
}
TinderUtils::print_log "Testing build status...\n";
if ($status != 0) {
TinderUtils::print_log "busted, gmake status non-zero\n";
$post_status = 'busted';
} elsif (not TinderUtils::BinaryExists("$galeon_dir/src/$galeon_binary")) {
TinderUtils::print_log "Error: binary not found: $galeon_dir/src/$galeon_binary\n";
$post_status = 'busted';
} else {
$post_status = 'success';
}
}
#
# Need a way to bypass initial setup dialog stuff, or
# we'll need to manually run this by hand the first time.
#
# Also, have to set crash_recovery=0 in ~/.gnome/galeon to avoid
# getting the crash dialog after the alive test times out.
#
# Test galeon, about:blank
if ($galeon_alive_test and $post_status eq 'success') {
$post_status = TinderUtils::AliveTest("GaleonAliveTest",
"$galeon_dir/src",
["galeon", "about:blank"],
45);
}
# Test galeon, test8
if ($galeon_test8_test and $post_status eq 'success') {
$post_status = TinderUtils::AliveTest("GaleonTest8Test",
"$galeon_dir/src",
["galeon", "resource:///res/samples/test8.html"],
45);
}
# Startup test
if ($galeon_startup_test and $post_status eq 'success') {
TinderUtils::StartupPerformanceTest("GaleonStartupPerformanceTest",
"galeon",
"$galeon_dir/src",
["", "$galeon_dir/src/../../../startup-test.html"]);
}
# Pass our status back to calling script.
return $post_status;
}
# Need to end with a true value, (since we're using "require").
1;