зеркало из https://github.com/mozilla/pjs.git
142 строки
4.4 KiB
Perl
142 строки
4.4 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 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);
|
|
}
|
|
|
|
# Pass our status back to calling script.
|
|
return $post_status;
|
|
}
|
|
|
|
# Need to end with a true value, (since we're using "require").
|
|
1;
|