|
|
Shell Script to save/restore files and dir permissions
01-13-2009
my $tree = $ARGV[0];
foreach $file (`/usr/bin/find ${tree}`)
{
chomp($file);
(undef, $inode, $mode, undef, $uid, $gid, $undef, $size, undef, undef, undef, undef, undef) = stat($file);
$permissions = $mode & 07777;
printf "%i:%i:%04o:%i:%i:%s\n", $inode, $size, $permissions, $uid, $gid, $file;
}#Does not save ACL...
my $stateFile = $ARGV[0];
open(STATE_IN, "<$stateFile");
foreach $line (<STATE_IN>)
{
chomp($line);
my ($inode, $size, $permissions, $uid, $gid, $file) = split(':', $line, 6);
if( -f $file )
{
#add inode / size check here if desired
chmod(oct($permissions), $file);
chown($uid, $gid, $file);
}
}
close(STATE_IN);9:45am root@hyperion /research/src/state_saver #>perl saveState.pl /research/src/state_saver/ > test 9:45am root@hyperion /research/src/state_saver #>cat test 1846211:512:0755:0:0:/research/src/state_saver/ 1846214:0:0644:0:0:/research/src/state_saver/test 1846213:365:0644:0:0:/research/src/state_saver/applyState.pl 1846212:332:0644:0:0:/research/src/state_saver/saveState.pl 9:45am root@hyperion /research/src/state_saver #>l total 10 1846211 drwxr-xr-x 2 root root 512 Jan 13 09:45 . 1846210 drwxr-xr-x 3 root root 512 Jan 13 09:30 .. 1846213 -rw-r--r-- 1 root root 365 Jan 13 09:44 applyState.pl 1846212 -rw-r--r-- 1 root root 332 Jan 13 09:44 saveState.pl 1846214 -rw-r--r-- 1 root root 219 Jan 13 09:45 test 9:45am root@hyperion /research/src/state_saver #>chmod 777 saveState.pl 9:45am root@hyperion /research/src/state_saver #>l total 10 1846211 drwxr-xr-x 2 root root 512 Jan 13 09:45 . 1846210 drwxr-xr-x 3 root root 512 Jan 13 09:30 .. 1846213 -rw-r--r-- 1 root root 365 Jan 13 09:44 applyState.pl 1846212 -rwxrwxrwx 1 root root 332 Jan 13 09:44 saveState.pl 1846214 -rw-r--r-- 1 root root 219 Jan 13 09:45 test 9:45am root@hyperion /research/src/state_saver #>perl applyState.pl test 9:46am root@hyperion /research/src/state_saver #>l total 10 1846211 drwxr-xr-x 2 root root 512 Jan 13 09:45 . 1846210 drwxr-xr-x 3 root root 512 Jan 13 09:30 .. 1846213 -rw-r--r-- 1 root root 363 Jan 13 09:46 applyState.pl 1846212 -rw-r--r-- 1 root root 332 Jan 13 09:44 saveState.pl 1846214 -rw-r--r-- 1 root root 219 Jan 13 09:45 test 9:46am root@hyperion /research/src/state_saver #>
|
|