зеркало из https://github.com/mozilla/gecko-dev.git
merge this sample with code I am really using, to demonstrate how to build
tar files for each build and use the -D in CVS.
This commit is contained in:
Родитель
4cc7adfa04
Коммит
8b37ba9c0a
|
@ -24,8 +24,8 @@
|
|||
# vairiables substituted.
|
||||
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2001/07/27 20:39:18 $
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2001/08/30 18:54:25 $
|
||||
# $Author: kestes%walrus.com $
|
||||
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/clientbin/generic.sample.buildcf,v $
|
||||
# $Name: $
|
||||
|
@ -72,6 +72,41 @@ use TreeData;
|
|||
|
||||
|
||||
|
||||
# given a time return a human readable string suitable for using as
|
||||
# part of a CVS checkout.
|
||||
|
||||
sub cvs_time_str {
|
||||
my ($time) = @_;
|
||||
|
||||
my ($sec,$min,$hour,$mday,$mon,$year,
|
||||
$wday,$yday,$isdst) = localtime($time);
|
||||
|
||||
$mon++;
|
||||
$year += 1900;
|
||||
|
||||
my $str = sprintf "%04d-%02d-%02d %02d:%02d", $year,$mon,$mday,$hour,$min;
|
||||
return $str;
|
||||
}
|
||||
|
||||
|
||||
# given a time return a human readable string suitable for using as
|
||||
# part of a file name but similar to the CVS checkout string for the
|
||||
# same time (no space).
|
||||
|
||||
sub filename_time_str {
|
||||
my ($time) = @_;
|
||||
|
||||
my ($sec,$min,$hour,$mday,$mon,$year,
|
||||
$wday,$yday,$isdst) = localtime($time);
|
||||
|
||||
$mon++;
|
||||
$year += 1900;
|
||||
|
||||
my $str = sprintf "%04d-%02d-%02d.%02d:%02d", $year,$mon,$mday,$hour,$min;
|
||||
return $str;
|
||||
}
|
||||
|
||||
|
||||
|
||||
# The environmental variables for building at mozilla/netscape are
|
||||
# quite complicated, your needs may be much simpler. Putting all
|
||||
|
@ -104,21 +139,57 @@ sub build_scripts {
|
|||
my ($argv) = "@ARGV";
|
||||
|
||||
|
||||
$BUILD_DIR = "/tmp/tinderbox_build";
|
||||
my $build_dir = (
|
||||
"/var/tmp/tinderbox_build".
|
||||
"/".
|
||||
$args{'buildtype'}.
|
||||
"/".
|
||||
$tree_name.
|
||||
"");
|
||||
|
||||
$DEST_DIR="$BUILD_DIR/dest";
|
||||
|
||||
if ($DEST_DIR) {
|
||||
$make_flags .= " DESTDIR=$DEST_DIR ";
|
||||
}
|
||||
|
||||
my $tree = tree_name();
|
||||
my $branch = $TreeData::VC_TREE{$tree}{'branch'};
|
||||
my $module = $TreeData::VC_TREE{$tree}{'module'};
|
||||
|
||||
if ($branch) {
|
||||
$cvs_checkout_flags .= " -r $branch ";
|
||||
}
|
||||
# pick a time earlier then the current time. Check out the sources
|
||||
# as of that time and use that time as the name of the tar
|
||||
# file. Now anyone who wants to recreate the sources of the binary
|
||||
# tar can use the tarfile name to checkout the souces as if we had
|
||||
# tagged them. We use a few minutes ago as the checkout time to
|
||||
# ensure that the CVS server has time to settle down from any
|
||||
# large checkins which may be in progress.
|
||||
|
||||
my $checkout_time = time() - 5*60;
|
||||
my $filename_time_str = filename_time_str($checkout_time);
|
||||
my $cvs_time_str = cvs_time_str($checkout_time);
|
||||
|
||||
my $dest_dir="$build_dir/dest";
|
||||
chomp $time_stamp;
|
||||
my $tar_file = (
|
||||
"/var/spool/builds/".
|
||||
$tree_name.
|
||||
"/".
|
||||
"reef-aprt.".
|
||||
$tree_name.
|
||||
".".
|
||||
$filename_time_str.
|
||||
".tar.gz"
|
||||
);
|
||||
|
||||
if ($dest_dir) {
|
||||
$make_flags .= " DESTDIR=$dest_dir RELEASEDIR= ";
|
||||
}
|
||||
|
||||
my $branch = $TreeData::VC_TREE{$tree_name}{'branch'};
|
||||
my $module = $TreeData::VC_TREE{$tree_name}{'module'};
|
||||
|
||||
if ($branch) {
|
||||
$cvs_checkout_flags .= " -r $branch ";
|
||||
}
|
||||
|
||||
# pass these variables to the Makefile.orig so that the
|
||||
# buildid can contain this information.
|
||||
|
||||
$ENV{'BUILD_CVS_D_TIME'} = $filename_time_str;
|
||||
$ENV{'BUILD_BRANCH'} = $branch;
|
||||
$ENV{'BUILD_MODULE'} = $module;
|
||||
|
||||
|
||||
# builds discribe a sequence of steps needed to perform a "build".
|
||||
# Each build either succeeds or fails. Builds can be used for running
|
||||
|
@ -163,6 +234,8 @@ $BUILDS = {
|
|||
'script' => [
|
||||
"show_env",
|
||||
"rpm -qa",
|
||||
"rm -rf $build_dir",
|
||||
"mkdir -p $build_dir",
|
||||
],
|
||||
},
|
||||
{
|
||||
|
@ -170,7 +243,7 @@ $BUILDS = {
|
|||
'error_status' => "build_failed",
|
||||
'dir' => "$BUILD_DIR",
|
||||
'script' => [
|
||||
"cvs checkout $cvs_checkout_flags $module",
|
||||
"cvs checkout $cvs_checkout_flags -D '$cvs_time_str' $module",
|
||||
],
|
||||
},
|
||||
{
|
||||
|
@ -178,9 +251,19 @@ $BUILDS = {
|
|||
'error_status' => "build_failed",
|
||||
'dir' => "$BUILD_DIR/reef",
|
||||
'script' => [
|
||||
". ./setupenv; ./configure",
|
||||
". ./setupenv; make $make_flags distclean",
|
||||
". ./setupenv; make $make_flags install",
|
||||
". ./setupenv; ./configure",
|
||||
". ./setupenv; make $make_flags install",
|
||||
|
||||
# If a tarfile name contains
|
||||
# a colon then everything
|
||||
# before the colon is
|
||||
# interpreted as a hostname.
|
||||
# We do not want this
|
||||
# behavor so we use stdout
|
||||
# to get arround this.
|
||||
|
||||
"tar zc \./reef/aprt >$tar_file",
|
||||
". ./setupenv; make $make_flags distclean",
|
||||
],
|
||||
},
|
||||
], # end construct
|
||||
|
@ -266,16 +349,17 @@ sub build_name {
|
|||
|
||||
my ($argv) = "@ARGV";
|
||||
|
||||
$OS = `uname -s`;
|
||||
$OSVer = `uname -r`;
|
||||
$os = `uname -s`;
|
||||
$osver = `uname -r`;
|
||||
|
||||
chomp $OS;
|
||||
chomp $OSVer;
|
||||
chomp $os;
|
||||
chomp $osver;
|
||||
|
||||
|
||||
my ($build_name) = join('-',
|
||||
$args{'hostname'},
|
||||
$OS, $OSVer,
|
||||
$args{'buildtype'},
|
||||
$os, $osver,
|
||||
);
|
||||
$build_name =~ s/\.\.+/\./g;
|
||||
|
||||
|
|
Загрузка…
Ссылка в новой задаче