nisus.com

Code: Select all

$doc = Document.active
if $doc == undefined
	exit 'No open document, exiting...'
end

$path = $doc.filePath
if $path == undefined
	exit 'The frontmost document has never been saved, exiting...'
end
$locked = undefined

Set Exported Perl Variables 'path', 'locked'
Begin Perl
	chomp ($SetFile = `which SetFile`);
	chomp ($GetFileInfo = `which GetFileInfo`);
	if ( $SetFile && $GetFileInfo) {
		chomp ($locked = `GetFileInfo -al "$path"`);
		if ( $locked == 1 ) {
			`SetFile -a l "$path"`;
			$locked = 'unlocked';
		} else {
			`SetFile -a L "$path"`;
			$locked = 'locked';
		};
	};
end

if $locked == undefined
	exit "SetFile or GetFileInfo not found in \$PATH.\nYou may need installing Xcode tools."
end

exit "The frontmost document has been $locked."