Commit | Line | Data |
---|---|---|
273c3903 | 1 | #!/usr/bin/perl |
0b522019 MM |
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 | |
273c3903 MM |
5 | |
6 | $cmd = $ARGV[0]; | |
7 | shift @ARGV; | |
8 | ||
9 | if ($cmd =~ /^--reference=(.*)$/) { | |
10 | $ref_file = $1; | |
11 | @stbuf = stat($ref_file); | |
12 | if (@stbuf == 0) { | |
0b522019 | 13 | die "chexec: stat($ref_file): $!\n"; |
273c3903 MM |
14 | } |
15 | $ref_perms = $stbuf[2] & 07777; | |
16 | if (($ref_perms & 0111) == 0) { | |
17 | $cmd = '-'; | |
18 | } else { | |
19 | $cmd = '+'; | |
20 | } | |
21 | } elsif ($cmd ne '+' && $cmd ne '-') { | |
0b522019 | 22 | die "usage: chexec { + | - | --reference=<file> } <file> [...]\n"; |
273c3903 MM |
23 | } |
24 | ||
25 | sub docmd($$) { | |
26 | my ($cmd, $perms) = @_; | |
27 | if ($cmd eq '+') { | |
28 | return $perms | ($perms & 0444) >> 2; | |
29 | } elsif ($cmd eq '-') { | |
30 | return $perms & ~0111; | |
31 | } | |
32 | } | |
33 | ||
34 | file: foreach $file (@ARGV) { | |
35 | @stbuf = stat($file); | |
36 | if (@stbuf == 0) { | |
0b522019 | 37 | warn "chexec: stat($file): $!, skipping file\n"; |
273c3903 MM |
38 | next file; |
39 | } | |
40 | $perms = $stbuf[2] & 07777; | |
41 | $perms = docmd($cmd, $perms); | |
0b522019 | 42 | chmod($perms, $file) or warn "chexec: chmod($perms, $file): $!, skipping file\n"; |
273c3903 | 43 | } |