2 # chexec: turns a file's executability on or off, same semantics as rsync's --executability
3 # usage: chexec { + | - | --reference=<file> } <file> [...]
4 # Rename from setexec for consistency with chmod, etc. and cadaver's chexec - Matt 2009-07-02
9 if ($cmd =~ /^--reference=(.*)$/) {
11 @stbuf = stat($ref_file);
13 die "chexec: stat($ref_file): $!\n";
15 $ref_perms = $stbuf[2] & 07777;
16 if (($ref_perms & 0111) == 0) {
21 } elsif ($cmd ne '+' && $cmd ne '-') {
22 die "usage: chexec { + | - | --reference=<file> } <file> [...]\n";
26 my ($cmd, $perms) = @_;
28 return $perms | ($perms & 0444) >> 2;
29 } elsif ($cmd eq '-') {
30 return $perms & ~0111;
34 file: foreach $file (@ARGV) {
37 warn "chexec: stat($file): $!, skipping file\n";
40 $perms = $stbuf[2] & 07777;
41 $perms = docmd($cmd, $perms);
42 chmod($perms, $file) or warn "chexec: chmod($perms, $file): $!, skipping file\n";