Back Up Masters

Current version: v3 14
Built on: Aperture 1.5.2
This AppleScript operates on the selection, a project or album.

Download

This AppleScript takes the selection, an album, or a project of your choice and exports the master images (with XMP sidecar files) into approximately DVD-sized folders – creating as many as needed. It can be a little slow as it exports each master individually, but it works and allows you to use any folder export setting you have in Aperture. It will also tag exported images with a keyword to indicate that they were backed up and the name of the disc they were backed up to (as long as you burn the resulting folder(s)).



-- ---------------------------------------------------------------------------------------------------------------------------
property p_splitSizeMB : 4600
property p_discName : "Backup"
property p_keywordPath : "DVD_Backup Workflow"

-- ---------------------------------------------------------------------------------------------------------------------------
global g_libPath
global g_totalSize
global g_discCount

global g_masterPaths
global g_masterSizes
global g_masterNames
global g_albumSizeMB

-- ---------------------------------------------------------------------------------------------------------------------------
on run
 set g_totalSize to 0
set g_discCount to 1

set g_masterPaths to {}
set g_masterSizes to {}
set g_masterNames to {}

tell application "Aperture"
activate

-- -------------------------------------------- Choose our source
 set theOut to display dialog "Back up selected images or of a Project or Album?" buttons {"Selection", "Project/Album", "Cancel"} default button 2 with icon note
 set theSource to button returned of theOut
if theSource is "Selection" then
 set m_images to selection
 set m_numImgs to count of m_images
set m_desc to "selection"

else
 set m_theSource to my chooseProjAlbum()

set m_theKind to (class of m_theSource) as string
 set m_srcName to name of m_theSource
set m_desc to (m_theKind & space & quoted form of m_srcName) as string

 set m_images to (image versions of m_theSource)
set m_numImgs to count of m_images
end if


-- -------------------------------------------- Set up our destination folder
--tell AppleScript
 set destRoot to choose folder with prompt "Choose a folder to export into:"
--end tell

 tell application "Finder"
set curDate to current date
 set m_dateStr to my formatDate(curDate)

-- --------------------------------------------------- Make our destination root folder
 set numExports to (count of (folders of destRoot whose name contains m_dateStr))
set m_exportName to (m_dateStr & "_" & (numExports + 1)) as string
 set destPar to make new folder at destRoot with properties {name:m_exportName}


--set m_discName to (p_discName & space & g_discCount)
 set m_destRoot to make new folder at destPar with properties {name:(p_discName & "_" & m_exportName & "_" & g_discCount)}
set m_destRootAlias to (m_destRoot as alias)
end tell

 set m_exportSettingsNames to (name of every export setting)
set m_folderNamingPolicies to (name of every folder naming policy)
set m_fileNamingPolicies to (name of every file naming policy)

--tell AppleScript
-- set theOut to choose from list m_exportSettingsNames with prompt "Choose export settings"
 set theOut to choose from list m_folderNamingPolicies with prompt "Choose folder naming settings"
set m_chosenNamingPolicies to (item 1 of theOut)
-- set theOut to choose from list m_fileNamingPolicies with prompt "Choose file naming settings"
--end tell

(*
tell AppleScript
display dialog ("This will take some time. Expect approximately 5 seconds per image for a total estimated time of " & ((count of m_images) * 5) & " seconds") buttons {"OK"} default button 1 with icon note
end tell
*)

set m_curImageSet to {}

repeat with m_curImage in m_images
set imgNameRAW to name of m_curImage
log imgNameRAW

if imgNameRAW contains "Version" then
 set theOffset to offset of "Version" in imgNameRAW
set trimName to (text 1 thru (theOffset - 4) of imgNameRAW)

log trimName
set imgName to trimName

else
 set imgName to imgNameRAW

end if

 if g_masterNames does not contain imgName then
 set end of m_curImageSet to m_curImage
set end of g_masterNames to imgName


set g_totalSize to size of (info for m_destRootAlias)
log g_totalSize

-- Here is where the magic happens
-- If our current size is greater than about 4.6GB we'll export the current images
if g_totalSize < (p_splitSizeMB * 1000000) then
 log "----------------------------------- exporting master"
export {m_curImage} to m_destRootAlias naming folders with (folder naming policy m_chosenNamingPolicies) with metadata
 else
 -- ---------------------------------- create a new destination folder
 log "----------------------------------- creating new destination"
tell application "Finder"

set g_discCount to g_discCount + 1
--set m_discName to (p_discName & space & g_discCount)
 set m_destRoot to make new folder at destPar with properties {name:(p_discName & "_" & m_exportName & "_" & g_discCount)}
set m_destRootAlias to (m_destRoot as alias)
end tell

 log "----------------------------------- exporting master"
export {m_curImage} to m_destRootAlias naming folders with (folder naming policy m_chosenNamingPolicies) with metadata
 end if

-- ---------------------------------- Mark the image as having been backed up
 set m_backKey to (m_exportName & "_" & g_discCount) as string
 my addKey(m_curImage, m_backKey, p_keywordPath)

end if
 end repeat

 end tell

 tell application "Finder"
activate
 open destPar

end tell
end run


-- ---------------------------------------------------------------------------------------------------------------------------
on addKey(s_imgVers, s_theKey, s_keyParents)
log s_theKey
log s_keyParents

tell application "Aperture"
tell s_imgVers

make new keyword with properties {name:s_theKey, parents:s_keyParents}

end tell
 end tell
end addKey



-- ---------------------------------------------------------------------------------------------------------------------------
on formatDate(theDate)
-- formatDate 01.0

 set theMonth to (month of theDate) as integer
 if theMonth is less than 10 then set theMonth to ("0" & theMonth as string) as string

 set theDay to (day of theDate)
if theDay is less than 10 then set theDay to ("0" & theDay as string) as string

 set theYear to (year of theDate)

set theHour to time of theDate

set dateStr to ((theMonth as string) & "-" & (theDay as string))
set dateStr to (((theYear as string) & "-" & (theMonth as string) & "-" & (theDay as string))) -- & " " & (theHour))
-- set dateStr to (((theYear as string) & "-" & (theMonth as string) & "-" & (theDay as string)) & " " & (theHour))

 return dateStr
end formatDate



-- ---------------------------------------------------------------------------------------------------------------------------
on chooseProjAlbum()
tell application "Aperture"
set theLib to library 1

set theProjects to projects
 set theProjectsNames to {}
repeat with curProject in theProjects
set end of theProjectsNames to name of curProject
end repeat

 tell AppleScript to set theOut to choose from list theProjectsNames with prompt "Choose a project:"
set theProject to project (item 1 of theOut)
--set theProject to project "Bretts Portfolio"

 set theAlbums to albums of theProject
if theAlbums is {} then
 set theAlbum to theProject

else
 set formProjName to ("<" & (name of theProject) & ">")
set theAlbumNames to {formProjName}
repeat with curAlbum in theAlbums
set end of theAlbumNames to name of curAlbum
end repeat

 tell AppleScript to set theOut to choose from list theAlbumNames with prompt "Choose an album or the project:"

if ((item 1 of theOut) = (item 1 of theAlbumNames)) then
 set theAlbum to theProject
else
 set theAlbum to album (item 1 of theOut) of theProject
end if
 end if

 return theAlbum
end tell
end chooseProjAlbum