Fix oops.
adium-1.5.10.4
tip
2017-04-25, Robert Vehse
file isExecutable
Fix oops.
# Created by J�rg Westheide on Fri Feb 13 2003. # Copyright (c) 2003 J�rg Westheide. All rights reserved. # 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> 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, 'buildDir=s' => \$buildDir, 'compressionLevel=i' => \$compressionLevel, 'deleteHeaders!' => \$deleteHeaders, 'dmgName=s' => \$dmgName, 'internetEnabled!' => \$internetEnabled, 'slaRsrcFile=s' => \$slaRsrcFile, 'volSize=i' => \$volSize, my ($prog, $version) = ($versionStr =~ /:\s*(\w+).pl\S*\s+(\d+\.?\d*)/); print "$prog v$version\n"; 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; $dmgName = "$name $version"; 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"; # 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... 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; 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 print "Copying files to $dest...\n"; eval { $output = `/Developer/Tools/CpMac -r $files \"$dest\"`}; print STDERR "Error while copying $files to $dest: $@\n"; print "Deleting header files and directories...\n"; $output = `find -E -d "$dest" -regex ".*/(Private)?Headers" -exec rm -rf {} ";"`; eval { $output = `hdiutil detach $dev` }; die "FATAL: Error while copying files\n" if $err; die "FATAL: Couldn't unmount device $dev: $@\n" if $@; my $tmpDmgName = "../$dmgName"; 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`}; 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 eval { $output = `hdiutil internet-enable -yes $dmgName`}; print "Couldn't enable internet access for $dmgName: $@\n" if $@; return undef unless $ENV{SETTINGS_FILE}; return undef if ($ENV{ACTION} =~ /clean/i) && !(-s $ENV{SETTINGS_FILE}); open FH, "<$ENV{SETTINGS_FILE}" or die "Couldn't read file $ENV{SETTINGS_FILE}\n"; B<buildDMG> - build a DMG from the commandline or from inside ProjectBuilder buildDMG.pl [-help] [-version] [-buildDir dir] [-compressionLevel n] [-deleteHeaders] [-dmgName name] [-slaRsrcFile file] [-volName name] 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): =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 =item B<-compressionLevel> I<n> specifies the compression level for zlib compression. Legal values for I<n> are 1-9 with 1 being fastet, 9 best compression. 0 turns compression off. The corresponding environment variable is B<DMG_COMPRESSIONLEVEL>. The default is 0 (no compression) =item B<-[no]deleteHeaders> specifies whether all the folders "Headers" and "PrivateHeaders" on the dmg should be deleted or not. The environment variable is B<DMG_DELETEHEADERS>, the default is not to delete =item B<-dmgName> I<name> specifies the I<name> of the dmg to produce (without extension). The corresponding environment variable is B<DMG_NAME>. If neither the option, nor the environment variable contains a I<name>, nor a settings file is specified (see environment variable B<SETTINGS_FILE> in the Project Builder Support section below) the name of the first file will be used displays this documentation =item B<-[no]internetEnabled> specifies whether the dmg should be enabled for internet access or not (default). Seems this works only works with compressed dmgs, but since that is a "feature" of B<hdiutil> this is not enforced by buildDMG =item B<-slaRsrcFile> I<file> specifies the .r I<file> containing the source of the resources for the software license agreement to display when the dmg is mounted. The corresponding environment variable is B<DMG_SLA_RSRCFILE>. The source will be compiled with the Rez command and the result displays the version number =item B<-volName> I<name> specifies the I<name> of the volume inside the dmg. The corresponding environment variable is B<DMG_VOLNAME>. If neither the option, nor the environment variable contains a I<name>, nor a settings file is specified (see environment variable B<SETTINGS_FILE> in the Project Builder Support section below) the name of the first file will be used specifies the size of the volume to create in megabytes. The environment variable is B<DMG_VOLSIZE>. If no value or 0 is specified B<buildDmg> will try to determine the size by looking at the files to copy The B<files> specified as parameters AND the files specified in the environment variable B<DMG_FILESLIST> are copied onto the dmg (before the headers are deleted), starting with the files from the command line =head1 PROJECT BUILDER SUPPORT Due to the possibility to use environment variables instead of the above mentioned command line options you can use this script from a "Legacy Makefile" target. Therefore you have to set the build tool to "/usr/bin/perl", the arguments to "<pathToScript>/buildDMG.pl", and check the "Pass build settings in environment" checkbox. You then can control everything with the build settings. If you make this target depending on your "application target" you can build you app and put it in a dmg with a single click The B<SETTINGS_FILE> environment variable is only used if the dmg or volume name is not specified. If B<SETTINGS_FILE> is set it should point to the "Info.plist" of the project to copy onto the dmg. buildDMG is then able to automatically generate the dmg and volume name from the B<CFBundleName> and B<CFBundleVersion> entries. For the dmg name some characters which may be problematic are then replaced by an underscore ('_') When cleaning the target there is a problem with Project Builder cleaning the dependent target first, so chances are good that the file specified in B<SETTINGS_FILE> is not existing anymore. If so buildDMG deletes all dmg files in B<buildDir> C</usr/bin/perl buildDMG.pl> This is the way buildDMG can be called when all required environment variables are set (e.g. from ProjectBuilder) C<./buildDMG.pl -dmgName Name -buildDir build -volSize 10 -volName Volume -compressionLevel 9 -slaRsrcFile SLA.r Example.app This creates a dmg called "Name.dmg" in the directory "build". It contains a 10 MB volume named "Volume" and is compressed with the highest compression level. The source for the SLA is obtained from the file SLA.r and the file (or file tree) "Example.app" is copied onto the dmg, with header directories removed (after copying!) Joerg Westheide (joerg@objectpark.org)