pliva-si/.data/save_perm.pl

#!/usr/local/bin/perl -w

use English;

my @dirs = ("/data/pliva-si");

while (@dirs) {
        my $curr_dir=shift @dirs;
        opendir(DIR,$curr_dir) || die "opendir: $!";
        my @ignore = ('.', '..', 'CVS');
        if (-f "$curr_dir/.cvsignore") {
                open(I,"$curr_dir/.cvsignore");
                while(<I>) {
                        chomp;
                        push @ignore,$_;
                }
                close(I);
        }
        print STDERR "ignore: ",join("|",@ignore);
        @clutter = readdir(DIR);
        foreach my $file (@clutter) {
                if (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
                        my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");
                        if ($uid != $UID || $gid != $GID) {
                                print "chown ",scalar(getpwuid($uid)),":",scalar(getpwuid($gid))," $curr_dir/$file\n";
                                printf "chmod %04o %s\n", ($mode & 07777), "$curr_dir/$file";
                        }
                } elsif (-d "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
                        push @dirs,"$curr_dir/$file";
                } else {
                        print STDERR "skip: $curr_dir/$file\n";
                }
        }
}
1	#!/usr/local/bin/perl -w
2
3	use English;
4
5	my @dirs = ("/data/pliva-si");
6
7	while (@dirs) {
8	my $curr_dir=shift @dirs;
9	opendir(DIR,$curr_dir) \|\| die "opendir: $!";
10	my @ignore = ('.', '..', 'CVS');
11	if (-f "$curr_dir/.cvsignore") {
12	open(I,"$curr_dir/.cvsignore");
13	while(<I>) {
14	chomp;
15	push @ignore,$_;
16	}
17	close(I);
18	}
19	print STDERR "ignore: ",join("\|",@ignore);
20	@clutter = readdir(DIR);
21	foreach my $file (@clutter) {
22	if (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
23	my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");
24	if ($uid != $UID \|\| $gid != $GID) {
25	print "chown ",scalar(getpwuid($uid)),":",scalar(getpwuid($gid))," $curr_dir/$file\n";
26	printf "chmod %04o %s\n", ($mode & 07777), "$curr_dir/$file";
27	}
28	} elsif (-d "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
29	push @dirs,"$curr_dir/$file";
30	} else {
31	print STDERR "skip: $curr_dir/$file\n";
32	}
33	}
34	}