[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
[vidalia-svn] r3916: Add a pkg-dmg script from Mozilla that does more cool things (vidalia/trunk/pkg/osx)
Author: edmanm
Date: 2009-06-28 22:53:25 -0400 (Sun, 28 Jun 2009)
New Revision: 3916
Added:
vidalia/trunk/pkg/osx/pkg-dmg
Modified:
vidalia/trunk/pkg/osx/CMakeLists.txt
Log:
Add a pkg-dmg script from Mozilla that does more cool things than our
builddmg.sh script does, and wrap a 'make dist-osx' target around it that
packages up any necessary Qt frameworks or libraries (e.g. Marble) and
spits out a .dmg.
Modified: vidalia/trunk/pkg/osx/CMakeLists.txt
===================================================================
--- vidalia/trunk/pkg/osx/CMakeLists.txt 2009-06-29 02:44:34 UTC (rev 3915)
+++ vidalia/trunk/pkg/osx/CMakeLists.txt 2009-06-29 02:53:25 UTC (rev 3916)
@@ -94,3 +94,30 @@
endif(USE_MARBLE)
endif(QT_USE_FRAMEWORKS)
+if (OSX_FAT_BINARY)
+ set(DMG_ARCH "universal")
+else(OSX_FAT_BINARY)
+ set(DMG_ARCH ${CMAKE_OSX_ARCHITECTURES})
+endif(OSX_FAT_BINARY)
+
+add_custom_target(dist-osx
+ COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/pkg-dmg
+ --source ${VIDALIA_APP_BUNDLE_ROOT}
+ --target ${Vidalia_BINARY_DIR}/vidalia-${VERSION}-${DMG_ARCH}.dmg
+ --sourcefile --volname "Vidalia ${VERSION}"
+ --icon ${Vidalia_SOURCE_DIR}/src/vidalia/res/icons/Vidalia.icns
+ --symlink "/Applications:/Drag to here"
+ --mkdir /.background
+ --copy ${CMAKE_CURRENT_SOURCE_DIR}/background.png:/.background/
+ --copy ${CMAKE_CURRENT_SOURCE_DIR}/nonbundle-ds_store:/.DS_Store
+ --mkdir /Licenses
+ --copy ${Vidalia_SOURCE_DIR}/LICENSE:/Licenses/License.txt
+ --copy ${Vidalia_SOURCE_DIR}/LICENSE-GPLV2:/Licenses/License-GPLv2.txt
+ --copy ${Vidalia_SOURCE_DIR}/LICENSE-GPLV3:/Licenses/License-GPLv3.txt
+ --copy ${Vidalia_SOURCE_DIR}/LICENSE-OPENSSL:/Licenses/License-OpenSSL.txt
+ --copy ${Vidalia_SOURCE_DIR}/README:/ReadMe.txt
+ --copy ${Vidalia_SOURCE_DIR}/CHANGELOG:/Changes.txt
+ VERBATIM
+)
+add_dependencies(dist-osx dist-osx-libraries)
+
Added: vidalia/trunk/pkg/osx/pkg-dmg
===================================================================
--- vidalia/trunk/pkg/osx/pkg-dmg (rev 0)
+++ vidalia/trunk/pkg/osx/pkg-dmg 2009-06-29 02:53:25 UTC (rev 3916)
@@ -0,0 +1,1520 @@
+#!/usr/bin/perl
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is pkg-dmg, a Mac OS X disk image (.dmg) packager
+#
+# The Initial Developer of the Original Code is
+# Mark Mentovai <mark@xxxxxxxxxxxx>.
+# Portions created by the Initial Developer are Copyright (C) 2005
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+use strict;
+use warnings;
+
+=pod
+
+=head1 NAME
+
+B<pkg-dmg> - Mac OS X disk image (.dmg) packager
+
+=head1 SYNOPSIS
+
+B<pkg-dmg>
+B<--source> I<source-folder>
+B<--target> I<target-image>
+[B<--format> I<format>]
+[B<--volname> I<volume-name>]
+[B<--tempdir> I<temp-dir>]
+[B<--mkdir> I<directory>]
+[B<--copy> I<source>[:I<dest>]]
+[B<--symlink> I<source>[:I<dest>]]
+[B<--license> I<file>]
+[B<--resource> I<file>]
+[B<--icon> I<icns-file>]
+[B<--attribute> I<a>:I<file>[:I<file>...]
+[B<--idme>]
+[B<--sourcefile>]
+[B<--verbosity> I<level>]
+[B<--dry-run>]
+
+=head1 DESCRIPTION
+
+I<pkg-dmg> takes a directory identified by I<source-folder> and transforms
+it into a disk image stored as I<target-image>. The disk image will
+occupy the least space possible for its format, or the least space that the
+authors have been able to figure out how to achieve.
+
+=head1 OPTIONS
+
+=over 5
+
+==item B<--source> I<source-folder>
+
+Identifies the directory that will be packaged up. This directory is not
+touched, a copy will be made in a temporary directory for staging purposes.
+See B<--tempdir>.
+
+==item B<--target> I<target-image>
+
+The disk image to create. If it exists and is not in use, it will be
+overwritten. If I<target-image> already contains a suitable extension,
+it will be used unmodified. If no extension is present, or the extension
+is incorrect for the selected format, the proper extension will be added.
+See B<--format>.
+
+==item B<--format> I<format>
+
+The format to create the disk image in. Valid values for I<format> are:
+ - UDZO - zlib-compressed, read-only; extension I<.dmg>
+ - UDBZ - bzip2-compressed, read-only; extension I<.dmg>;
+ create and use on 10.4 ("Tiger") and later only
+ - UDRW - read-write; extension I<.dmg>
+ - UDSP - read-write, sparse; extension I<.sparseimage>
+
+UDZO is the default format.
+
+See L<hdiutil(1)> for a description of these formats.
+
+=item B<--volname> I<volume-name>
+
+The name of the volume in the disk image. If not specified, I<volume-name>
+defaults to the name of the source directory from B<--source>.
+
+=item B<--tempdir> I<temp-dir>
+
+A temporary directory to stage intermediate files in. I<temp-dir> must
+have enough space available to accommodate twice the size of the files
+being packaged. If not specified, defaults to the same directory that
+the I<target-image> is to be placed in. B<pkg-dmg> will remove any
+temporary files it places in I<temp-dir>.
+
+=item B<--mkdir> I<directory>
+
+Specifies a directory that should be created in the disk image.
+I<directory> and any ancestor directories will be created. This is
+useful in conjunction with B<--copy>, when copying files to directories
+that may not exist in I<source-folder>. B<--mkdir> may appear multiple
+times.
+
+=item B<--copy> I<source>[:I<dest>]
+
+Additional files to copy into the disk image. If I<dest> is
+specified, I<source> is copied to the location I<dest> identifies,
+otherwise, I<source> is copied to the root of the new volume. B<--copy>
+provides a way to package up a I<source-folder> by adding files to it
+without modifying the original I<source-folder>. B<--copy> may appear
+multiple times.
+
+This option is useful for adding .DS_Store files and window backgrounds
+to disk images.
+
+=item B<--symlink> I<source>[:I<dest>]
+
+Like B<--copy>, but allows symlinks to point out of the volume. Empty symlink
+destinations are interpreted as "like the source path, but inside the dmg"
+
+This option is useful for adding symlinks to external resources,
+e.g. to /Applications.
+
+=item B<--license> I<file>
+
+A plain text file containing a license agreement to be displayed before
+the disk image is mounted. English is the only supported language. To
+include license agreements in other languages, in multiple languages,
+or to use formatted text, prepare a resource and use L<--resource>.
+
+=item B<--resource> I<file>
+
+A resource file to merge into I<target-image>. If I<format> is UDZO or
+UDBZ, the disk image will be flattened to a single-fork file that contains
+the resource but may be freely transferred without any special encodings.
+I<file> must be in a format suitable for L<Rez(1)>. See L<Rez(1)> for a
+description of the format, and L<hdiutil(1)> for a discussion on flattened
+disk images. B<--resource> may appear multiple times.
+
+This option is useful for adding license agreements and other messages
+to disk images.
+
+=item B<--icon> I<icns-file>
+
+Specifies an I<icns> file that will be used as the icon for the root of
+the volume. This file will be copied to the new volume and the custom
+icon attribute will be set on the root folder.
+
+=item B<--attribute> I<a>:I<file>[:I<file>...]
+
+Sets the attributes of I<file> to the attribute list in I<a>. See
+L<SetFile(1)>
+
+=item B<--idme>
+
+Enable IDME to make the disk image "Internet-enabled." The first time
+the image is mounted, if IDME processing is enabled on the system, the
+contents of the image will be copied out of the image and the image will
+be placed in the trash with IDME disabled.
+
+=item B<--sourcefile>
+
+If this option is present, I<source-folder> is treated as a file, and is
+placed as a file within the volume's root folder. Without this option,
+I<source-folder> is treated as the volume root itself.
+
+=item B<--verbosity> I<level>
+
+Adjusts the level of loudness of B<pkg-dmg>. The possible values for
+I<level> are:
+ 0 - Only error messages are displayed.
+ 1 - Print error messages and command invocations.
+ 2 - Print everything, including command output.
+
+The default I<level> is 2.
+
+=item B<--dry-run>
+
+When specified, the commands that would be executed are printed, without
+actually executing them. When commands depend on the output of previous
+commands, dummy values are displayed.
+
+=back
+
+=head1 NON-OPTIONS
+
+=over 5
+
+=item
+
+Resource forks aren't copied.
+
+=item
+
+The root folder of the created volume is designated as the folder
+to open when the volume is mounted. See L<bless(8)>.
+
+=item
+
+All files in the volume are set to be world-readable, only writable
+by the owner, and world-executable when appropriate. All other
+permissions bits are cleared.
+
+=item
+
+When possible, disk images are created without any partition tables. This
+is what L<hdiutil(1)> refers to as I<-layout NONE>, and saves a handful of
+kilobytes. The alternative, I<SPUD>, contains a partition table that
+is not terribly handy on disk images that are not intended to represent any
+physical disk.
+
+=item
+
+Read-write images are created with journaling off. Any read-write image
+created by this tool is expected to be transient, and the goal of this tool
+is to create images which consume a minimum of space.
+
+=back
+
+=head1 EXAMPLE
+
+pkg-dmg --source /Applications/DeerPark.app --target ~/DeerPark.dmg
+ --sourcefile --volname DeerPark --icon ~/DeerPark.icns
+ --mkdir /.background
+ --copy DeerParkBackground.png:/.background/background.png
+ --copy DeerParkDSStore:/.DS_Store
+ --symlink /Applications:"/Drag to here"
+
+=head1 REQUIREMENTS
+
+I<pkg-dmg> has been tested with Mac OS X releases 10.2 ("Jaguar")
+through 10.4 ("Tiger"). Certain adjustments to behavior are made
+depending on the host system's release. Mac OS X 10.3 ("Panther") or
+later are recommended.
+
+=head1 LICENSE
+
+MPL 1.1/GPL 2.0/LGPL 2.1. Your choice.
+
+=head1 AUTHOR
+
+Mark Mentovai
+
+=head1 SEE ALSO
+
+L<bless(8)>, L<diskutil(8)>, L<hdid(8)>, L<hdiutil(1)>, L<Rez(1)>,
+L<rsync(1)>, L<SetFile(1)>
+
+=cut
+
+use Fcntl;
+use POSIX;
+use Getopt::Long;
+
+sub argumentEscape(@);
+sub cleanupDie($);
+sub command(@);
+sub commandInternal($@);
+sub commandInternalVerbosity($$@);
+sub commandOutput(@);
+sub commandOutputVerbosity($@);
+sub commandVerbosity($@);
+sub copyFiles($@);
+sub diskImageMaker($$$$$$$$);
+sub giveExtension($$);
+sub hdidMountImage($@);
+sub isFormatCompressed($);
+sub licenseMaker($$);
+sub pathSplit($);
+sub setAttributes($@);
+sub trapSignal($);
+sub usage();
+
+# Variables used as globals
+my(@gCleanup, %gConfig, $gDarwinMajor, $gDryRun, $gVerbosity);
+
+# Use the commands by name if they're expected to be in the user's
+# $PATH (/bin:/sbin:/usr/bin:/usr/sbin). Otherwise, go by absolute
+# path. These may be overridden with --config.
+%gConfig = ('cmd_bless' => 'bless',
+ 'cmd_chmod' => 'chmod',
+ 'cmd_diskutil' => 'diskutil',
+ 'cmd_du' => 'du',
+ 'cmd_hdid' => 'hdid',
+ 'cmd_hdiutil' => 'hdiutil',
+ 'cmd_mkdir' => 'mkdir',
+ 'cmd_mktemp' => 'mktemp',
+ 'cmd_Rez' => '/Developer/Tools/Rez',
+ 'cmd_rm' => 'rm',
+ 'cmd_rsync' => 'rsync',
+ 'cmd_SetFile' => '/Developer/Tools/SetFile',
+
+ # create_directly indicates whether hdiutil create supports
+ # -srcfolder and -srcdevice. It does on >= 10.3 (Panther).
+ # This is fixed up for earlier systems below. If false,
+ # hdiutil create is used to create empty disk images that
+ # are manually filled.
+ 'create_directly' => 1,
+
+ # If hdiutil attach -mountpoint exists, use it to avoid
+ # mounting disk images in the default /Volumes. This reduces
+ # the likelihood that someone will notice a mounted image and
+ # interfere with it. Only available on >= 10.3 (Panther),
+ # fixed up for earlier systems below.
+ #
+ # This is presently turned off for all systems, because there
+ # is an infrequent synchronization problem during ejection.
+ # diskutil eject might return before the image is actually
+ # unmounted. If pkg-dmg then attempts to clean up its
+ # temporary directory, it could remove items from a read-write
+ # disk image or attempt to remove items from a read-only disk
+ # image (or a read-only item from a read-write image) and fail,
+ # causing pkg-dmg to abort. This problem is experienced
+ # under Tiger, which appears to eject asynchronously where
+ # previous systems treated it as a synchronous operation.
+ # Using hdiutil attach -mountpoint didn't always keep images
+ # from showing up on the desktop anyway.
+ 'hdiutil_mountpoint' => 0,
+
+ # hdiutil makehybrid results in optimized disk images that
+ # consume less space and mount more quickly. Use it when
+ # it's available, but that's only on >= 10.3 (Panther).
+ # If false, hdiutil create is used instead. Fixed up for
+ # earlier systems below.
+ 'makehybrid' => 1,
+
+ # hdiutil create doesn't allow specifying a folder to open
+ # at volume mount time, so those images are mounted and
+ # their root folders made holy with bless -openfolder. But
+ # only on >= 10.3 (Panther). Earlier systems are out of luck.
+ # Even on Panther, bless refuses to run unless root.
+ # Fixed up below.
+ 'openfolder_bless' => 1,
+
+ # It's possible to save a few more kilobytes by including the
+ # partition only without any partition table in the image.
+ # This is a good idea on any system, so turn this option off.
+ #
+ # Except it's buggy. "-layout NONE" seems to be creating
+ # disk images with more data than just the partition table
+ # stripped out. You might wind up losing the end of the
+ # filesystem - the last file (or several) might be incomplete.
+ 'partition_table' => 1,
+
+ # To create a partition table-less image from something
+ # created by makehybrid, the hybrid image needs to be
+ # mounted and a new image made from the device associated
+ # with the relevant partition. This requires >= 10.4
+ # (Tiger), presumably because earlier systems have
+ # problems creating images from devices themselves attached
+ # to images. If this is false, makehybrid images will
+ # have partition tables, regardless of the partition_table
+ # setting. Fixed up for earlier systems below.
+ 'recursive_access' => 1);
+
+# --verbosity
+$gVerbosity = 2;
+
+# --dry-run
+$gDryRun = 0;
+
+# %gConfig fix-ups based on features and bugs present in certain releases.
+my($ignore, $uname_r, $uname_s);
+($uname_s, $ignore, $uname_r, $ignore, $ignore) = POSIX::uname();
+if($uname_s eq 'Darwin') {
+ ($gDarwinMajor, $ignore) = split(/\./, $uname_r, 2);
+
+ # $major is the Darwin major release, which for our purposes, is 4 higher
+ # than the interesting digit in a Mac OS X release.
+ if($gDarwinMajor <= 6) {
+ # <= 10.2 (Jaguar)
+ # hdiutil create does not support -srcfolder or -srcdevice
+ $gConfig{'create_directly'} = 0;
+ # hdiutil attach does not support -mountpoint
+ $gConfig{'hdiutil_mountpoint'} = 0;
+ # hdiutil mkhybrid does not exist
+ $gConfig{'makehybrid'} = 0;
+ }
+ if($gDarwinMajor <= 7) {
+ # <= 10.3 (Panther)
+ # Can't mount a disk image and then make a disk image from the device
+ $gConfig{'recursive_access'} = 0;
+ # bless does not support -openfolder on 10.2 (Jaguar) and must run
+ # as root under 10.3 (Panther)
+ $gConfig{'openfolder_bless'} = 0;
+ }
+}
+else {
+ # If it's not Mac OS X, just assume all of those good features are
+ # available. They're not, but things will fail long before they
+ # have a chance to make a difference.
+ #
+ # Now, if someone wanted to document some of these private formats...
+ print STDERR ($0.": warning, not running on Mac OS X, ".
+ "this could be interesting.\n");
+}
+
+# Non-global variables used in Getopt
+my(@attributes, @copyFiles, @createSymlinks, $iconFile, $idme, $licenseFile,
+ @makeDirs, $outputFormat, @resourceFiles, $sourceFile, $sourceFolder,
+ $targetImage, $tempDir, $volumeName);
+
+# --format
+$outputFormat = 'UDZO';
+
+# --idme
+$idme = 0;
+
+# --sourcefile
+$sourceFile = 0;
+
+# Leaving this might screw up the Apple tools.
+delete $ENV{'NEXT_ROOT'};
+
+# This script can get pretty messy, so trap a few signals.
+$SIG{'INT'} = \&trapSignal;
+$SIG{'HUP'} = \&trapSignal;
+$SIG{'TERM'} = \&trapSignal;
+
+Getopt::Long::Configure('pass_through');
+GetOptions('source=s' => \$sourceFolder,
+ 'target=s' => \$targetImage,
+ 'volname=s' => \$volumeName,
+ 'format=s' => \$outputFormat,
+ 'tempdir=s' => \$tempDir,
+ 'mkdir=s' => \@makeDirs,
+ 'copy=s' => \@copyFiles,
+ 'symlink=s' => \@createSymlinks,
+ 'license=s' => \$licenseFile,
+ 'resource=s' => \@resourceFiles,
+ 'icon=s' => \$iconFile,
+ 'attribute=s' => \@attributes,
+ 'idme' => \$idme,
+ 'sourcefile' => \$sourceFile,
+ 'verbosity=i' => \$gVerbosity,
+ 'dry-run' => \$gDryRun,
+ 'config=s' => \%gConfig); # "hidden" option not in usage()
+
+if(@ARGV) {
+ # All arguments are parsed by Getopt
+ usage();
+ exit(1);
+}
+
+if($gVerbosity<0 || $gVerbosity>2) {
+ usage();
+ exit(1);
+}
+
+if(!defined($sourceFolder) || $sourceFolder eq '' ||
+ !defined($targetImage) || $targetImage eq '') {
+ # --source and --target are required arguments
+ usage();
+ exit(1);
+}
+
+# Make sure $sourceFolder doesn't contain trailing slashes. It messes with
+# rsync.
+while(substr($sourceFolder, -1) eq '/') {
+ chop($sourceFolder);
+}
+
+if(!defined($volumeName)) {
+ # Default volumeName is the name of the source directory.
+ my(@components);
+ @components = pathSplit($sourceFolder);
+ $volumeName = pop(@components);
+}
+
+my(@tempDirComponents, $targetImageFilename);
+@tempDirComponents = pathSplit($targetImage);
+$targetImageFilename = pop(@tempDirComponents);
+
+if(defined($tempDir)) {
+ @tempDirComponents = pathSplit($tempDir);
+}
+else {
+ # Default tempDir is the same directory as what is specified for
+ # targetImage
+ $tempDir = join('/', @tempDirComponents);
+}
+
+# Ensure that the path of the target image has a suitable extension. If
+# it didn't, hdiutil would add one, and we wouldn't be able to find the
+# file.
+#
+# Note that $targetImageFilename is not being reset. This is because it's
+# used to build other names below, and we don't need to be adding all sorts
+# of extra unnecessary extensions to the name.
+my($originalTargetImage, $requiredExtension);
+$originalTargetImage = $targetImage;
+if($outputFormat eq 'UDSP') {
+ $requiredExtension = '.sparseimage';
+}
+else {
+ $requiredExtension = '.dmg';
+}
+$targetImage = giveExtension($originalTargetImage, $requiredExtension);
+
+if($targetImage ne $originalTargetImage) {
+ print STDERR ($0.": warning: target image extension is being added\n");
+ print STDERR (' The new filename is '.
+ giveExtension($targetImageFilename,$requiredExtension)."\n");
+}
+
+# Make a temporary directory in $tempDir for our own nefarious purposes.
+my(@output, $tempSubdir, $tempSubdirTemplate);
+$tempSubdirTemplate=join('/', @tempDirComponents,
+ 'pkg-dmg.'.$$.'.XXXXXXXX');
+if(!(@output = commandOutput($gConfig{'cmd_mktemp'}, '-d',
+ $tempSubdirTemplate)) || $#output != 0) {
+ cleanupDie('mktemp failed');
+}
+
+if($gDryRun) {
+ (@output)=($tempSubdirTemplate);
+}
+
+($tempSubdir) = @output;
+
+push(@gCleanup,
+ sub {commandVerbosity(0, $gConfig{'cmd_rm'}, '-rf', $tempSubdir);});
+
+my($tempMount, $tempRoot, @tempsToMake);
+$tempRoot = $tempSubdir.'/stage';
+$tempMount = $tempSubdir.'/mount';
+push(@tempsToMake, $tempRoot);
+if($gConfig{'hdiutil_mountpoint'}) {
+ push(@tempsToMake, $tempMount);
+}
+
+if(command($gConfig{'cmd_mkdir'}, @tempsToMake) != 0) {
+ cleanupDie('mkdir tempRoot/tempMount failed');
+}
+
+# This cleanup object is not strictly necessary, because $tempRoot is inside
+# of $tempSubdir, but the rest of the script relies on this object being
+# on the cleanup stack and expects to remove it.
+push(@gCleanup,
+ sub {commandVerbosity(0, $gConfig{'cmd_rm'}, '-rf', $tempRoot);});
+
+# If $sourceFile is true, it means that $sourceFolder is to be treated as
+# a file and placed as a file within the volume root, as opposed to being
+# treated as the volume root itself. rsync will do this by default, if no
+# trailing '/' is present. With a trailing '/', $sourceFolder becomes
+# $tempRoot, instead of becoming an entry in $tempRoot.
+if(command($gConfig{'cmd_rsync'}, '-a', '--copy-unsafe-links',
+ $sourceFolder.($sourceFile?'':'/'),$tempRoot) != 0) {
+ cleanupDie('rsync failed');
+}
+
+if(@makeDirs) {
+ my($makeDir, @tempDirsToMake);
+ foreach $makeDir (@makeDirs) {
+ if($makeDir =~ /^\//) {
+ push(@tempDirsToMake, $tempRoot.$makeDir);
+ }
+ else {
+ push(@tempDirsToMake, $tempRoot.'/'.$makeDir);
+ }
+ }
+ if(command($gConfig{'cmd_mkdir'}, '-p', @tempDirsToMake) != 0) {
+ cleanupDie('mkdir failed');
+ }
+}
+
+# copy files and/or create symlinks
+copyFiles($tempRoot, 'copy', @copyFiles);
+copyFiles($tempRoot, 'symlink', @createSymlinks);
+
+if($gConfig{'create_directly'}) {
+ # If create_directly is false, the contents will be rsynced into a
+ # disk image and they would lose their attributes.
+ setAttributes($tempRoot, @attributes);
+}
+
+if(defined($iconFile)) {
+ if(command($gConfig{'cmd_rsync'}, '-a', '--copy-unsafe-links', $iconFile,
+ $tempRoot.'/.VolumeIcon.icns') != 0) {
+ cleanupDie('rsync failed for volume icon');
+ }
+
+ # It's pointless to set the attributes of the root when diskutil create
+ # -srcfolder is being used. In that case, the attributes will be set
+ # later, after the image is already created.
+ if(isFormatCompressed($outputFormat) &&
+ (command($gConfig{'cmd_SetFile'}, '-a', 'C', $tempRoot) != 0)) {
+ cleanupDie('SetFile failed');
+ }
+}
+
+if(command($gConfig{'cmd_chmod'}, '-R', 'a+rX,a-st,u+w,go-w',
+ $tempRoot) != 0) {
+ cleanupDie('chmod failed');
+}
+
+my($unflattenable);
+if(isFormatCompressed($outputFormat)) {
+ $unflattenable = 1;
+}
+else {
+ $unflattenable = 0;
+}
+
+diskImageMaker($tempRoot, $targetImage, $outputFormat, $volumeName,
+ $tempSubdir, $tempMount, $targetImageFilename, defined($iconFile));
+
+if(defined($licenseFile) && $licenseFile ne '') {
+ my($licenseResource);
+ $licenseResource = $tempSubdir.'/license.r';
+ if(!licenseMaker($licenseFile, $licenseResource)) {
+ cleanupDie('licenseMaker failed');
+ }
+ push(@resourceFiles, $licenseResource);
+ # Don't add a cleanup object because licenseResource is in tempSubdir.
+}
+
+if(@resourceFiles) {
+ # Add resources, such as a license agreement.
+
+ # Only unflatten read-only and compressed images. It's not supported
+ # on other image times.
+ if($unflattenable &&
+ (command($gConfig{'cmd_hdiutil'}, 'unflatten', $targetImage)) != 0) {
+ cleanupDie('hdiutil unflatten failed');
+ }
+ # Don't push flatten onto the cleanup stack. If we fail now, we'll be
+ # removing $targetImage anyway.
+
+ # Type definitions come from Carbon.r.
+ if(command($gConfig{'cmd_Rez'}, 'Carbon.r', @resourceFiles, '-a', '-o',
+ $targetImage) != 0) {
+ cleanupDie('Rez failed');
+ }
+
+ # Flatten. This merges the resource fork into the data fork, so no
+ # special encoding is needed to transfer the file.
+ if($unflattenable &&
+ (command($gConfig{'cmd_hdiutil'}, 'flatten', $targetImage)) != 0) {
+ cleanupDie('hdiutil flatten failed');
+ }
+}
+
+# $tempSubdir is no longer needed. It's buried on the stack below the
+# rm of the fresh image file. Splice in this fashion is equivalent to
+# pop-save, pop, push-save.
+splice(@gCleanup, -2, 1);
+# No need to remove licenseResource separately, it's in tempSubdir.
+if(command($gConfig{'cmd_rm'}, '-rf', $tempSubdir) != 0) {
+ cleanupDie('rm -rf tempSubdir failed');
+}
+
+if($idme) {
+ if(command($gConfig{'cmd_hdiutil'}, 'internet-enable', '-yes',
+ $targetImage) != 0) {
+ cleanupDie('hdiutil internet-enable failed');
+ }
+}
+
+# Done.
+
+exit(0);
+
+# argumentEscape(@arguments)
+#
+# Takes a list of @arguments and makes them shell-safe.
+sub argumentEscape(@) {
+ my(@arguments);
+ @arguments = @_;
+ my($argument, @argumentsOut);
+ foreach $argument (@arguments) {
+ $argument =~ s%([^A-Za-z0-9_\-/.=+,])%\\$1%g;
+ push(@argumentsOut, $argument);
+ }
+ return @argumentsOut;
+}
+
+# cleanupDie($message)
+#
+# Displays $message as an error message, and then runs through the
+# @gCleanup stack, performing any cleanup operations needed before
+# exiting. Does not return, exits with exit status 1.
+sub cleanupDie($) {
+ my($message);
+ ($message) = @_;
+ print STDERR ($0.': '.$message.(@gCleanup?' (cleaning up)':'')."\n");
+ while(@gCleanup) {
+ my($subroutine);
+ $subroutine = pop(@gCleanup);
+ &$subroutine;
+ }
+ exit(1);
+}
+
+# command(@arguments)
+#
+# Runs the specified command at the verbosity level defined by $gVerbosity.
+# Returns nonzero on failure, returning the exit status if appropriate.
+# Discards command output.
+sub command(@) {
+ my(@arguments);
+ @arguments = @_;
+ return commandVerbosity($gVerbosity,@arguments);
+}
+
+# commandInternal($command, @arguments)
+#
+# Runs the specified internal command at the verbosity level defined by
+# $gVerbosity.
+# Returns zero(!) on failure, because commandInternal is supposed to be a
+# direct replacement for the Perl system call wrappers, which, unlike shell
+# commands and C equivalent system calls, return true (instead of 0) to
+# indicate success.
+sub commandInternal($@) {
+ my(@arguments, $command);
+ ($command, @arguments) = @_;
+ return commandInternalVerbosity($gVerbosity, $command, @arguments);
+}
+
+# commandInternalVerbosity($verbosity, $command, @arguments)
+#
+# Run an internal command, printing a bogus command invocation message if
+# $verbosity is true.
+#
+# If $command is unlink:
+# Removes the files specified by @arguments. Wraps unlink.
+#
+# If $command is symlink:
+# Creates the symlink specified by @arguments. Wraps symlink.
+sub commandInternalVerbosity($$@) {
+ my(@arguments, $command, $verbosity);
+ ($verbosity, $command, @arguments) = @_;
+ if($command eq 'unlink') {
+ if($verbosity || $gDryRun) {
+ print(join(' ', 'rm', '-f', argumentEscape(@arguments))."\n");
+ }
+ if($gDryRun) {
+ return $#arguments+1;
+ }
+ return unlink(@arguments);
+ }
+ elsif($command eq 'symlink') {
+ if($verbosity || $gDryRun) {
+ print(join(' ', 'ln', '-s', argumentEscape(@arguments))."\n");
+ }
+ if($gDryRun) {
+ return 1;
+ }
+ my($source, $target);
+ ($source, $target) = @arguments;
+ return symlink($source, $target);
+ }
+}
+
+# commandOutput(@arguments)
+#
+# Runs the specified command at the verbosity level defined by $gVerbosity.
+# Output is returned in an array of lines. undef is returned on failure.
+# The exit status is available in $?.
+sub commandOutput(@) {
+ my(@arguments);
+ @arguments = @_;
+ return commandOutputVerbosity($gVerbosity, @arguments);
+}
+
+# commandOutputVerbosity($verbosity, @arguments)
+#
+# Runs the specified command at the verbosity level defined by the
+# $verbosity argument. Output is returned in an array of lines. undef is
+# returned on failure. The exit status is available in $?.
+#
+# If an error occurs in fork or exec, an error message is printed to
+# stderr and undef is returned.
+#
+# If $verbosity is 0, the command invocation is not printed, and its
+# stdout is not echoed back to stdout.
+#
+# If $verbosity is 1, the command invocation is printed.
+#
+# If $verbosity is 2, the command invocation is printed and the output
+# from stdout is echoed back to stdout.
+#
+# Regardless of $verbosity, stderr is left connected.
+sub commandOutputVerbosity($@) {
+ my(@arguments, $verbosity);
+ ($verbosity, @arguments) = @_;
+ my($pid);
+ if($verbosity || $gDryRun) {
+ print(join(' ', argumentEscape(@arguments))."\n");
+ }
+ if($gDryRun) {
+ return(1);
+ }
+ if (!defined($pid = open(*COMMAND, '-|'))) {
+ printf STDERR ($0.': fork: '.$!."\n");
+ return undef;
+ }
+ elsif ($pid) {
+ # parent
+ my(@lines);
+ while(!eof(*COMMAND)) {
+ my($line);
+ chop($line = <COMMAND>);
+ if($verbosity > 1) {
+ print($line."\n");
+ }
+ push(@lines, $line);
+ }
+ close(*COMMAND);
+ if ($? == -1) {
+ printf STDERR ($0.': fork: '.$!."\n");
+ return undef;
+ }
+ elsif ($? & 127) {
+ printf STDERR ($0.': exited on signal '.($? & 127).
+ ($? & 128 ? ', core dumped' : '')."\n");
+ return undef;
+ }
+ return @lines;
+ }
+ else {
+ # child; this form of exec is immune to shell games
+ if(!exec {$arguments[0]} (@arguments)) {
+ printf STDERR ($0.': exec: '.$!."\n");
+ exit(-1);
+ }
+ }
+}
+
+# commandVerbosity($verbosity, @arguments)
+#
+# Runs the specified command at the verbosity level defined by the
+# $verbosity argument. Returns nonzero on failure, returning the exit
+# status if appropriate. Discards command output.
+sub commandVerbosity($@) {
+ my(@arguments, $verbosity);
+ ($verbosity, @arguments) = @_;
+ if(!defined(commandOutputVerbosity($verbosity, @arguments))) {
+ return -1;
+ }
+ return $?;
+}
+
+# copyFiles($tempRoot, $method, @arguments)
+#
+# Copies files or create symlinks in the disk image.
+# See --copy and --symlink descriptions for details.
+# If $method is 'copy', @arguments are interpreted as source:target, if $method
+# is 'symlink', @arguments are interpreted as symlink:target.
+sub copyFiles($@) {
+ my(@fileList, $method, $tempRoot);
+ ($tempRoot, $method, @fileList) = @_;
+ my($file, $isSymlink);
+ $isSymlink = ($method eq 'symlink');
+ foreach $file (@fileList) {
+ my($source, $target);
+ ($source, $target) = split(/:/, $file);
+ if(!defined($target) and $isSymlink) {
+ # empty symlink targets would result in an invalid target and fail,
+ # but they shall be interpreted as "like source path, but inside dmg"
+ $target = $source;
+ }
+ if(!defined($target)) {
+ $target = $tempRoot;
+ }
+ elsif($target =~ /^\//) {
+ $target = $tempRoot.$target;
+ }
+ else {
+ $target = $tempRoot.'/'.$target;
+ }
+
+ my($success);
+ if($isSymlink) {
+ $success = commandInternal('symlink', $source, $target);
+ }
+ else {
+ $success = !command($gConfig{'cmd_rsync'}, '-a', '--copy-unsafe-links',
+ $source, $target);
+ }
+ if(!$success) {
+ cleanupDie('copyFiles failed for method '.$method);
+ }
+ }
+}
+
+# diskImageMaker($source, $destination, $format, $name, $tempDir, $tempMount,
+# $baseName, $setRootIcon)
+#
+# Creates a disk image in $destination of format $format corresponding to the
+# source directory $source. $name is the volume name. $tempDir is a good
+# place to write temporary files, which should be empty (aside from the other
+# things that this script might create there, like stage and mount).
+# $tempMount is a mount point for temporary disk images. $baseName is the
+# name of the disk image, and is presently unused. $setRootIcon is true if
+# a volume icon was added to the staged $source and indicates that the
+# custom volume icon bit on the volume root needs to be set.
+sub diskImageMaker($$$$$$$$) {
+ my($baseName, $destination, $format, $name, $setRootIcon, $source,
+ $tempDir, $tempMount);
+ ($source, $destination, $format, $name, $tempDir, $tempMount,
+ $baseName, $setRootIcon) = @_;
+ if(isFormatCompressed($format)) {
+ my($uncompressedImage);
+
+ if($gConfig{'makehybrid'}) {
+ my($hybridImage);
+ $hybridImage = giveExtension($tempDir.'/hybrid', '.dmg');
+
+ if(command($gConfig{'cmd_hdiutil'}, 'makehybrid', '-hfs',
+ '-hfs-volume-name', $name, '-hfs-openfolder', $source, '-ov',
+ $source, '-o', $hybridImage) != 0) {
+ cleanupDie('hdiutil makehybrid failed');
+ }
+
+ $uncompressedImage = $hybridImage;
+
+ # $source is no longer needed and will be removed before anything
+ # else can fail. splice in this form is the same as pop/push.
+ splice(@gCleanup, -1, 1,
+ sub {commandInternalVerbosity(0, 'unlink', $hybridImage);});
+
+ if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {
+ cleanupDie('rm -rf failed');
+ }
+
+ if(!$gConfig{'partition_table'} && $gConfig{'recursive_access'}) {
+ # Even if we do want to create disk images without partition tables,
+ # it's impossible unless recursive_access is set.
+ my($rootDevice, $partitionDevice, $partitionMountPoint);
+
+ if(!(($rootDevice, $partitionDevice, $partitionMountPoint) =
+ hdidMountImage($tempMount, '-readonly', $hybridImage))) {
+ cleanupDie('hdid mount failed');
+ }
+
+ push(@gCleanup, sub {commandVerbosity(0,
+ $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);});
+
+ my($udrwImage);
+ $udrwImage = giveExtension($tempDir.'/udrw', '.dmg');
+
+ if(command($gConfig{'cmd_hdiutil'}, 'create', '-format', 'UDRW',
+ '-ov', '-srcdevice', $partitionDevice, $udrwImage) != 0) {
+ cleanupDie('hdiutil create failed');
+ }
+
+ $uncompressedImage = $udrwImage;
+
+ # Going to eject before anything else can fail. Get the eject off
+ # the stack.
+ pop(@gCleanup);
+
+ # $hybridImage will be removed soon, but until then, it needs to
+ # stay on the cleanup stack. It needs to wait until after
+ # ejection. $udrwImage is staying around. Make it appear as
+ # though it's been done before $hybridImage.
+ #
+ # splice in this form is the same as popping one element to
+ # @tempCleanup and pushing the subroutine.
+ my(@tempCleanup);
+ @tempCleanup = splice(@gCleanup, -1, 1,
+ sub {commandInternalVerbosity(0, 'unlink', $udrwImage);});
+ push(@gCleanup, @tempCleanup);
+
+ if(command($gConfig{'cmd_diskutil'}, 'eject', $rootDevice) != 0) {
+ cleanupDie('diskutil eject failed');
+ }
+
+ # Pop unlink of $uncompressedImage
+ pop(@gCleanup);
+
+ if(commandInternal('unlink', $hybridImage) != 1) {
+ cleanupDie('unlink hybridImage failed: '.$!);
+ }
+ }
+ }
+ else {
+ # makehybrid is not available, fall back to making a UDRW and
+ # converting to a compressed image. It ought to be possible to
+ # create a compressed image directly, but those come out far too
+ # large (journaling?) and need to be read-write to fix up the
+ # volume icon anyway. Luckily, we can take advantage of a single
+ # call back into this function.
+ my($udrwImage);
+ $udrwImage = giveExtension($tempDir.'/udrw', '.dmg');
+
+ diskImageMaker($source, $udrwImage, 'UDRW', $name, $tempDir,
+ $tempMount, $baseName, $setRootIcon);
+
+ # The call back into diskImageMaker already removed $source.
+
+ $uncompressedImage = $udrwImage;
+ }
+
+ # The uncompressed disk image is now in its final form. Compress it.
+ # Jaguar doesn't support hdiutil convert -ov, but it always allows
+ # overwriting.
+ # bzip2-compressed UDBZ images can only be created and mounted on 10.4
+ # and later. The bzip2-level imagekey is only effective when creating
+ # images in 10.5. In 10.4, bzip2-level is harmlessly ignored, and the
+ # default value of 1 is always used.
+ if(command($gConfig{'cmd_hdiutil'}, 'convert', '-format', $format,
+ '-imagekey', ($format eq 'UDBZ' ? 'bzip2-level=9' : 'zlib-level=9'),
+ (defined($gDarwinMajor) && $gDarwinMajor <= 6 ? () : ('-ov')),
+ $uncompressedImage, '-o', $destination) != 0) {
+ cleanupDie('hdiutil convert failed');
+ }
+
+ # $uncompressedImage is going to be unlinked before anything else can
+ # fail. splice in this form is the same as pop/push.
+ splice(@gCleanup, -1, 1,
+ sub {commandInternalVerbosity(0, 'unlink', $destination);});
+
+ if(commandInternal('unlink', $uncompressedImage) != 1) {
+ cleanupDie('unlink uncompressedImage failed: '.$!);
+ }
+
+ # At this point, the only thing that the compressed block has added to
+ # the cleanup stack is the removal of $destination. $source has already
+ # been removed, and its cleanup entry has been removed as well.
+ }
+ elsif($format eq 'UDRW' || $format eq 'UDSP') {
+ my(@extraArguments);
+ if(!$gConfig{'partition_table'}) {
+ @extraArguments = ('-layout', 'NONE');
+ }
+
+ if($gConfig{'create_directly'}) {
+ # Use -fs HFS+ to suppress the journal.
+ if(command($gConfig{'cmd_hdiutil'}, 'create', '-format', $format,
+ @extraArguments, '-fs', 'HFS+', '-volname', $name,
+ '-ov', '-srcfolder', $source, $destination) != 0) {
+ cleanupDie('hdiutil create failed');
+ }
+
+ # $source is no longer needed and will be removed before anything
+ # else can fail. splice in this form is the same as pop/push.
+ splice(@gCleanup, -1, 1,
+ sub {commandInternalVerbosity(0, 'unlink', $destination);});
+
+ if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {
+ cleanupDie('rm -rf failed');
+ }
+ }
+ else {
+ # hdiutil create does not support -srcfolder or -srcdevice, it only
+ # knows how to create blank images. Figure out how large an image
+ # is needed, create it, and fill it. This is needed for Jaguar.
+
+ # Use native block size for hdiutil create -sectors.
+ delete $ENV{'BLOCKSIZE'};
+
+ my(@duOutput, $ignore, $sizeBlocks, $sizeOverhead, $sizeTotal, $type);
+ if(!(@output = commandOutput($gConfig{'cmd_du'}, '-s', $tempRoot)) ||
+ $? != 0) {
+ cleanupDie('du failed');
+ }
+ ($sizeBlocks, $ignore) = split(' ', $output[0], 2);
+
+ # The filesystem itself takes up 152 blocks of its own blocks for the
+ # filesystem up to 8192 blocks, plus 64 blocks for every additional
+ # 4096 blocks or portion thereof.
+ $sizeOverhead = 152 + 64 * POSIX::ceil(
+ (($sizeBlocks - 8192) > 0) ? (($sizeBlocks - 8192) / (4096 - 64)) : 0);
+
+ # The number of blocks must be divisible by 8.
+ my($mod);
+ if($mod = ($sizeOverhead % 8)) {
+ $sizeOverhead += 8 - $mod;
+ }
+
+ # sectors is taken as the size of a disk, not a filesystem, so the
+ # partition table eats into it.
+ if($gConfig{'partition_table'}) {
+ $sizeOverhead += 80;
+ }
+
+ # That was hard. Leave some breathing room anyway. Use 1024 sectors
+ # (512kB). These read-write images wouldn't be useful if they didn't
+ # have at least a little free space.
+ $sizeTotal = $sizeBlocks + $sizeOverhead + 1024;
+
+ # Minimum sizes - these numbers are larger on Jaguar than on later
+ # systems. Just use the Jaguar numbers, since it's unlikely to wind
+ # up here on any other release.
+ if($gConfig{'partition_table'} && $sizeTotal < 8272) {
+ $sizeTotal = 8272;
+ }
+ if(!$gConfig{'partition_table'} && $sizeTotal < 8192) {
+ $sizeTotal = 8192;
+ }
+
+ # hdiutil create without -srcfolder or -srcdevice will not accept
+ # -format. It uses -type. Fortunately, the two supported formats
+ # here map directly to the only two supported types.
+ if ($format eq 'UDSP') {
+ $type = 'SPARSE';
+ }
+ else {
+ $type = 'UDIF';
+ }
+
+ if(command($gConfig{'cmd_hdiutil'}, 'create', '-type', $type,
+ @extraArguments, '-fs', 'HFS+', '-volname', $name,
+ '-ov', '-sectors', $sizeTotal, $destination) != 0) {
+ cleanupDie('hdiutil create failed');
+ }
+
+ push(@gCleanup,
+ sub {commandInternalVerbosity(0, 'unlink', $destination);});
+
+ # The rsync will occur shortly.
+ }
+
+ my($mounted, $rootDevice, $partitionDevice, $partitionMountPoint);
+
+ $mounted=0;
+ if(!$gConfig{'create_directly'} || $gConfig{'openfolder_bless'} ||
+ $setRootIcon) {
+ # The disk image only needs to be mounted if:
+ # create_directly is false, because the content needs to be copied
+ # openfolder_bless is true, because bless -openfolder needs to run
+ # setRootIcon is true, because the root needs its attributes set.
+ if(!(($rootDevice, $partitionDevice, $partitionMountPoint) =
+ hdidMountImage($tempMount, $destination))) {
+ cleanupDie('hdid mount failed');
+ }
+
+ $mounted=1;
+
+ push(@gCleanup, sub {commandVerbosity(0,
+ $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);});
+ }
+
+ if(!$gConfig{'create_directly'}) {
+ # Couldn't create and copy directly in one fell swoop. Now that
+ # the volume is mounted, copy the files. --copy-unsafe-links is
+ # unnecessary since it was used to copy everything to the staging
+ # area. There can be no more unsafe links.
+ if(command($gConfig{'cmd_rsync'}, '-a',
+ $source.'/',$partitionMountPoint) != 0) {
+ cleanupDie('rsync to new volume failed');
+ }
+
+ # We need to get the rm -rf of $source off the stack, because it's
+ # being cleaned up here. There are two items now on top of it:
+ # removing the target image and, above that, ejecting it. Splice it
+ # out.
+ my(@tempCleanup);
+ @tempCleanup = splice(@gCleanup, -2);
+ # The next splice is the same as popping once and pushing @tempCleanup.
+ splice(@gCleanup, -1, 1, @tempCleanup);
+
+ if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {
+ cleanupDie('rm -rf failed');
+ }
+ }
+
+ if($gConfig{'openfolder_bless'}) {
+ # On Tiger, the bless docs say to use --openfolder, but only
+ # --openfolder is accepted on Panther. Tiger takes it with a single
+ # dash too. Jaguar is out of luck.
+ if(command($gConfig{'cmd_bless'}, '-openfolder',
+ $partitionMountPoint) != 0) {
+ cleanupDie('bless failed');
+ }
+ }
+
+ setAttributes($partitionMountPoint, @attributes);
+
+ if($setRootIcon) {
+ # When "hdiutil create -srcfolder" is used, the root folder's
+ # attributes are not copied to the new volume. Fix up.
+
+ if(command($gConfig{'cmd_SetFile'}, '-a', 'C',
+ $partitionMountPoint) != 0) {
+ cleanupDie('SetFile failed');
+ }
+ }
+
+ if($mounted) {
+ # Pop diskutil eject
+ pop(@gCleanup);
+
+ if(command($gConfig{'cmd_diskutil'}, 'eject', $rootDevice) != 0) {
+ cleanupDie('diskutil eject failed');
+ }
+ }
+
+ # End of UDRW/UDSP section. At this point, $source has been removed
+ # and its cleanup entry has been removed from the stack.
+ }
+ else {
+ cleanupDie('unrecognized format');
+ print STDERR ($0.": unrecognized format\n");
+ exit(1);
+ }
+}
+
+# giveExtension($file, $extension)
+#
+# If $file does not end in $extension, $extension is added. The new
+# filename is returned.
+sub giveExtension($$) {
+ my($extension, $file);
+ ($file, $extension) = @_;
+ if(substr($file, -length($extension)) ne $extension) {
+ return $file.$extension;
+ }
+ return $file;
+}
+
+# hdidMountImage($mountPoint, @arguments)
+#
+# Runs the hdid command with arguments specified by @arguments.
+# @arguments may be a single-element array containing the name of the
+# disk image to mount. Returns a three-element array, with elements
+# corresponding to:
+# - The root device of the mounted image, suitable for ejection
+# - The device corresponding to the mounted partition
+# - The mounted partition's mount point
+#
+# If running on a system that supports easy mounting at points outside
+# of the default /Volumes with hdiutil attach, it is used instead of hdid,
+# and $mountPoint is used as the mount point.
+#
+# The root device will differ from the partition device when the disk
+# image contains a partition table, otherwise, they will be identical.
+#
+# If hdid fails, undef is returned.
+sub hdidMountImage($@) {
+ my(@arguments, @command, $mountPoint);
+ ($mountPoint, @arguments) = @_;
+ my(@output);
+
+ if($gConfig{'hdiutil_mountpoint'}) {
+ @command=($gConfig{'cmd_hdiutil'}, 'attach', @arguments,
+ '-mountpoint', $mountPoint);
+ }
+ else {
+ @command=($gConfig{'cmd_hdid'}, @arguments);
+ }
+
+ if(!(@output = commandOutput(@command)) ||
+ $? != 0) {
+ return undef;
+ }
+
+ if($gDryRun) {
+ return('/dev/diskX','/dev/diskXsY','/Volumes/'.$volumeName);
+ }
+
+ my($line, $restOfLine, $rootDevice);
+
+ foreach $line (@output) {
+ my($device, $mountpoint);
+ if($line !~ /^\/dev\//) {
+ # Consider only lines that correspond to /dev entries
+ next;
+ }
+ ($device, $restOfLine) = split(' ', $line, 2);
+
+ if(!defined($rootDevice) || $rootDevice eq '') {
+ # If this is the first device seen, it's the root device to be
+ # used for ejection. Keep it.
+ $rootDevice = $device;
+ }
+
+ if($restOfLine =~ /(\/.*)/) {
+ # The first partition with a mount point is the interesting one. It's
+ # usually Apple_HFS and usually the last one in the list, but beware of
+ # the possibility of other filesystem types and the Apple_Free partition.
+ # If the disk image contains no partition table, the partition will not
+ # have a type, so look for the mount point by looking for a slash.
+ $mountpoint = $1;
+ return($rootDevice, $device, $mountpoint);
+ }
+ }
+
+ # No mount point? This is bad. If there's a root device, eject it.
+ if(defined($rootDevice) && $rootDevice ne '') {
+ # Failing anyway, so don't care about failure
+ commandVerbosity(0, $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);
+ }
+
+ return undef;
+}
+
+# isFormatCompressed($format)
+#
+# Returns true if $format corresponds to a compressed disk image format.
+# Returns false otherwise.
+sub isFormatCompressed($) {
+ my($format);
+ ($format) = @_;
+ return $format eq 'UDZO' || $format eq 'UDBZ';
+}
+
+# licenseMaker($text, $resource)
+#
+# Takes a plain text file at path $text and creates a license agreement
+# resource containing the text at path $license. English-only, and
+# no special formatting. This is the bare-bones stuff. For more
+# intricate license agreements, create your own resource.
+#
+# ftp://ftp.apple.com/developer/Development_Kits/SLAs_for_UDIFs_1.0.dmg
+sub licenseMaker($$) {
+ my($resource, $text);
+ ($text, $resource) = @_;
+ if(!sysopen(*TEXT, $text, O_RDONLY)) {
+ print STDERR ($0.': licenseMaker: sysopen text: '.$!."\n");
+ return 0;
+ }
+ if(!sysopen(*RESOURCE, $resource, O_WRONLY|O_CREAT|O_EXCL)) {
+ print STDERR ($0.': licenseMaker: sysopen resource: '.$!."\n");
+ return 0;
+ }
+ print RESOURCE << '__EOT__';
+// See /System/Library/Frameworks/CoreServices.framework/Frameworks/CarbonCore.framework/Headers/Script.h for language IDs.
+data 'LPic' (5000) {
+ // Default language ID, 0 = English
+ $"0000"
+ // Number of entries in list
+ $"0001"
+
+ // Entry 1
+ // Language ID, 0 = English
+ $"0000"
+ // Resource ID, 0 = STR#/TEXT/styl 5000
+ $"0000"
+ // Multibyte language, 0 = no
+ $"0000"
+};
+
+resource 'STR#' (5000, "English") {
+ {
+ // Language (unused?) = English
+ "English",
+ // Agree
+ "Agree",
+ // Disagree
+ "Disagree",
+__EOT__
+ # This stuff needs double-quotes for interpolations to work.
+ print RESOURCE (" // Print, ellipsis is 0xC9\n");
+ print RESOURCE (" \"Print\xc9\",\n");
+ print RESOURCE (" // Save As, ellipsis is 0xC9\n");
+ print RESOURCE (" \"Save As\xc9\",\n");
+ print RESOURCE (' // Descriptive text, curly quotes are 0xD2 and 0xD3'.
+ "\n");
+ print RESOURCE (' "If you agree to the terms of this license '.
+ "agreement, click \xd2Agree\xd3 to access the software. If you ".
+ "do not agree, press \xd2Disagree.\xd3\"\n");
+print RESOURCE << '__EOT__';
+ };
+};
+
+// Beware of 1024(?) byte (character?) line length limitation. Split up long
+// lines.
+// If straight quotes are used ("), remember to escape them (\").
+// Newline is \n, to leave a blank line, use two of them.
+// 0xD2 and 0xD3 are curly double-quotes ("), 0xD4 and 0xD5 are curly
+// single quotes ('), 0xD5 is also the apostrophe.
+data 'TEXT' (5000, "English") {
+__EOT__
+
+ while(!eof(*TEXT)) {
+ my($line);
+ chop($line = <TEXT>);
+
+ while(defined($line)) {
+ my($chunk);
+
+ # Rez doesn't care for lines longer than (1024?) characters. Split
+ # at less than half of that limit, in case everything needs to be
+ # backwhacked.
+ if(length($line)>500) {
+ $chunk = substr($line, 0, 500);
+ $line = substr($line, 500);
+ }
+ else {
+ $chunk = $line;
+ $line = undef;
+ }
+
+ if(length($chunk) > 0) {
+ # Unsafe characters are the double-quote (") and backslash (\), escape
+ # them with backslashes.
+ $chunk =~ s/(["\\])/\\$1/g;
+
+ print RESOURCE ' "'.$chunk.'"'."\n";
+ }
+ }
+ print RESOURCE ' "\n"'."\n";
+ }
+ close(*TEXT);
+
+ print RESOURCE << '__EOT__';
+};
+
+data 'styl' (5000, "English") {
+ // Number of styles following = 1
+ $"0001"
+
+ // Style 1. This is used to display the first two lines in bold text.
+ // Start character = 0
+ $"0000 0000"
+ // Height = 16
+ $"0010"
+ // Ascent = 12
+ $"000C"
+ // Font family = 1024 (Lucida Grande)
+ $"0400"
+ // Style bitfield, 0x1=bold 0x2=italic 0x4=underline 0x8=outline
+ // 0x10=shadow 0x20=condensed 0x40=extended
+ $"00"
+ // Style, unused?
+ $"02"
+ // Size = 12 point
+ $"000C"
+ // Color, RGB
+ $"0000 0000 0000"
+};
+__EOT__
+ close(*RESOURCE);
+
+ return 1;
+}
+
+# pathSplit($pathname)
+#
+# Splits $pathname into an array of path components.
+sub pathSplit($) {
+ my($pathname);
+ ($pathname) = @_;
+ return split(/\//, $pathname);
+}
+
+# setAttributes($root, @attributeList)
+#
+# @attributeList is an array, each element of which must be in the form
+# <a>:<file>. <a> is a list of attributes, per SetFile. <file> is a file
+# which is taken as relative to $root (even if it appears as an absolute
+# path.) SetFile is called to set the attributes on each file in
+# @attributeList.
+sub setAttributes($@) {
+ my(@attributes, $root);
+ ($root, @attributes) = @_;
+ my($attribute);
+ foreach $attribute (@attributes) {
+ my($attrList, $file, @fileList, @fixedFileList);
+ ($attrList, @fileList) = split(/:/, $attribute);
+ if(!defined($attrList) || !@fileList) {
+ cleanupDie('--attribute requires <attributes>:<file>');
+ }
+ @fixedFileList=();
+ foreach $file (@fileList) {
+ if($file =~ /^\//) {
+ push(@fixedFileList, $root.$file);
+ }
+ else {
+ push(@fixedFileList, $root.'/'.$file);
+ }
+ }
+ if(command($gConfig{'cmd_SetFile'}, '-a', $attrList, @fixedFileList)) {
+ cleanupDie('SetFile failed to set attributes');
+ }
+ }
+ return;
+}
+
+sub trapSignal($) {
+ my($signalName);
+ ($signalName) = @_;
+ cleanupDie('exiting on SIG'.$signalName);
+}
+
+sub usage() {
+ print STDERR (
+"usage: pkg-dmg --source <source-folder>\n".
+" --target <target-image>\n".
+" [--format <format>] (default: UDZO)\n".
+" [--volname <volume-name>] (default: same name as source)\n".
+" [--tempdir <temp-dir>] (default: same dir as target)\n".
+" [--mkdir <directory>] (make directory in image)\n".
+" [--copy <source>[:<dest>]] (extra files to add)\n".
+" [--symlink <source>[:<dest>]] (extra symlinks to add)\n".
+" [--license <file>] (plain text license agreement)\n".
+" [--resource <file>] (flat .r files to merge)\n".
+" [--icon <icns-file>] (volume icon)\n".
+" [--attribute <a>:<file>] (set file attributes)\n".
+" [--idme] (make Internet-enabled image)\n".
+" [--sourcefile] (treat --source as a file)\n".
+" [--verbosity <level>] (0, 1, 2; default=2)\n".
+" [--dry-run] (print what would be done)\n");
+ return;
+}
Property changes on: vidalia/trunk/pkg/osx/pkg-dmg
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:eol-style
+ native