#!/usr/bin/perl

#####################################################################################################
#
# Get the permissions of the root node of the install
#
#####################################################################################################

my $permissions_info_file = "/tmp/com.apple.installation.savedperm";
my @stat_info;

my $destPath = $ARGV[2];

if (-e $permissions_info_file)
{
	unlink($permissions_info_file) || print "Error deleting previous saved permissions file.\n";
}

@stat_info = stat($destPath);

if(open(PERMS_FILE_HDL, ">$permissions_info_file")) {
	print(PERMS_FILE_HDL join("\n", @stat_info));
	close(PERMS_FILE_HDL);
	chmod(oct(700), "$permissions_info_file");
} else {
	
	print "Error saving permissions on target disk.\n";

}