pjs/tools/tinderbox/build-galeon.pl

#!/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);
  }
  
  # 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;