Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simple build unpacker, b=373995 r=preed

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@231574 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
rhelmer%mozilla.com 2007-08-07 02:20:54 +00:00
parent 7095a0094f
commit e2c704277c
1 changed files with 84 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
mozilla/tools/release/MozBuild/Util.pm
View File

@ -7,12 +7,16 @@ use IO::Handle;
use IO::Select;
use IPC::Open3;
use POSIX qw(:sys_wait_h);
use File::Basename qw(fileparse);
use File::Copy qw(move);
use File::Temp qw(tempfile);
use File::Spec::Functions;
use Cwd;
use base qw(Exporter);
our @EXPORT_OK = qw(RunShellCommand MkdirWithPath HashFile DownloadFile Email);
our @EXPORT_OK = qw(RunShellCommand MkdirWithPath HashFile DownloadFile Email
UnpackBuild);
my $DEFAULT_EXEC_TIMEOUT = 600;
my $EXEC_IO_READINCR = 1000;
@ -450,4 +454,83 @@ sub DownloadFile {
}
}
##
# Unpacks Mozilla installer builds.
#
# Arguments:
# file - file to unpack
# unpackDir - dir to unpack into
##
sub UnpackBuild {
my %args = @_;
my $hdiutil = defined($ENV{'HDIUTIL'}) ? $ENV{'HDIUTIL'} : 'hdiutil';
my $rsync = defined($ENV{'RSYNC'}) ? $ENV{'RSYNC'} : 'rsync';
my $tar = defined($ENV{'TAR'}) ? $ENV{'TAR'} : 'tar';
my $sevenzip = defined($ENV{'SEVENZIP'}) ? $ENV{'SEVENZIP'} : '7z';
my $file = $args{'file'};
my $unpackDir = $args{'unpackDir'};
if (! defined($file) ) {
die("ASSERT: UnpackBuild: file is a required argument: $!");
}
if (! defined($unpackDir) ) {
die("ASSERT: UnpackBuild: unpackDir is a required argument: $!");
}
if (! -f $file) {
die("ASSERT: UnpackBuild: $file must exist and be a file: $!");
}
if (! -d $unpackDir) {
mkdir($unpackDir) || die("ASSERT: UnpackBuld: could not create $unpackDir: $!");
}
my ($filename, $directories, $suffix) = fileparse($file, qr/[^.]*/);
if (! defined($suffix) ) {
die("ASSERT: UnpackBuild: no extension found for $filename: $!");
}
if ($suffix eq 'dmg') {
my $mntDir = './mnt';
if (! -d $mntDir) {
mkdir($mntDir) || die("ASSERT: UnpackBuild: cannot create mntdir: $!");
}
# Note that this uses system() not RunShellCommand() because we need
# to echo "y" to hdiutil, to get past the EULA code.
system("echo \"y\" | PAGER=\"/bin/cat\" $hdiutil attach -quiet -puppetstrings -noautoopen -mountpoint ./mnt \"$file\"") || die ("UnpackBuild: Cannot unpack $file: $!");
my $rv = RunShellCommand(command => $rsync,
args => ['-av', $mntDir, $unpackDir]);
if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
die("UnpackBuild(): FAILED: $rv->{'exitValue'}," .
" output: $rv->{'output'}\n");
}
$rv = RunShellCommand(command => $hdiutil,
args => ['detach', $mntDir]);
if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
die("UnpackBuild(): FAILED: $rv->{'exitValue'}," .
" output: $rv->{'output'}\n");
}
}
if ($suffix eq 'gz') {
my $rv = RunShellCommand(command => $tar,
args => ['-C', $unpackDir, '-zxf', $file]);
if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
die("UnpackBuild(): FAILED: $rv->{'exitValue'}," .
" output: $rv->{'output'}\n");
}
}
if ($suffix eq 'exe') {
my $oldpwd = getcwd();
chdir($unpackDir);
my $rv = RunShellCommand(command => $sevenzip,
args => ['x', $file]);
if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
die("UnpackBuild(): FAILED: $rv->{'exitValue'}," .
" output: $rv->{'output'}\n");
}
chdir($oldpwd);
}
}
1;