indesign-script - Eingebettete ICC-Profile von Bildern ermitteln

Ermittelt die Namen der eingebetteten ICC-Profile und gibt sie (mit den Bildnamen) in einem Dialog aus.

/*
	embedded_icc-profiles_of_images.jsx
	
	//DESCRIPTION:Ermittelt die Namen der eingebetteten ICC-Profile und gibt sie (mit den Bildnamen) in einem Dialog aus.
	VERSION: 0.1
	AUTHOR: Martin Fischer
	EMAIL: InDesign@MartinFischer.de
	DATE: 13.1.2017
	© Martin Fischer 2017
*/

if (app.documents.length == 0) 
	error_exit('Achtung!\nBitte öffnen Sie eine InDesign-Datei.');

if ($.os.substr(0,9) != 'Macintosh')
	error_exit('Achtung!\nDas Skript läuft nur auf einem Mac.');
	
var doc = app.documents.firstItem(), fp, i = 0, iccprofile,
	grf = doc.allGraphics,
	arr = new Array;

for (i = 0; i < grf.length; i++)
{
	if (grf[i].hasOwnProperty('itemLink') && grf[i].itemLink != null)
	{
		fp = File(grf[i].itemLink.filePath);
		if (fp.exists)
		{
			iccprofile = get_iccprofile(fp.fsName);
			arr.push(grf[i].itemLink.name + ':\t' + iccprofile);
		}
	}
}

alert('ICC-Profile\n' + arr.join('\n'));

function get_iccprofile(fp)
{
	var icc, myAppleScript = '';
	
	myAppleScript += 'try\r';
	myAppleScript += 'set pathImmagine to "' + fp + '"\r';
	myAppleScript += 'set profileName to do shell script "sips -g profile " & quoted form of (POSIX path of pathImmagine) & " | fgrep profile | sed  \'s/  profile: //g\'"\r';
	myAppleScript += 'on error msg number errnum\r';
	myAppleScript += 'set profileName to "ND"\r';
	myAppleScript += 'end try\r';

icc = app.doScript(myAppleScript, ScriptLanguage.APPLESCRIPT_LANGUAGE);
	return icc;
}

function error_exit(message) 
{ 
	if (arguments.length > 0)  
		alert(message); 
	exit();
}