HGKeeper

#!/usr/bin/perl -w

my $versionStr = '$Id$';

# Created by J�rg Westheide on Fri Feb 13 2003.

# Permission to use, copy, modify and distribute this software and its documentation

# is hereby granted, provided that both the copyright notice and this permission

# notice appear in all copies of the software, derivative works or modified versions,

# and any portions thereof, and that both notices appear in supporting documentation,

# and that credit is given to J�rg Westheide in all documents and publicity

# pertaining to direct or indirect use of this code or its derivatives.

# THIS IS EXPERIMENTAL SOFTWARE AND IT IS KNOWN TO HAVE BUGS, SOME OF WHICH MAY HAVE

# SERIOUS CONSEQUENCES. THE COPYRIGHT HOLDER ALLOWS FREE USE OF THIS SOFTWARE IN ITS

# "AS IS" CONDITION. THE COPYRIGHT HOLDER DISCLAIMS ANY LIABILITY OF ANY KIND FOR ANY

# DAMAGES WHATSOEVER RESULTING DIRECTLY OR INDIRECTLY FROM THE USE OF THIS SOFTWARE

# OR OF ANY DERIVATIVE WORK.

# For the most recent version see <http://www.objectpark.org>

use strict;

use diagnostics;

use Getopt::Long;

my $version;

my $help;

my $output;

my $minVolSize = 5; # minimum size of a dmg volume in MB

# determine the build directory, compression level, the list of files to copy, and the size of the dmg volume

# from the environment unless set from the command line

my $buildDir = $ENV{BUILT_PRODUCTS_DIR};

my $compressionLevel = $ENV{DMG_COMPRESSIONLEVEL};

my $volSize = $ENV{DMG_VOLSIZE};

my $volName = $ENV{DMG_VOLNAME};

my $dmgName = $ENV{DMG_NAME};

my $internetEnabled = $ENV{DMG_INTERNETENABLED};

my $slaRsrcFile = $ENV{DMG_SLA_RSRCFILE};

my $deleteHeaders = ($ENV{DMG_DELETEHEADERS} && ($ENV{DMG_DELETEHEADERS} =~ /^\s*yes\s*$/i));

my $files = $ENV{DMG_FILESLIST};

# override them with command line options

GetOptions('help' => \$help,

'version' => \$version,

'buildDir=s' => \$buildDir,

'compressionLevel=i' => \$compressionLevel,

'deleteHeaders!' => \$deleteHeaders,

'dmgName=s' => \$dmgName,

'internetEnabled!' => \$internetEnabled,

'slaRsrcFile=s' => \$slaRsrcFile,

'volSize=i' => \$volSize,

'volName=s' => \$volName

);

if ($help) {

print `perldoc $0`;

exit 0;

}

if ($version) {

my ($prog, $version) = ($versionStr =~ /:\s*(\w+).pl\S*\s+(\d+\.?\d*)/);

print "$prog v$version\n";

exit 0;

}

push @ARGV, $files if $files;

die "FATAL: No files to copy specified\n" unless @ARGV;

for (my $i = @ARGV-1; $i >= 0; $i--) {

$ARGV[$i] =~ s/ /\\ /g; # escape spaces (we pass the files on the command line)

}

$files = join(' ', @ARGV);

$buildDir = '.' unless $buildDir;

# determine dmg and volume name

if (my $settings = readSettings()) {

my ($name) = ($settings =~ /<key>CFBundleName<\/key>.*?<string>(.*?)<\/string>/is);

my ($version) = ($settings =~ /<key>CFBundleVersion<\/key>.*?<string>(.*?)<\/string>/is);

$volName = "$name $version" unless $volName;

unless ($dmgName) {

$dmgName = "$name $version";

$dmgName =~ tr/ ./__/;

}

unless ($ENV{SETTINGS_FILE}) {

$dmgName = $ARGV[0] unless $dmgName;

$dmgName =~ s#.*/([^/]+)$#$1#; # we have to cut off the path

$dmgName =~ s/(.*?)(\.[^.]*)?$/$1/; # cut off the extension

$volName = $dmgName unless $volName;

}

# if ProjectBuilder asks us to "clean" we remove the dmg. if we determined the name ourself, we cannot determine

# it now since PB has already deleted the settings file :-(. So we delete all dmgs in the build directory

if ($ENV{ACTION} && $ENV{ACTION} =~ /clean/i) {

$dmgName = '*' unless $dmgName;

print glob "$buildDir/$dmgName.dmg";

unlink glob "$buildDir/$dmgName.dmg";

exit 0;

}

# if requested determine required size for the dmg

unless ($volSize && ($volSize > 0)) {

eval { $output = `du -csk $files`};

die "Couldn't determine the required space for the dmg: $@\n" if $@;

($volSize) = ($output =~ /\s*(\d+)\s+total\s*$/si);

$volSize = int $volSize * 1.5 / 1024 + 1;

$volSize = $minVolSize if $volSize < $minVolSize;

}

# OK, we have determined all out parameters.

# Now we start our work...

# create the dmg

eval { $output = `hdiutil create \"$buildDir/$dmgName\" -ov -megabytes $volSize -fs HFS+ -volname \"$volName\"` };

die "FATAL: Could not create image: $@\n" if $@;

die "FATAL: Couldn't create dmg $dmgName.\nIs it possibly mounted?\n" if $?;

# ($dmgName) = ($output =~ /created\s*:\s*(.+?)\s*$/m);

$dmgName = ($dmgName . ".dmg");

die "FATAL: Couldn't read created dmg name\n" unless $dmgName;

# mount the dmg

eval { $output = `hdiutil attach \"$dmgName\"` };

die "FATAL: Couldn't mount DMG $dmgName\n" if $@;

my ($dev) = ($output =~ /(\/dev\/.+?)\s*Apple_partition_scheme/im);

my ($dest) = ($output =~ /Apple_HFS\s+(.+?)\s*$/im);

# copy the files onto the dmg

my $err;

print "Copying files to $dest...\n";

eval { $output = `/Developer/Tools/CpMac -r $files \"$dest\"`};

if ($@) {

print STDERR "Error while copying $files to $dest: $@\n";

$err = $@;

}

# delete headers

if ($deleteHeaders) {

print "Deleting header files and directories...\n";

$output = `find -E -d "$dest" -regex ".*/(Private)?Headers" -exec rm -rf {} ";"`;

}

# unmount the dmg

eval { $output = `hdiutil detach $dev` };

die "FATAL: Error while copying files\n" if $err;

die "FATAL: Couldn't unmount device $dev: $@\n" if $@;

# compress the dmg

my $tmpDmgName = "../$dmgName";

if ($compressionLevel) {

print "Compressing $dmgName...\n";

eval { $output = `hdiutil convert $dmgName -format UDZO -imagekey zlib-level=$compressionLevel -o $tmpDmgName`};

die "Error: Couldn't compress the dmg $dmgName: $@\n" if $@;

eval { $output = `cp -f $tmpDmgName $dmgName`};

eval { $output = `rm $tmpDmgName`};

unlink "$tmpDmgName";

}

# Adding the SLA

if ($slaRsrcFile) {

print "Adding SLA...\n";

eval { $output = `hdiutil unflatten $dmgName`};

die "Couldn't unflatten dmg: $@\n" if $@;

eval { $output = `/Developer/Tools/Rez /Developer/Headers/FlatCarbon/*.r $slaRsrcFile -a -o $dmgName`};

print "Couldn't add SLA: $@\n" if $@;

eval { $output = `hdiutil flatten $dmgName`};

die "Couldn't flatten dmg: $@\n" if $@;

}

# Enabling internet access

if ($internetEnabled) {

eval { $output = `hdiutil internet-enable -yes $dmgName`};

print "Couldn't enable internet access for $dmgName: $@\n" if $@;

}

print "Done.\n";

exit 0;

sub readSettings {

return undef unless $ENV{SETTINGS_FILE};

return undef if ($ENV{ACTION} =~ /clean/i) && !(-s $ENV{SETTINGS_FILE});

my $settings;

my $oldSep = $/;

undef $/;

open FH, "<$ENV{SETTINGS_FILE}" or die "Couldn't read file $ENV{SETTINGS_FILE}\n";

$settings = <FH>;

close FH;

$/ = $oldSep;

return $settings;

}

=head1 NAME

B<buildDMG> - build a DMG from the commandline or from inside ProjectBuilder

=head1 SYNOPSIS

buildDMG.pl [-help] [-version] [-buildDir dir] [-compressionLevel n] [-deleteHeaders] [-dmgName name] [-slaRsrcFile file] [-volName name]

[-volSize n] files...

=head1 DESCRIPTION

buildDMG can be used to create a dmg either from command line or within ProjectBuilder. The special support for ProjectBuilder consist

of evaluating environment variables and creating volume and dmg names from the project's settings file.

The following options are available (and override the mentioned environment variables):

=over 4

=item B<-buildDir> I<directory>

specifies the I<directory> in which the dmg should be created. If this option is not specified the value of the environment variable

B<BUILT_PRODUCTS_DIR> (which is automatically provided by ProjectBuilder). If no value is provided the default will be the current

adium/adium