Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-25 22:01:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bug 378226, Push support for Source step, r=rhelmer

Browse Source
This commit is contained in:
nrthomas@gmail.com 2007-06-27 03:46:27 -07:00
parent ddc220bd6b
commit cf3de94c6b
1 changed files with 46 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
tools/release/Bootstrap/Step/Source.pm
View File

@ -43,7 +43,51 @@ sub Execute {
sub Verify {
my $this = shift;
# TODO verify source archive
my $config = new Bootstrap::Config();
my $logDir = $config->Get(var => 'logDir');
my $logFile = catfile($logDir, 'source.log');
$this->CheckLog(
log => $logFile,
checkFor => '^checkout finish',
);
$this->CheckLog(
log => $logFile,
notAllowed => '^tar',
);
}
sub Push {
my $this = shift;
my $config = new Bootstrap::Config();
my $product = $config->Get(var => 'product');
my $version = $config->Get(var => 'version');
my $rc = $config->Get(var => 'rc');
my $logDir = $config->Get(var => 'logDir');
my $stageHome = $config->Get(var => 'stageHome');
my $stageDir = catfile($stageHome, $product . '-' . $version);
my $candidateDir = catfile('/home', 'ftp', 'pub', $product, 'nightly',
$version . '-candidates', 'rc' . $rc ) . '/';
if (not -d $candidateDir) {
MkdirWithPath(dir => $candidateDir)
or die("Could not mkdir $candidateDir: $!");
$this->Log(msg => "Created directory $candidateDir");
}
$this->Shell(
cmd => 'rsync',
cmdArgs => ['-av', catfile('batch-source', 'rc' . $rc,
$product . '-' . $version . '-source.tar.bz2'),
$candidateDir],
logFile => catfile($logDir, 'source.log'),
dir => catfile($stageDir),
);
}
sub Announce {
@ -52,13 +96,10 @@ sub Announce {
my $config = new Bootstrap::Config();
my $product = $config->Get(var => 'product');
my $version = $config->Get(var => 'version');
my $logDir = $config->Get(var => 'logDir');
my $logFile = catfile($logDir, 'source.log');
$this->SendAnnouncement(
subject => "$product $version source step finished",
message => "$product $version source archive is ready to be copied to the candidates dir.",
message => "$product $version source archive was copied to the candidates dir.",
);
}