moved dmgutil (osx) and poppler includes as to make openboard (osx) compile without OpenBoard-ThirdParty + quazip fix headers for osx (clang apparently not searching for system headers with double quotes)
Clément Fauconnier
5 years ago
parent
7e49eabab4
commit
e96cdbe890
@ -0,0 +1,728 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
#============================================================================ |
||||||
|
# NAME: |
||||||
|
# dmgutil.pl |
||||||
|
# |
||||||
|
# DESCRIPTION: |
||||||
|
# Disk image creation utility. |
||||||
|
# |
||||||
|
# COPYRIGHT: |
||||||
|
# Copyright (c) 2006-2008, refNum Software |
||||||
|
# <http://www.refnum.com/> |
||||||
|
# |
||||||
|
# All rights reserved. |
||||||
|
# |
||||||
|
# Redistribution and use in source and binary forms, with or without |
||||||
|
# modification, are permitted provided that the following conditions |
||||||
|
# are met: |
||||||
|
# |
||||||
|
# o Redistributions of source code must retain the above |
||||||
|
# copyright notice, this list of conditions and the following |
||||||
|
# disclaimer. |
||||||
|
# |
||||||
|
# o Redistributions in binary form must reproduce the above |
||||||
|
# copyright notice, this list of conditions and the following |
||||||
|
# disclaimer in the documentation and/or other materials |
||||||
|
# provided with the distribution. |
||||||
|
# |
||||||
|
# o Neither the name of refNum Software nor the names of its |
||||||
|
# contributors may be used to endorse or promote products derived |
||||||
|
# from this software without specific prior written permission. |
||||||
|
# |
||||||
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
||||||
|
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
||||||
|
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
||||||
|
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
||||||
|
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
||||||
|
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
||||||
|
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
||||||
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
||||||
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
||||||
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
||||||
|
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
||||||
|
#============================================================================ |
||||||
|
# Imports |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
use strict; |
||||||
|
use Getopt::Long; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# Constants |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
my $kLogging = "-quiet"; |
||||||
|
|
||||||
|
my $Rez = "/Developer/Tools/Rez"; |
||||||
|
my $SetFile = "/Developer/Tools/SetFile"; |
||||||
|
|
||||||
|
my $kManPage = <<MANPAGE; |
||||||
|
NAME |
||||||
|
dmgutil -- create, adjust, and compress a distribution disk image |
||||||
|
|
||||||
|
SYNOPSIS |
||||||
|
dmgutil --help |
||||||
|
|
||||||
|
dmgutil --open --volume=name file |
||||||
|
|
||||||
|
dmgutil --set [--x=integer] [--y=integer] |
||||||
|
[--width=integer] [--height=integer] |
||||||
|
[--iconsize=integer] [--icon=file] |
||||||
|
[--background=file] [--bgcol=r,g,b] |
||||||
|
[--toolbar=boolean] file |
||||||
|
|
||||||
|
dmgutil --close --volume=name file |
||||||
|
|
||||||
|
DESCRIPTION |
||||||
|
dmgutil is used to create distribution disk images, and to adjust |
||||||
|
the Finder view settings of these volumes or their contents. |
||||||
|
|
||||||
|
It can be invoked in three modes: open, set, and close. |
||||||
|
|
||||||
|
OPEN MODE |
||||||
|
Open Mode has the following options: |
||||||
|
--open Select open mode. |
||||||
|
|
||||||
|
--volume=name The volume name for the disk image. |
||||||
|
|
||||||
|
file The output path for the .dmg file. |
||||||
|
|
||||||
|
SET MODE |
||||||
|
Set Mode has the following options: |
||||||
|
--set Select set mode. |
||||||
|
|
||||||
|
--x=integer The x coordinate of the item. |
||||||
|
|
||||||
|
--y=integer The y coordinate of the item. |
||||||
|
|
||||||
|
--width=integer The width for a Finder window. |
||||||
|
|
||||||
|
--height=integer The height for a Finder window. |
||||||
|
|
||||||
|
--iconsize=integer The icon size for a Finder window. |
||||||
|
|
||||||
|
--icon=file.icns The icon to apply to the item. |
||||||
|
|
||||||
|
--background=file The background picture for a Finder window. |
||||||
|
|
||||||
|
--bgcol=r,g,b The background color for a Finder window. |
||||||
|
|
||||||
|
--toolbar=boolean The toolbar state for a Finder window. |
||||||
|
|
||||||
|
file The file or folder to be set. |
||||||
|
|
||||||
|
CLOSE MODE |
||||||
|
Close Mode has the following options: |
||||||
|
--close Select close mode. |
||||||
|
|
||||||
|
--volume=name The volume name for the disk image. |
||||||
|
|
||||||
|
file The output path for the .dmg file. |
||||||
|
|
||||||
|
EXAMPLES |
||||||
|
OPEN MODE |
||||||
|
To create a new disk image for "MyApp 1.0": |
||||||
|
|
||||||
|
dmgutil.pl --open --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
|
||||||
|
SET MODE |
||||||
|
To set the position of a file or folder: |
||||||
|
|
||||||
|
dmgutil.pl --set --x=100 --y=100 "/Volumes/MyApp 1.0/Read Me.rtf" |
||||||
|
dmgutil.pl --set --x=200 --y=100 "/Volumes/MyApp 1.0/MyApp.app" |
||||||
|
|
||||||
|
To set the window size for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --width=300 --height=200 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set the icon size for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --iconsize=128 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set a custom icon for a volume, folder, or file: |
||||||
|
|
||||||
|
dmgutil.pl --set --icon=volume.icns "/Volumes/MyApp 1.0" |
||||||
|
dmgutil.pl --set --icon=folder.icns "/Volumes/MyApp 1.0/Extras" |
||||||
|
dmgutil.pl --set --icon=readme.icns "/Volumes/MyApp 1.0/Read Me.rtf" |
||||||
|
|
||||||
|
To set the background picture for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --background=flowers.jpg "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set the background color for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --bgcol=0,65535,0 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To hide the toolbar for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --toolbar=false "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
Multiple flags may be combined, to set all of the properties of an |
||||||
|
item simultaneously. |
||||||
|
|
||||||
|
CLOSE MODE |
||||||
|
To unmount and compress the disk image created for "MyApp 1.0": |
||||||
|
|
||||||
|
dmgutil.pl --close --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
|
||||||
|
VERSION |
||||||
|
dmgutil 1.1 |
||||||
|
|
||||||
|
COPYRIGHT |
||||||
|
Copyright (c) refNum Software http://www.refnum.com/ |
||||||
|
MANPAGE |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# appleScript : Execute an AppleScript. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub appleScript |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($theScript) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Save the script |
||||||
|
my $theFile = "/tmp/dmgutil_applescript.txt"; |
||||||
|
|
||||||
|
open( OUTPUT, ">$theFile") or die "Can't open $theFile for writing: $!\n"; |
||||||
|
print OUTPUT $theScript; |
||||||
|
close(OUTPUT); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# And execute it |
||||||
|
system("osascript", $theFile); |
||||||
|
unlink($theFile); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# isVolume : Is a path to the root of a volume? |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub isVolume |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Check the state |
||||||
|
# |
||||||
|
# After stripping out the leading /Volumes, any further slashes |
||||||
|
# indicate we have a folder rather than a volume. |
||||||
|
$thePath =~ s/\/Volumes\///; |
||||||
|
|
||||||
|
my $isVolume = ($thePath =~ /.*\/.*/) ? 0 : 1; |
||||||
|
|
||||||
|
return($isVolume); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setFolderState : Set the state for a folder. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setFolderState |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $iconSize, $flagToolbar, $bgImage, $bgColor) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Initialise ourselves |
||||||
|
my $cmdBackground = ""; |
||||||
|
my $cmdIconSize = ""; |
||||||
|
my $cmdToolbar = ""; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the background |
||||||
|
# |
||||||
|
# As of 10.5, the Finder refuses to manipulate files whose names start with |
||||||
|
# a period (rdar://5582578). As such we need to use an underscore for the |
||||||
|
# image, then make it invisible using SetFile. |
||||||
|
if (-f $bgImage) |
||||||
|
{ |
||||||
|
$bgImage =~ /.*\.(\w+)/; |
||||||
|
my $dstImage = "$thePath/_Background.$1"; |
||||||
|
|
||||||
|
`cp "$bgImage" "$dstImage"`; |
||||||
|
|
||||||
|
$cmdBackground .= "set theImage to posix file \"$dstImage\"\n"; |
||||||
|
$cmdBackground .= " set background picture of theOptions to theImage\n"; |
||||||
|
$cmdBackground .= " do shell script \"/Developer/Tools/SetFile -a V '$dstImage'\"\n"; |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($bgColor ne "") |
||||||
|
{ |
||||||
|
$cmdBackground = "set background color of theOptions to {$bgColor} as RGB color"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the icon size |
||||||
|
if ($iconSize != 0) |
||||||
|
{ |
||||||
|
$cmdIconSize = "set icon size of theOptions to $iconSize"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the toolbar |
||||||
|
# |
||||||
|
# The window must be made visible in order to change the toolbar state. |
||||||
|
if ($flagToolbar ne "") |
||||||
|
{ |
||||||
|
$cmdToolbar = " open theWindow \n"; |
||||||
|
$cmdToolbar .= " set toolbar visible of theWindow to $flagToolbar \n"; |
||||||
|
$cmdToolbar .= " close theWindow \n"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# AppleScript requires the correct nomenclature for the target item. |
||||||
|
my $theTarget = "folder \"$thePath\""; |
||||||
|
|
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
$theTarget =~ s/folder "\/Volumes\//disk "/; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the folder state |
||||||
|
# |
||||||
|
# Once a change has been made, it must be flushed to disk with update. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= " set theWindow to window of theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " set current view of theWindow to icon view \n"; |
||||||
|
$theScript .= " set theOptions to icon view options of theWindow \n"; |
||||||
|
$theScript .= " set arrangement of theOptions to not arranged \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " $cmdBackground\n"; |
||||||
|
$theScript .= " $cmdIconSize \n"; |
||||||
|
$theScript .= " $cmdToolbar \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " update theTarget\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setCustomIcon : Set a custom icon. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setCustomIcon |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $theIcon) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Validate our state |
||||||
|
# |
||||||
|
# We require several tools inside /Developer/Tools. |
||||||
|
die("Setting an icon requires $Rez") if (! -e $Rez); |
||||||
|
die("Setting an icon requires $SetFile") if (! -e $SetFile); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the flags |
||||||
|
# |
||||||
|
# Prior to Mac OS X 10.4, SetFile can only set an attribute if it is |
||||||
|
# first cleared (rdar://3738867). |
||||||
|
my $sysVers = `uname -r`; |
||||||
|
my $setHidden = ($sysVers =~ /^[0-7]\./) ? "vV" : "V"; |
||||||
|
my $setIcon = ($sysVers =~ /^[0-7]\./) ? "cC" : "C"; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set a volume icon |
||||||
|
# |
||||||
|
# Volume custom icons are contained in a .VolumeIcon.icns file. |
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
my $iconFile = "$thePath/.VolumeIcon.icns"; |
||||||
|
|
||||||
|
`cp "$theIcon" "$iconFile"`; |
||||||
|
|
||||||
|
`$SetFile -a $setHidden "$iconFile"`; |
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Set a folder icon |
||||||
|
# |
||||||
|
# Folder custom icons are contained in an ('icns', -16455) resource, |
||||||
|
# placed in an invisible "Icon\r" file inside the folder. |
||||||
|
elsif (-d $thePath) |
||||||
|
{ |
||||||
|
my $iconFile = "$thePath/Icon\r"; |
||||||
|
my $tmpR = "/tmp/dmgutil.r"; |
||||||
|
|
||||||
|
`echo "read 'icns' (-16455) \\"$theIcon\\";\n" > $tmpR`; |
||||||
|
`cd /tmp; $Rez dmgutil.r -append -o "$iconFile"`; |
||||||
|
|
||||||
|
`$SetFile -a $setHidden "$iconFile"`; |
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
|
||||||
|
unlink($tmpR); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Set a file icon |
||||||
|
# |
||||||
|
# File custom icons are contained in an ('icns', -16455) resource. |
||||||
|
else |
||||||
|
{ |
||||||
|
my $tmpR = "/tmp/dmgutil.r"; |
||||||
|
|
||||||
|
`echo "read 'icns' (-16455) \\"$theIcon\\";\n" > $tmpR`; |
||||||
|
`cd /tmp; $Rez dmgutil.r -append -o "$thePath"`; |
||||||
|
|
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
|
||||||
|
unlink($tmpR); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setWindowPos : Set the position of a window. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setWindowPos |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $posX, $posY, $theWidth, $theHeight) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Initialise ourselves |
||||||
|
my $bottom = $posY + $theHeight; |
||||||
|
my $right = $posX + $theWidth; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# AppleScript requires the correct nomenclature for the target item. |
||||||
|
my $theTarget = "folder \"$thePath\""; |
||||||
|
|
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
$theTarget =~ s/folder "\/Volumes\//disk "/; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the window position |
||||||
|
# |
||||||
|
# In theory, the "set bounds" command is all that should be necessary |
||||||
|
# to set the bounds of a Finder window. |
||||||
|
# |
||||||
|
# Unfortunately, under 10.4 this will result in a window that will be |
||||||
|
# taller than the specified size when the window is next opened. |
||||||
|
# |
||||||
|
# To reliably set the bounds of a window we must open the window, show |
||||||
|
# the status bar, and set the window bounds to be 20 pixels taller (the |
||||||
|
# height of the status bar) than necessary. |
||||||
|
# |
||||||
|
# The status bar can then be hidden, the window closed, and the bounds |
||||||
|
# bounds will be the desired size when the window is next opened. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= " set theWindow to window of theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " open theWindow \n"; |
||||||
|
$theScript .= " set statusbar visible of theWindow to true \n"; |
||||||
|
$theScript .= " set bounds of theWindow to {$posX, $posY, $right, $bottom+20} \n"; |
||||||
|
$theScript .= " set statusbar visible of theWindow to false \n"; |
||||||
|
$theScript .= " close theWindow \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setIconPos : Set the position of an icon. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setIconPos |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($theFile, $posX, $posY) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# Since the 'posix file' command follows symlinks, in order to set the |
||||||
|
# position of a symlink (vs its target) we need to use an HFS path and |
||||||
|
# reference it as a file rather than an alias. |
||||||
|
my $theTarget = "alias (posix file \"$theFile\")"; |
||||||
|
|
||||||
|
if (-l $theFile) |
||||||
|
{ |
||||||
|
$theTarget = $theFile; |
||||||
|
|
||||||
|
$theTarget =~ s/\/Volumes\///; |
||||||
|
$theTarget =~ s/\//:/g; |
||||||
|
$theTarget = "file \"$theTarget\""; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the icon position |
||||||
|
# |
||||||
|
# Once a change has been made, it must be flushed to disk with update. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " set position of theTarget to {$posX, $posY} \n"; |
||||||
|
$theScript .= " update theTarget\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doOpen : Open a new disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doOpen |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($dmgFile, $volName) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Clean up any previous image |
||||||
|
system("rm", "-f", "$dmgFile.sparseimage"); |
||||||
|
system("rm", "-f", "$dmgFile"); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Create the image |
||||||
|
# |
||||||
|
# A large sparse disk image is created, which will be shrunk down |
||||||
|
# and compressed when the disk image is finally closed. |
||||||
|
print " creating $dmgFile\n" if ($kLogging eq "-quiet"); |
||||||
|
|
||||||
|
system("hdiutil", "create", $dmgFile, |
||||||
|
"-volname", $volName, |
||||||
|
"-megabytes", "1000", |
||||||
|
"-type", "SPARSE", |
||||||
|
"-fs", "HFS+", |
||||||
|
$kLogging); |
||||||
|
|
||||||
|
system("hdiutil", "mount", $kLogging, "$dmgFile.sparseimage"); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doClose : Close a disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doClose |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($dmgFile, $volName) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Bless the volume |
||||||
|
# |
||||||
|
# Blessing the volume ensures that the volume always opens in the current |
||||||
|
# view, overriding the user's "Open new windows in column view" preference. |
||||||
|
system("bless", "--openfolder", "/Volumes/$volName"); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Compress the image |
||||||
|
# |
||||||
|
# On 10.5, the disk image must be ejected rather than unmounted to allow |
||||||
|
# it to be converted from a sparse image to a compressed image. |
||||||
|
print " compressing $dmgFile\n" if ($kLogging eq "-quiet"); |
||||||
|
|
||||||
|
system("hdiutil", "eject", $kLogging, "/Volumes/$volName"); |
||||||
|
|
||||||
|
system("hdiutil", "convert", "$dmgFile.sparseimage", |
||||||
|
"-format", "UDZO", |
||||||
|
"-o", $dmgFile, |
||||||
|
"-imagekey", "zlib-level=9", |
||||||
|
$kLogging); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Clean up |
||||||
|
system("rm", "-f", "$dmgFile.sparseimage"); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doSet : Set a file/folder state. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doSet |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $posX, $posY, $theWidth, $theHeight, $iconSize, $theIcon, $bgImage, $bgColor, $flagToolbar) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the custom icon |
||||||
|
if ($theIcon ne "") |
||||||
|
{ |
||||||
|
setCustomIcon($thePath, $theIcon); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the folder state |
||||||
|
if ($iconSize != 0 || $bgImage ne "" || $bgColor ne "" || $flagToolbar ne "") |
||||||
|
{ |
||||||
|
setFolderState($thePath, $iconSize, $flagToolbar, $bgImage, $bgColor); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the position |
||||||
|
# |
||||||
|
# Window position must be set after applying the folder state. |
||||||
|
if ($posX != 0 && $posY != 0) |
||||||
|
{ |
||||||
|
if ($theWidth != 0 && $theHeight != 0) |
||||||
|
{ |
||||||
|
setWindowPos($thePath, $posX, $posY, $theWidth, $theHeight); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
setIconPos($thePath, $posX, $posY); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# dmgUtil : Manipulate a disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub dmgUtil |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($doOpen, $doClose, $doSet) = (0, 0, 0); |
||||||
|
my ($posX, $posY, $theWidth, $theHeight, $iconSize) = (0, 0, 0, 0, 0); |
||||||
|
my ($volName, $theIcon, $bgImage, $bgColor, $flagToolbar) = ("", "", "", "", ""); |
||||||
|
|
||||||
|
GetOptions( "--open+", => \$doOpen, |
||||||
|
"--close+", => \$doClose, |
||||||
|
"--set+", => \$doSet, |
||||||
|
"--volume=s", => \$volName, |
||||||
|
"--x=i", => \$posX, |
||||||
|
"--y=i", => \$posY, |
||||||
|
"--width=i", => \$theWidth, |
||||||
|
"--height=i", => \$theHeight, |
||||||
|
"--iconsize=i", => \$iconSize, |
||||||
|
"--icon=s", => \$theIcon, |
||||||
|
"--background=s", => \$bgImage, |
||||||
|
"--bgcol=s", => \$bgColor, |
||||||
|
"--toolbar=s", => \$flagToolbar); |
||||||
|
|
||||||
|
my ($thePath) = @ARGV; |
||||||
|
|
||||||
|
$thePath = "" if (!defined($thePath)); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Perform the action |
||||||
|
if ($doOpen && $thePath ne "" && $volName ne "") |
||||||
|
{ |
||||||
|
doOpen($thePath, $volName); |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($doClose && $thePath ne "" && $volName ne "") |
||||||
|
{ |
||||||
|
doClose($thePath, $volName); |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($doSet && $thePath ne "") |
||||||
|
{ |
||||||
|
doSet($thePath, $posX, $posY, $theWidth, $theHeight, $iconSize, $theIcon, $bgImage, $bgColor, $flagToolbar); |
||||||
|
} |
||||||
|
|
||||||
|
else |
||||||
|
{ |
||||||
|
print $kManPage; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# Script entry point |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
dmgUtil(); |
||||||
@ -0,0 +1,145 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> |
||||||
|
<html> |
||||||
|
<head> |
||||||
|
<title>refNum › dmgutil</title> |
||||||
|
<!--HEAD_BEGIN--> |
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF8"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<script type="text/javascript" src="src/js/refnum.js"></script> |
||||||
|
|
||||||
|
<script type="text/javascript"> |
||||||
|
var _gaq = _gaq || []; |
||||||
|
_gaq.push(['_setAccount', 'UA-19561062-1']); |
||||||
|
_gaq.push(['_trackPageview']); |
||||||
|
|
||||||
|
(function() { |
||||||
|
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; |
||||||
|
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; |
||||||
|
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); |
||||||
|
})(); |
||||||
|
</script> |
||||||
|
|
||||||
|
<link type="text/css" href="src/css/refnum.css" rel=stylesheet> |
||||||
|
<!--HEAD_END--> |
||||||
|
</head> |
||||||
|
<body> |
||||||
|
|
||||||
|
<div id="content"> |
||||||
|
<!--#include virtual="/src/inc/nav.inc" --> |
||||||
|
<script language="javascript">navSelect("dev")</script> |
||||||
|
|
||||||
|
<a href="index.html"> |
||||||
|
<div id="page_strap_frame" style="background:url('src/img/page_strap_dmgutil.png');"> |
||||||
|
<div id="page_strap_content" style="background:url('src/img/page_strap_dmgutil.jpg'); background-repeat: no-repeat; background-position: 22px 16px;"></div></div></a> |
||||||
|
<div id="page_body"> |
||||||
|
<div id="page_content"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<table> |
||||||
|
<tr> |
||||||
|
<td valign=top> |
||||||
|
<ul id="menu"> |
||||||
|
<li class="subtitle">dmgutil</li> |
||||||
|
<li><a href="index.html">Home</a></li> |
||||||
|
<li><a href="licence.html">Licence</a></li> |
||||||
|
<li><a href="version.html">Version History</a></li> |
||||||
|
</ul> |
||||||
|
</td> |
||||||
|
<td valign=top> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h1>dmgutil</h1> |
||||||
|
<p> |
||||||
|
dmgutil is a command line tool for creating, configuring, and compressing Mac OS X |
||||||
|
disk images for distribution. |
||||||
|
</p> |
||||||
|
|
||||||
|
<p> |
||||||
|
dmgutil allows you to automate your build process, preparing a release without pre-existing |
||||||
|
templates or user interaction. |
||||||
|
</p> |
||||||
|
|
||||||
|
<p> |
||||||
|
dmgutil can adjust the size, position, and appearance of Finder windows. It can also apply |
||||||
|
custom icons to volumes, folders, or files and assign a license agreement. |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_button"> |
||||||
|
<a href="http://www.refnum.com/files/dmgutil.zip" class="button icon_download"><span><span class="icon"></span>Download</span></a> |
||||||
|
<span class="padding20"> </span> |
||||||
|
<a href="http://github.com/refnum/dmgutil" class="button icon_github"><span><span class="icon"></span>GitHub</span></a> |
||||||
|
</div> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h2>Using dmgutil</h2> |
||||||
|
<p> |
||||||
|
To create a new disk image for your "MyApp 1.0" release, invoke dmgutil as: |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_code_yellow">dmgutil.pl --open --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
</div> |
||||||
|
|
||||||
|
<p> |
||||||
|
Once the disk image has been populated with files, invoke dmgutil to configure it: |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_code_yellow">dmgutil.pl --set --iconsize=128 --background=flowers.jpg "/Volumes/MyApp 1.0" |
||||||
|
dmgutil.pl --set --x=20 --y=60 --width=300 --height=200 "/Volumes/MyApp 1.0" |
||||||
|
</div> |
||||||
|
|
||||||
|
<p> |
||||||
|
You can also use dmgutil to set the position of file or folder icons within the window: |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_code_yellow">dmgutil.pl --set --x=100 --y=100 "/Volumes/MyApp 1.0/Read Me.rtf" |
||||||
|
dmgutil.pl --set --x=200 --y=100 "/Volumes/MyApp 1.0/MyApp.app" |
||||||
|
</div> |
||||||
|
|
||||||
|
<p> |
||||||
|
dmgutil can also adjust the background color or toolbar visibility of the window, and |
||||||
|
apply custom icons to the volume or its contents. |
||||||
|
</p> |
||||||
|
|
||||||
|
<p> |
||||||
|
Once the volume has been prepared, compress the disk image with: |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_code_yellow">dmgutil.pl --close --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
</div> |
||||||
|
|
||||||
|
<p> |
||||||
|
By invoking dmgutil from a post-build shell script, builds can be automatically converted |
||||||
|
into a user-friendly disk image for distribution. |
||||||
|
</p> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div> |
||||||
|
</div> |
||||||
|
<div id="page_footer"></div> |
||||||
|
</div> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<!--FOOTER_BEGIN--> |
||||||
|
<div id="footer"> |
||||||
|
Copyright © 2006-2010 <a href="http://www.refnum.com/">refNum Software</a> |
||||||
|
</div> |
||||||
|
<!--FOOTER_END--> |
||||||
|
</body> |
||||||
|
</html> |
||||||
@ -0,0 +1,124 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> |
||||||
|
<html> |
||||||
|
<head> |
||||||
|
<title>refNum › dmgutil › Licence</title> |
||||||
|
<!--HEAD_BEGIN--> |
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF8"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<script type="text/javascript" src="src/js/refnum.js"></script> |
||||||
|
|
||||||
|
<script type="text/javascript"> |
||||||
|
var _gaq = _gaq || []; |
||||||
|
_gaq.push(['_setAccount', 'UA-19561062-1']); |
||||||
|
_gaq.push(['_trackPageview']); |
||||||
|
|
||||||
|
(function() { |
||||||
|
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; |
||||||
|
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; |
||||||
|
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); |
||||||
|
})(); |
||||||
|
</script> |
||||||
|
|
||||||
|
<link type="text/css" href="src/css/refnum.css" rel=stylesheet> |
||||||
|
<!--HEAD_END--> |
||||||
|
</head> |
||||||
|
<body> |
||||||
|
|
||||||
|
<div id="content"> |
||||||
|
<!--#include virtual="/src/inc/nav.inc" --> |
||||||
|
<script language="javascript">navSelect("dev")</script> |
||||||
|
|
||||||
|
<a href="index.html"> |
||||||
|
<div id="page_strap_frame" style="background:url('src/img/page_strap_dmgutil.png');"> |
||||||
|
<div id="page_strap_content" style="background:url('src/img/page_strap_dmgutil.jpg'); background-repeat: no-repeat; background-position: 22px 16px;"></div></div></a> |
||||||
|
<div id="page_body"> |
||||||
|
<div id="page_content"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<table> |
||||||
|
<tr> |
||||||
|
<td valign=top> |
||||||
|
<ul id="menu"> |
||||||
|
<li class="subtitle">dmgutil</li> |
||||||
|
<li><a href="index.html">Home</a></li> |
||||||
|
<li><a href="licence.html">Licence</a></li> |
||||||
|
<li><a href="version.html">Version History</a></li> |
||||||
|
</ul> |
||||||
|
</td> |
||||||
|
<td valign=top> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h1>Licence</h1> |
||||||
|
<p> |
||||||
|
dmgutil is distributed under the Open Source BSD licence: |
||||||
|
</p> |
||||||
|
|
||||||
|
<div class="box_licence"> |
||||||
|
<p> |
||||||
|
dmgutil is Copyright © 2006-2010, refNum Software<br> |
||||||
|
All rights reserved. |
||||||
|
</p> |
||||||
|
|
||||||
|
<p> |
||||||
|
Redistribution and use in source and binary forms, with or without modification, are permitted |
||||||
|
provided that the following conditions are met: |
||||||
|
</p> |
||||||
|
|
||||||
|
<ul> |
||||||
|
<li>Redistributions of source code must retain the above copyright notice, this list of |
||||||
|
conditions and the following disclaimer.</li> |
||||||
|
|
||||||
|
<li>Redistributions in binary form must reproduce the above copyright notice, this list |
||||||
|
of conditions and the following disclaimer in the documentation and/or other materials |
||||||
|
provided with the distribution.</li> |
||||||
|
|
||||||
|
<li>Neither the name of refNum Software, Nano, nor the names of its contributors may be |
||||||
|
used to endorse or promote products derived from this software without specific prior |
||||||
|
written permission.</li> |
||||||
|
</ul> |
||||||
|
|
||||||
|
<p> |
||||||
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR |
||||||
|
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND |
||||||
|
FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR |
||||||
|
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
||||||
|
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
||||||
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER |
||||||
|
IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT |
||||||
|
OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
||||||
|
</p> |
||||||
|
</div> |
||||||
|
|
||||||
|
<p> |
||||||
|
This licence allows usage in both Open Source and commercial software, and does not require any |
||||||
|
reciprocal licencing or release of source code when incorporated into commercial software. |
||||||
|
</p> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div> |
||||||
|
</div> |
||||||
|
<div id="page_footer"></div> |
||||||
|
</div> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<!--FOOTER_BEGIN--> |
||||||
|
<div id="footer"> |
||||||
|
Copyright © 2006-2010 <a href="http://www.refnum.com/">refNum Software</a> |
||||||
|
</div> |
||||||
|
<!--FOOTER_END--> |
||||||
|
</body> |
||||||
|
</html> |
||||||
@ -0,0 +1,380 @@ |
|||||||
|
/* Global */ |
||||||
|
html { |
||||||
|
overflow-y: scroll; |
||||||
|
} |
||||||
|
body { |
||||||
|
background: #600d0d url("../img/background.jpg") no-repeat fixed center top; |
||||||
|
font: 12px "Lucida Grande", "Arial", sans-serif; |
||||||
|
} |
||||||
|
|
||||||
|
#content { |
||||||
|
width: 820px; |
||||||
|
min-height: 500px; |
||||||
|
margin: 75px auto 10px auto; |
||||||
|
} |
||||||
|
|
||||||
|
#footer { |
||||||
|
color: #eeeeee; |
||||||
|
font: 9px "Monaco", "Courier", monospace; |
||||||
|
text-align: center; |
||||||
|
text-shadow: #444444 0px 2px 2px; |
||||||
|
} |
||||||
|
|
||||||
|
#footer a { |
||||||
|
color: #eeeeee; |
||||||
|
border-bottom: none; |
||||||
|
text-decoration: none; |
||||||
|
} |
||||||
|
|
||||||
|
.caption { |
||||||
|
color: #cccccc; |
||||||
|
font: italic 11px "Lucida Grande", "Arial", sans-serif; |
||||||
|
} |
||||||
|
|
||||||
|
h1, h2, h3, h4, h5 { |
||||||
|
text-shadow: 2px 2px 4px rgba(0, 0, 0, 0.05); |
||||||
|
} |
||||||
|
|
||||||
|
a img { border: none; } |
||||||
|
a:focus { outline: none; } |
||||||
|
a:link { border-bottom: 1px dotted; text-decoration: none; } |
||||||
|
a:visited { border-bottom: 1px dotted; text-decoration: none; } |
||||||
|
a:active { border-bottom: 1px dotted; text-decoration: none; } |
||||||
|
a:hover { border-bottom: 1px dotted; text-decoration: none; } |
||||||
|
a.plain { border-bottom: none; } |
||||||
|
|
||||||
|
h1 { font-size: x-large; } |
||||||
|
h2 { font-size: large; } |
||||||
|
h3 { font-size: medium; } |
||||||
|
h4 { font-size: small; } |
||||||
|
h5 { font-size: x-small; } |
||||||
|
h6 { font-size: xx-small; } |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Navigation */ |
||||||
|
#nav { |
||||||
|
width: 820px; |
||||||
|
height: 45px; |
||||||
|
margin-top: 20px; |
||||||
|
margin-bottom: 10px; |
||||||
|
} |
||||||
|
|
||||||
|
#nav_bar { |
||||||
|
float: right; |
||||||
|
padding-right: 15px; |
||||||
|
} |
||||||
|
|
||||||
|
#nav a { |
||||||
|
display: -moz-inline-stack; |
||||||
|
display: inline-block; |
||||||
|
height: 45px; |
||||||
|
border-bottom: none; |
||||||
|
} |
||||||
|
|
||||||
|
#nav a#apps { width:78px; } |
||||||
|
#nav a#apps { background-image:url("../img/nav_apps_normal.png"); } |
||||||
|
#nav a#apps:hover { background-image:url("../img/nav_apps_hover.png"); } |
||||||
|
#nav a#apps.selected { background-image:url("../img/nav_apps_selected.png"); } |
||||||
|
|
||||||
|
#nav a#projects { width:90px; } |
||||||
|
#nav a#projects { background-image:url("../img/nav_projects_normal.png"); } |
||||||
|
#nav a#projects:hover { background-image:url("../img/nav_projects_hover.png"); } |
||||||
|
#nav a#projects.selected { background-image:url("../img/nav_projects_selected.png"); } |
||||||
|
|
||||||
|
#nav a#contact { width:86px; } |
||||||
|
#nav a#contact { background-image:url("../img/nav_contact_normal.png"); } |
||||||
|
#nav a#contact:hover { background-image:url("../img/nav_contact_hover.png"); } |
||||||
|
#nav a#contact.selected { background-image:url("../img/nav_contact_selected.png"); } |
||||||
|
|
||||||
|
#nav a#dev { width:78px; } |
||||||
|
#nav a#dev { background-image:url("../img/nav_dev_normal.png"); } |
||||||
|
#nav a#dev:hover { background-image:url("../img/nav_dev_hover.png"); } |
||||||
|
#nav a#dev.selected { background-image:url("../img/nav_dev_selected.png"); } |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Menu */ |
||||||
|
#menu { |
||||||
|
margin: 0px; |
||||||
|
padding: 0px; |
||||||
|
width: 140px; |
||||||
|
font-size: 11px; |
||||||
|
line-height: 17px; |
||||||
|
list-style-type: none; |
||||||
|
} |
||||||
|
|
||||||
|
#menu .subtitle { |
||||||
|
margin-top: 10px; |
||||||
|
font-weight: bold; |
||||||
|
color: #222222; |
||||||
|
text-shadow: 2px 2px 4px rgba(0, 0, 0, 0.05); |
||||||
|
} |
||||||
|
|
||||||
|
#menu a { |
||||||
|
color: #444444; |
||||||
|
text-decoration: none; |
||||||
|
border-bottom: none; |
||||||
|
} |
||||||
|
|
||||||
|
#menu li a:hover, |
||||||
|
#menu li a:active { |
||||||
|
border-bottom: 1px dotted; |
||||||
|
text-decoration: none; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Page */ |
||||||
|
#page_strap_frame { |
||||||
|
width: 820px; |
||||||
|
height: 215px; |
||||||
|
} |
||||||
|
|
||||||
|
#page_strap_content { |
||||||
|
width: 820px; |
||||||
|
height: 215px; |
||||||
|
} |
||||||
|
|
||||||
|
#page_body { |
||||||
|
background: url("../img/page_body.png") repeat-y; |
||||||
|
width: 820px; |
||||||
|
min-height: 190px; |
||||||
|
} |
||||||
|
|
||||||
|
#page_content { |
||||||
|
padding: 5px 40px; |
||||||
|
} |
||||||
|
|
||||||
|
#page_footer { |
||||||
|
background: url("../img/page_footer.png"); |
||||||
|
width: 820px; |
||||||
|
height: 30px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Home */ |
||||||
|
#logo { |
||||||
|
width: 440px; |
||||||
|
height: 620px; |
||||||
|
margin: auto; |
||||||
|
} |
||||||
|
|
||||||
|
#logo_offset { |
||||||
|
height: 120px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Tables */ |
||||||
|
table.icons { |
||||||
|
border-spacing: 40px 5px; |
||||||
|
} |
||||||
|
|
||||||
|
table.icons td { |
||||||
|
vertical-align: top; |
||||||
|
text-align: center; |
||||||
|
width: 128px; |
||||||
|
} |
||||||
|
|
||||||
|
table.icons img { |
||||||
|
width: 128px; |
||||||
|
height: 128px; |
||||||
|
} |
||||||
|
|
||||||
|
table.badges { |
||||||
|
margin: 40px auto 20px auto; |
||||||
|
width: 80%; |
||||||
|
} |
||||||
|
|
||||||
|
table.list_header { |
||||||
|
background: #ddddff; |
||||||
|
font-weight: bold; |
||||||
|
line-height: 200%; |
||||||
|
margin: 20px 10px 0px 10px; |
||||||
|
padding-left: 10px; |
||||||
|
text-shadow: 1px 1px 1px rgba(0, 0, 0, 0.1); |
||||||
|
width: 95%; |
||||||
|
|
||||||
|
-moz-border-radius-topright: 5px; |
||||||
|
-moz-border-radius-topleft: 5px; |
||||||
|
|
||||||
|
-webkit-border-top-right-radius: 5px; |
||||||
|
-webkit-border-top-left-radius: 5px; |
||||||
|
} |
||||||
|
|
||||||
|
table.list { |
||||||
|
background: #eeeeff; |
||||||
|
background: -webkit-gradient(linear, left top, left bottom, from(#eeeeff), to(#fcfcff)); |
||||||
|
margin: 0px 10px 0px 10px; |
||||||
|
padding-left: 10px; |
||||||
|
width: 95%; |
||||||
|
|
||||||
|
-moz-border-radius-bottomright: 5px; |
||||||
|
-moz-border-radius-bottomleft: 5px; |
||||||
|
|
||||||
|
-webkit-border-bottom-right-radius: 5px; |
||||||
|
-webkit-border-bottom-left-radius: 5px; |
||||||
|
} |
||||||
|
|
||||||
|
table.list th { |
||||||
|
font-weight: normal; |
||||||
|
text-align: left; |
||||||
|
width: 150px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Boxes */ |
||||||
|
.box { |
||||||
|
-moz-border-radius: 5px; |
||||||
|
-webkit-border-radius: 5px; |
||||||
|
} |
||||||
|
|
||||||
|
.box_image { |
||||||
|
border: 1px solid #888888; |
||||||
|
} |
||||||
|
|
||||||
|
.box_button { |
||||||
|
text-align: center; |
||||||
|
margin: 24px; |
||||||
|
} |
||||||
|
|
||||||
|
.box_code_yellow { |
||||||
|
-moz-border-radius: 5px; |
||||||
|
-webkit-border-radius: 5px; |
||||||
|
font-family: monospace; |
||||||
|
white-space: pre; |
||||||
|
font-size: 12px; |
||||||
|
border: 1px solid #bbbbbb; |
||||||
|
padding: 10px; |
||||||
|
background: #ffffe0; |
||||||
|
background: -webkit-gradient(linear, left top, right top, from(#fffff0), to(#fffffd)); |
||||||
|
} |
||||||
|
|
||||||
|
.box_licence { |
||||||
|
-moz-border-radius: 5px; |
||||||
|
-webkit-border-radius: 5px; |
||||||
|
font-family: monospace; |
||||||
|
font-size: 12px; |
||||||
|
background-color: #eeeeff; |
||||||
|
border: 1px solid #bbbbbb; |
||||||
|
padding: 10px; |
||||||
|
background: -webkit-gradient(linear, left top, right top, from(#eeeeff), to(#fefeff)); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Layout */ |
||||||
|
.padding20 { |
||||||
|
padding: 20px; |
||||||
|
} |
||||||
|
|
||||||
|
.width450 { |
||||||
|
width: 450px; |
||||||
|
height: auto; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* Buttons */ |
||||||
|
a.button { |
||||||
|
display: inline-block; |
||||||
|
height: 23px; |
||||||
|
padding: 0 0 0 3px; |
||||||
|
font-size: 11px; |
||||||
|
font-weight: bold; |
||||||
|
color: #333333; |
||||||
|
text-shadow: 1px 1px 0 rgba(255, 255, 255, 0.9); |
||||||
|
background: url('../img/button_thin_cell.png') 0 0 no-repeat; |
||||||
|
white-space: nowrap; |
||||||
|
border: none; |
||||||
|
overflow: visible; |
||||||
|
cursor: pointer; |
||||||
|
text-decoration: none; |
||||||
|
} |
||||||
|
|
||||||
|
a.button>span { |
||||||
|
display: block; |
||||||
|
height: 23px; |
||||||
|
padding: 0 10px 0 8px; |
||||||
|
line-height: 23px; |
||||||
|
background: url('../img/button_thin_cell.png') 100% 0 no-repeat; |
||||||
|
} |
||||||
|
|
||||||
|
a.button:hover, |
||||||
|
a.button:focus { |
||||||
|
color: #ffffff; |
||||||
|
text-decoration: none; |
||||||
|
text-shadow: -1px -1px 0 rgba(0, 0, 0, 0.3); |
||||||
|
background-position: 0 -30px; |
||||||
|
} |
||||||
|
a.button:hover>span, |
||||||
|
a.button:focus>span { |
||||||
|
background-position: 100% -30px; |
||||||
|
} |
||||||
|
|
||||||
|
a.button:active { |
||||||
|
background-position: 0 -60px; |
||||||
|
} |
||||||
|
|
||||||
|
a.button:active>span { |
||||||
|
background-position: 100% -60px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
a.icon_download .icon, |
||||||
|
a.icon_github .icon { |
||||||
|
float: left; |
||||||
|
margin-left: -4px; |
||||||
|
width: 18px; |
||||||
|
height: 22px; |
||||||
|
background: url('../img/button_thin_icons.png') 0 0 no-repeat; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
a.icon_download .icon { |
||||||
|
background-position: -0px 0; |
||||||
|
} |
||||||
|
|
||||||
|
a.icon_download:hover .icon, |
||||||
|
a.icon_download:focus .icon { |
||||||
|
background-position: -0px -25px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
a.icon_github .icon { |
||||||
|
background-position: -20px 0; |
||||||
|
} |
||||||
|
|
||||||
|
a.icon_github:hover .icon, |
||||||
|
a.icon_github:focus .icon { |
||||||
|
background-position: -20px -25px; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
After Width: | Height: | Size: 34 KiB |
|
After Width: | Height: | Size: 1.8 KiB |
|
After Width: | Height: | Size: 1.2 KiB |
|
After Width: | Height: | Size: 437 B |
|
After Width: | Height: | Size: 1.0 KiB |
|
After Width: | Height: | Size: 35 KiB |
|
After Width: | Height: | Size: 3.6 KiB |
@ -0,0 +1,34 @@ |
|||||||
|
function loadImage(theURL) |
||||||
|
{ |
||||||
|
theImage = new Image; |
||||||
|
theImage.src = theURL; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
function navSelect(theID) |
||||||
|
{ |
||||||
|
document.getElementById(theID).setAttribute("class", "selected"); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
var prevOnLoad = window.onload; |
||||||
|
window.onload = function() |
||||||
|
{ |
||||||
|
if (prevOnLoad) |
||||||
|
prevOnLoad(); |
||||||
|
|
||||||
|
|
||||||
|
// Preload images
|
||||||
|
if (document.domain != "") |
||||||
|
{ |
||||||
|
loadImage("/src/img/nav_apps_hover.png"); |
||||||
|
loadImage("/src/img/nav_apps_selected.png"); |
||||||
|
loadImage("/src/img/nav_projects_hover.png"); |
||||||
|
loadImage("/src/img/nav_projects_selected.png"); |
||||||
|
loadImage("/src/img/nav_contact_hover.png"); |
||||||
|
loadImage("/src/img/nav_contact_selected.png"); |
||||||
|
loadImage("/src/img/nav_dev_hover.png"); |
||||||
|
loadImage("/src/img/nav_dev_selected.png"); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
@ -0,0 +1,109 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> |
||||||
|
<html> |
||||||
|
<head> |
||||||
|
<title>refNum › dmgutil › Version History</title> |
||||||
|
<!--HEAD_BEGIN--> |
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF8"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<script type="text/javascript" src="src/js/refnum.js"></script> |
||||||
|
|
||||||
|
<script type="text/javascript"> |
||||||
|
var _gaq = _gaq || []; |
||||||
|
_gaq.push(['_setAccount', 'UA-19561062-1']); |
||||||
|
_gaq.push(['_trackPageview']); |
||||||
|
|
||||||
|
(function() { |
||||||
|
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; |
||||||
|
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; |
||||||
|
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); |
||||||
|
})(); |
||||||
|
</script> |
||||||
|
|
||||||
|
<link type="text/css" href="src/css/refnum.css" rel=stylesheet> |
||||||
|
<!--HEAD_END--> |
||||||
|
</head> |
||||||
|
<body> |
||||||
|
|
||||||
|
<div id="content"> |
||||||
|
<!--#include virtual="/src/inc/nav.inc" --> |
||||||
|
<script language="javascript">navSelect("dev")</script> |
||||||
|
|
||||||
|
<a href="index.html"> |
||||||
|
<div id="page_strap_frame" style="background:url('src/img/page_strap_dmgutil.png');"> |
||||||
|
<div id="page_strap_content" style="background:url('src/img/page_strap_dmgutil.jpg'); background-repeat: no-repeat; background-position: 22px 16px;"></div></div></a> |
||||||
|
<div id="page_body"> |
||||||
|
<div id="page_content"> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<table> |
||||||
|
<tr> |
||||||
|
<td valign=top> |
||||||
|
<ul id="menu"> |
||||||
|
<li class="subtitle">dmgutil</li> |
||||||
|
<li><a href="index.html">Home</a></li> |
||||||
|
<li><a href="licence.html">Licence</a></li> |
||||||
|
<li><a href="version.html">Version History</a></li> |
||||||
|
</ul> |
||||||
|
</td> |
||||||
|
<td valign=top> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h1>Version History</h1> |
||||||
|
<h2>dmgutil 1.3</h2> |
||||||
|
<ul> |
||||||
|
<li>Released 2008/05/01 |
||||||
|
<li>Added workaround for Finder bug when setting background image on 10.5 |
||||||
|
<li>Added workaround for hdiutil bug when closing disk image on 10.5 |
||||||
|
</ul> |
||||||
|
|
||||||
|
|
||||||
|
<h2>dmgutil 1.2</h2> |
||||||
|
<ul> |
||||||
|
<li>Released 2007/03/07 |
||||||
|
<li>Fixed typo in zlib-level flag, was defaulting to 1 not 9 |
||||||
|
</ul> |
||||||
|
|
||||||
|
|
||||||
|
<h2>dmgutil 1.1</h2> |
||||||
|
<ul> |
||||||
|
<li>Released 2006/07/31 |
||||||
|
<li>Added <tt>--icon</tt> parameter to set custom icons |
||||||
|
<li>Added <tt>--bgcol</tt> parameter to set background color |
||||||
|
<li>Added <tt>--toolbar</tt> flag to control toolbar visibility |
||||||
|
</ul> |
||||||
|
|
||||||
|
|
||||||
|
<h2>dmgutil 1.0</h2> |
||||||
|
<ul> |
||||||
|
<li>Released 2006/07/22 |
||||||
|
<li>Initial release |
||||||
|
</ul> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div> |
||||||
|
</div> |
||||||
|
<div id="page_footer"></div> |
||||||
|
</div> |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<!--FOOTER_BEGIN--> |
||||||
|
<div id="footer"> |
||||||
|
Copyright © 2006-2010 <a href="http://www.refnum.com/">refNum Software</a> |
||||||
|
</div> |
||||||
|
<!--FOOTER_END--> |
||||||
|
</body> |
||||||
|
</html> |
||||||
@ -0,0 +1,738 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
#============================================================================ |
||||||
|
# NAME: |
||||||
|
# dmgutil.pl |
||||||
|
# |
||||||
|
# DESCRIPTION: |
||||||
|
# Disk image creation utility. |
||||||
|
# |
||||||
|
# COPYRIGHT: |
||||||
|
# Copyright (c) 2006-2009, refNum Software |
||||||
|
# <http://www.refnum.com/> |
||||||
|
# |
||||||
|
# All rights reserved. |
||||||
|
# |
||||||
|
# Redistribution and use in source and binary forms, with or without |
||||||
|
# modification, are permitted provided that the following conditions |
||||||
|
# are met: |
||||||
|
# |
||||||
|
# o Redistributions of source code must retain the above |
||||||
|
# copyright notice, this list of conditions and the following |
||||||
|
# disclaimer. |
||||||
|
# |
||||||
|
# o Redistributions in binary form must reproduce the above |
||||||
|
# copyright notice, this list of conditions and the following |
||||||
|
# disclaimer in the documentation and/or other materials |
||||||
|
# provided with the distribution. |
||||||
|
# |
||||||
|
# o Neither the name of refNum Software nor the names of its |
||||||
|
# contributors may be used to endorse or promote products derived |
||||||
|
# from this software without specific prior written permission. |
||||||
|
# |
||||||
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
||||||
|
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
||||||
|
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
||||||
|
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
||||||
|
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
||||||
|
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
||||||
|
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
||||||
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
||||||
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
||||||
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
||||||
|
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
||||||
|
#============================================================================ |
||||||
|
# Imports |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
use strict; |
||||||
|
use Getopt::Long; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# Constants |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
my $kLogging = "-quiet"; |
||||||
|
|
||||||
|
my $Rez = "/Developer/Tools/Rez"; |
||||||
|
my $SetFile = "/Developer/Tools/SetFile"; |
||||||
|
|
||||||
|
my $kManPage = <<MANPAGE; |
||||||
|
NAME |
||||||
|
dmgutil -- create, adjust, and compress a distribution disk image |
||||||
|
|
||||||
|
SYNOPSIS |
||||||
|
dmgutil --help |
||||||
|
|
||||||
|
dmgutil --open --volume=name file |
||||||
|
|
||||||
|
dmgutil --set [--x=integer] [--y=integer] |
||||||
|
[--width=integer] [--height=integer] |
||||||
|
[--iconsize=integer] [--icon=file] |
||||||
|
[--background=file] [--bgcol=r,g,b] |
||||||
|
[--toolbar=boolean] file |
||||||
|
|
||||||
|
dmgutil --close --volume=name [--license=file] file |
||||||
|
|
||||||
|
DESCRIPTION |
||||||
|
dmgutil is used to create distribution disk images, and to adjust |
||||||
|
the Finder view settings of these volumes or their contents. |
||||||
|
|
||||||
|
It can be invoked in three modes: open, set, and close. |
||||||
|
|
||||||
|
OPEN MODE |
||||||
|
Open Mode has the following options: |
||||||
|
--open Select open mode. |
||||||
|
|
||||||
|
--volume=name The volume name for the disk image. |
||||||
|
|
||||||
|
file The output path for the .dmg file. |
||||||
|
|
||||||
|
SET MODE |
||||||
|
Set Mode has the following options: |
||||||
|
--set Select set mode. |
||||||
|
|
||||||
|
--x=integer The x coordinate of the item. |
||||||
|
|
||||||
|
--y=integer The y coordinate of the item. |
||||||
|
|
||||||
|
--width=integer The width for a Finder window. |
||||||
|
|
||||||
|
--height=integer The height for a Finder window. |
||||||
|
|
||||||
|
--iconsize=integer The icon size for a Finder window. |
||||||
|
|
||||||
|
--icon=file.icns The icon to apply to the item. |
||||||
|
|
||||||
|
--background=file The background picture for a Finder window. |
||||||
|
|
||||||
|
--bgcol=r,g,b The background color for a Finder window. |
||||||
|
|
||||||
|
--toolbar=boolean The toolbar state for a Finder window. |
||||||
|
|
||||||
|
file The file or folder to be set. |
||||||
|
|
||||||
|
CLOSE MODE |
||||||
|
Close Mode has the following options: |
||||||
|
--close Select close mode. |
||||||
|
|
||||||
|
--volume=name The volume name for the disk image. |
||||||
|
|
||||||
|
--license=file The license agreement resource. |
||||||
|
|
||||||
|
file The output path for the .dmg file. |
||||||
|
|
||||||
|
EXAMPLES |
||||||
|
OPEN MODE |
||||||
|
To create a new disk image for "MyApp 1.0": |
||||||
|
|
||||||
|
dmgutil.pl --open --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
|
||||||
|
SET MODE |
||||||
|
To set the position of a file or folder: |
||||||
|
|
||||||
|
dmgutil.pl --set --x=100 --y=100 "/Volumes/MyApp 1.0/Read Me.rtf" |
||||||
|
dmgutil.pl --set --x=200 --y=100 "/Volumes/MyApp 1.0/MyApp.app" |
||||||
|
|
||||||
|
To set the window size for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --width=300 --height=200 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set the icon size for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --iconsize=128 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set a custom icon for a volume, folder, or file: |
||||||
|
|
||||||
|
dmgutil.pl --set --icon=volume.icns "/Volumes/MyApp 1.0" |
||||||
|
dmgutil.pl --set --icon=folder.icns "/Volumes/MyApp 1.0/Extras" |
||||||
|
dmgutil.pl --set --icon=readme.icns "/Volumes/MyApp 1.0/Read Me.rtf" |
||||||
|
|
||||||
|
To set the background picture for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --background=flowers.jpg "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To set the background color for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --bgcol=0,65535,0 "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
To hide the toolbar for the volume: |
||||||
|
|
||||||
|
dmgutil.pl --set --toolbar=false "/Volumes/MyApp 1.0" |
||||||
|
|
||||||
|
Multiple flags may be combined, to set all of the properties of an |
||||||
|
item simultaneously. |
||||||
|
|
||||||
|
CLOSE MODE |
||||||
|
To unmount and compress the disk image created for "MyApp 1.0": |
||||||
|
|
||||||
|
dmgutil.pl --close --volume="MyApp 1.0" myapp_1.0.dmg |
||||||
|
|
||||||
|
VERSION |
||||||
|
dmgutil 1.1 |
||||||
|
|
||||||
|
COPYRIGHT |
||||||
|
Copyright (c) refNum Software http://www.refnum.com/ |
||||||
|
MANPAGE |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# appleScript : Execute an AppleScript. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub appleScript |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($theScript) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Save the script |
||||||
|
my $theFile = "/tmp/dmgutil_applescript.txt"; |
||||||
|
|
||||||
|
open( OUTPUT, ">$theFile") or die "Can't open $theFile for writing: $!\n"; |
||||||
|
print OUTPUT $theScript; |
||||||
|
close(OUTPUT); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# And execute it |
||||||
|
system("osascript", $theFile); |
||||||
|
unlink($theFile); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# isVolume : Is a path to the root of a volume? |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub isVolume |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Check the state |
||||||
|
# |
||||||
|
# After stripping out the leading /Volumes, any further slashes |
||||||
|
# indicate we have a folder rather than a volume. |
||||||
|
$thePath =~ s/\/Volumes\///; |
||||||
|
|
||||||
|
my $isVolume = ($thePath =~ /.*\/.*/) ? 0 : 1; |
||||||
|
|
||||||
|
return($isVolume); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setFolderState : Set the state for a folder. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setFolderState |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $iconSize, $flagToolbar, $bgImage, $bgColor) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Initialise ourselves |
||||||
|
my $cmdBackground = ""; |
||||||
|
my $cmdIconSize = ""; |
||||||
|
my $cmdToolbar = ""; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the background |
||||||
|
# |
||||||
|
# As of 10.5, the Finder refuses to manipulate files whose names start with |
||||||
|
# a period (rdar://5582578). As such we need to use an underscore for the |
||||||
|
# image, then make it invisible using SetFile. |
||||||
|
if (-f $bgImage) |
||||||
|
{ |
||||||
|
$bgImage =~ /.*\.(\w+)/; |
||||||
|
my $dstImage = "$thePath/_Background.$1"; |
||||||
|
|
||||||
|
`cp "$bgImage" "$dstImage"`; |
||||||
|
|
||||||
|
$cmdBackground .= "set theImage to posix file \"$dstImage\"\n"; |
||||||
|
$cmdBackground .= " set background picture of theOptions to theImage\n"; |
||||||
|
$cmdBackground .= " do shell script \"/Developer/Tools/SetFile -a V '$dstImage'\"\n"; |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($bgColor ne "") |
||||||
|
{ |
||||||
|
$cmdBackground = "set background color of theOptions to {$bgColor} as RGB color"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the icon size |
||||||
|
if ($iconSize != 0) |
||||||
|
{ |
||||||
|
$cmdIconSize = "set icon size of theOptions to $iconSize"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the toolbar |
||||||
|
# |
||||||
|
# The window must be made visible in order to change the toolbar state. |
||||||
|
if ($flagToolbar ne "") |
||||||
|
{ |
||||||
|
$cmdToolbar = " open theWindow \n"; |
||||||
|
$cmdToolbar .= " set toolbar visible of theWindow to $flagToolbar \n"; |
||||||
|
$cmdToolbar .= " close theWindow \n"; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# AppleScript requires the correct nomenclature for the target item. |
||||||
|
my $theTarget = "folder \"$thePath\""; |
||||||
|
|
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
$theTarget =~ s/folder "\/Volumes\//disk "/; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the folder state |
||||||
|
# |
||||||
|
# Once a change has been made, it must be flushed to disk with update. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= " set theWindow to window of theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " set current view of theWindow to icon view \n"; |
||||||
|
$theScript .= " set theOptions to icon view options of theWindow \n"; |
||||||
|
$theScript .= " set arrangement of theOptions to not arranged \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " $cmdBackground\n"; |
||||||
|
$theScript .= " $cmdIconSize \n"; |
||||||
|
$theScript .= " $cmdToolbar \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " update theTarget\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setCustomIcon : Set a custom icon. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setCustomIcon |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $theIcon) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Validate our state |
||||||
|
# |
||||||
|
# We require several tools inside /Developer/Tools. |
||||||
|
die("Setting an icon requires $Rez") if (! -e $Rez); |
||||||
|
die("Setting an icon requires $SetFile") if (! -e $SetFile); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Prepare the flags |
||||||
|
# |
||||||
|
# Prior to Mac OS X 10.4, SetFile can only set an attribute if it is |
||||||
|
# first cleared (rdar://3738867). |
||||||
|
my $sysVers = `uname -r`; |
||||||
|
my $setHidden = ($sysVers =~ /^[0-7]\./) ? "vV" : "V"; |
||||||
|
my $setIcon = ($sysVers =~ /^[0-7]\./) ? "cC" : "C"; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set a volume icon |
||||||
|
# |
||||||
|
# Volume custom icons are contained in a .VolumeIcon.icns file. |
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
my $iconFile = "$thePath/.VolumeIcon.icns"; |
||||||
|
|
||||||
|
`cp "$theIcon" "$iconFile"`; |
||||||
|
|
||||||
|
`$SetFile -a $setHidden "$iconFile"`; |
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Set a folder icon |
||||||
|
# |
||||||
|
# Folder custom icons are contained in an ('icns', -16455) resource, |
||||||
|
# placed in an invisible "Icon\r" file inside the folder. |
||||||
|
elsif (-d $thePath) |
||||||
|
{ |
||||||
|
my $iconFile = "$thePath/Icon\r"; |
||||||
|
my $tmpR = "/tmp/dmgutil.r"; |
||||||
|
|
||||||
|
`echo "read 'icns' (-16455) \\"$theIcon\\";\n" > $tmpR`; |
||||||
|
`cd /tmp; $Rez dmgutil.r -append -o "$iconFile"`; |
||||||
|
|
||||||
|
`$SetFile -a $setHidden "$iconFile"`; |
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
|
||||||
|
unlink($tmpR); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Set a file icon |
||||||
|
# |
||||||
|
# File custom icons are contained in an ('icns', -16455) resource. |
||||||
|
else |
||||||
|
{ |
||||||
|
my $tmpR = "/tmp/dmgutil.r"; |
||||||
|
|
||||||
|
`echo "read 'icns' (-16455) \\"$theIcon\\";\n" > $tmpR`; |
||||||
|
`cd /tmp; $Rez dmgutil.r -append -o "$thePath"`; |
||||||
|
|
||||||
|
`$SetFile -a $setIcon "$thePath"`; |
||||||
|
|
||||||
|
unlink($tmpR); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setWindowPos : Set the position of a window. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setWindowPos |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $posX, $posY, $theWidth, $theHeight) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Initialise ourselves |
||||||
|
my $bottom = $posY + $theHeight; |
||||||
|
my $right = $posX + $theWidth; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# AppleScript requires the correct nomenclature for the target item. |
||||||
|
my $theTarget = "folder \"$thePath\""; |
||||||
|
|
||||||
|
if (isVolume($thePath)) |
||||||
|
{ |
||||||
|
$theTarget =~ s/folder "\/Volumes\//disk "/; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the window position |
||||||
|
# |
||||||
|
# In theory, the "set bounds" command is all that should be necessary |
||||||
|
# to set the bounds of a Finder window. |
||||||
|
# |
||||||
|
# Unfortunately, under 10.4 this will result in a window that will be |
||||||
|
# taller than the specified size when the window is next opened. |
||||||
|
# |
||||||
|
# To reliably set the bounds of a window we must open the window, show |
||||||
|
# the status bar, and set the window bounds to be 20 pixels taller (the |
||||||
|
# height of the status bar) than necessary. |
||||||
|
# |
||||||
|
# The status bar can then be hidden, the window closed, and the bounds |
||||||
|
# bounds will be the desired size when the window is next opened. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= " set theWindow to window of theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " open theWindow \n"; |
||||||
|
$theScript .= " set statusbar visible of theWindow to true \n"; |
||||||
|
$theScript .= " set bounds of theWindow to {$posX, $posY, $right, $bottom+20} \n"; |
||||||
|
$theScript .= " set statusbar visible of theWindow to false \n"; |
||||||
|
$theScript .= " close theWindow \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# setIconPos : Set the position of an icon. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub setIconPos |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($theFile, $posX, $posY) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Identify the target |
||||||
|
# |
||||||
|
# Since the 'posix file' command follows symlinks, in order to set the |
||||||
|
# position of a symlink (vs its target) we need to use an HFS path and |
||||||
|
# reference it as a file rather than an alias. |
||||||
|
my $theTarget = "alias (posix file \"$theFile\")"; |
||||||
|
|
||||||
|
if (-l $theFile) |
||||||
|
{ |
||||||
|
$theTarget = $theFile; |
||||||
|
|
||||||
|
$theTarget =~ s/\/Volumes\///; |
||||||
|
$theTarget =~ s/\//:/g; |
||||||
|
$theTarget = "file \"$theTarget\""; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the icon position |
||||||
|
# |
||||||
|
# Once a change has been made, it must be flushed to disk with update. |
||||||
|
my $theScript = ""; |
||||||
|
|
||||||
|
$theScript .= "tell application \"Finder\"\n"; |
||||||
|
$theScript .= " set theTarget to $theTarget \n"; |
||||||
|
$theScript .= "\n"; |
||||||
|
$theScript .= " set position of theTarget to {$posX, $posY} \n"; |
||||||
|
$theScript .= " update theTarget\n"; |
||||||
|
$theScript .= "end tell"; |
||||||
|
|
||||||
|
appleScript($theScript); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doOpen : Open a new disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doOpen |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($dmgFile, $volName) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Clean up any previous image |
||||||
|
system("rm", "-f", "$dmgFile.sparseimage"); |
||||||
|
system("rm", "-f", "$dmgFile"); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Create the image |
||||||
|
# |
||||||
|
# A large sparse disk image is created, which will be shrunk down |
||||||
|
# and compressed when the disk image is finally closed. |
||||||
|
print " creating $dmgFile\n" if ($kLogging eq "-quiet"); |
||||||
|
|
||||||
|
system("hdiutil", "create", $dmgFile, |
||||||
|
"-volname", $volName, |
||||||
|
"-megabytes", "1000", |
||||||
|
"-type", "SPARSE", |
||||||
|
"-fs", "HFS+", |
||||||
|
$kLogging); |
||||||
|
|
||||||
|
system("hdiutil", "mount", $kLogging, "$dmgFile.sparseimage"); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doClose : Close a disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doClose |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($dmgFile, $volName, $theLicense) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Bless the volume |
||||||
|
# |
||||||
|
# Blessing the volume ensures that the volume always opens in the current |
||||||
|
# view, overriding the user's "Open new windows in column view" preference. |
||||||
|
system("bless", "--openfolder", "/Volumes/$volName"); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Compress the image |
||||||
|
# |
||||||
|
# On 10.5, the disk image must be ejected rather than unmounted to allow |
||||||
|
# it to be converted from a sparse image to a compressed image. |
||||||
|
print " compressing $dmgFile\n" if ($kLogging eq "-quiet"); |
||||||
|
|
||||||
|
system("hdiutil", "eject", $kLogging, "/Volumes/$volName"); |
||||||
|
|
||||||
|
if ($theLicense ne "") |
||||||
|
{ |
||||||
|
system("hdiutil", "unflatten", $kLogging, "$dmgFile.sparseimage"); |
||||||
|
`$Rez -a "$theLicense" -o "$dmgFile.sparseimage"`; |
||||||
|
system("hdiutil", "flatten", $kLogging, "$dmgFile.sparseimage"); |
||||||
|
} |
||||||
|
|
||||||
|
system("hdiutil", "convert", "$dmgFile.sparseimage", |
||||||
|
"-format", "UDZO", |
||||||
|
"-o", $dmgFile, |
||||||
|
"-imagekey", "zlib-level=9", |
||||||
|
$kLogging); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Clean up |
||||||
|
system("rm", "-f", "$dmgFile.sparseimage"); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# doSet : Set a file/folder state. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub doSet |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($thePath, $posX, $posY, $theWidth, $theHeight, $iconSize, $theIcon, $bgImage, $bgColor, $flagToolbar) = @_; |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the custom icon |
||||||
|
if ($theIcon ne "") |
||||||
|
{ |
||||||
|
setCustomIcon($thePath, $theIcon); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the folder state |
||||||
|
if ($iconSize != 0 || $bgImage ne "" || $bgColor ne "" || $flagToolbar ne "") |
||||||
|
{ |
||||||
|
setFolderState($thePath, $iconSize, $flagToolbar, $bgImage, $bgColor); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Set the position |
||||||
|
# |
||||||
|
# Window position must be set after applying the folder state. |
||||||
|
if ($posX != 0 && $posY != 0) |
||||||
|
{ |
||||||
|
if ($theWidth != 0 && $theHeight != 0) |
||||||
|
{ |
||||||
|
setWindowPos($thePath, $posX, $posY, $theWidth, $theHeight); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
setIconPos($thePath, $posX, $posY); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# dmgUtil : Manipulate a disk image. |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
sub dmgUtil |
||||||
|
{ |
||||||
|
|
||||||
|
|
||||||
|
# Retrieve our parameters |
||||||
|
my ($doOpen, $doClose, $doSet) = (0, 0, 0); |
||||||
|
my ($posX, $posY, $theWidth, $theHeight, $iconSize) = (0, 0, 0, 0, 0); |
||||||
|
my ($volName, $theIcon, $bgImage, $bgColor, $flagToolbar, $theLicense) = ("", "", "", "", "", ""); |
||||||
|
|
||||||
|
GetOptions( "--open+", => \$doOpen, |
||||||
|
"--close+", => \$doClose, |
||||||
|
"--set+", => \$doSet, |
||||||
|
"--volume=s", => \$volName, |
||||||
|
"--x=i", => \$posX, |
||||||
|
"--y=i", => \$posY, |
||||||
|
"--width=i", => \$theWidth, |
||||||
|
"--height=i", => \$theHeight, |
||||||
|
"--iconsize=i", => \$iconSize, |
||||||
|
"--icon=s", => \$theIcon, |
||||||
|
"--background=s", => \$bgImage, |
||||||
|
"--bgcol=s", => \$bgColor, |
||||||
|
"--toolbar=s", => \$flagToolbar, |
||||||
|
"--license=s", => \$theLicense); |
||||||
|
|
||||||
|
my ($thePath) = @ARGV; |
||||||
|
|
||||||
|
$thePath = "" if (!defined($thePath)); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Perform the action |
||||||
|
if ($doOpen && $thePath ne "" && $volName ne "") |
||||||
|
{ |
||||||
|
doOpen($thePath, $volName); |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($doClose && $thePath ne "" && $volName ne "") |
||||||
|
{ |
||||||
|
doClose($thePath, $volName, $theLicense); |
||||||
|
} |
||||||
|
|
||||||
|
elsif ($doSet && $thePath ne "") |
||||||
|
{ |
||||||
|
doSet($thePath, $posX, $posY, $theWidth, $theHeight, $iconSize, $theIcon, $bgImage, $bgColor, $flagToolbar); |
||||||
|
} |
||||||
|
|
||||||
|
else |
||||||
|
{ |
||||||
|
print $kManPage; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#============================================================================ |
||||||
|
# Script entry point |
||||||
|
#---------------------------------------------------------------------------- |
||||||
|
dmgUtil(); |
||||||
Loading…
Reference in new issue