X-Git-Url: https://mattmccutchen.net/utils/utils.git/blobdiff_plain/35d3e321c44f7044f53a95d8cf7615c8bcf3e5e9:/setexec..0b522019a1ca445805d15166d17cb9f47f6077d3:/chexec

diff --git a/setexec b/chexec
similarity index 55%
rename from setexec
rename to chexec
index 6f071eb..67ed861 100755
--- a/setexec
+++ b/chexec
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
-# setexec: turns a file's executability on or off, same semantics as rsync's --executability
-# usage: setexec { + | - | --reference=<file> } <file> [...]
+# chexec: turns a file's executability on or off, same semantics as rsync's --executability
+# usage: chexec { + | - | --reference=<file> } <file> [...]
+# Rename from setexec for consistency with chmod, etc. and cadaver's chexec - Matt 2009-07-02
 
 $cmd = $ARGV[0];
 shift @ARGV;
@@ -9,7 +10,7 @@ if ($cmd =~ /^--reference=(.*)$/) {
 	$ref_file = $1;
 	@stbuf = stat($ref_file);
 	if (@stbuf == 0) {
-		die "setexec: stat($ref_file): $!\n";
+		die "chexec: stat($ref_file): $!\n";
 	}
 	$ref_perms = $stbuf[2] & 07777;
 	if (($ref_perms & 0111) == 0) {
@@ -18,7 +19,7 @@ if ($cmd =~ /^--reference=(.*)$/) {
 		$cmd = '+';
 	}
 } elsif ($cmd ne '+' && $cmd ne '-') {
-	die "usage: setexec { + | - | --reference=<file> } <file> [...]\n";
+	die "usage: chexec { + | - | --reference=<file> } <file> [...]\n";
 }
 
 sub docmd($$) {
@@ -33,10 +34,10 @@ sub docmd($$) {
 file: foreach $file (@ARGV) {
 	@stbuf = stat($file);
 	if (@stbuf == 0) {
-		warn "setexec: stat($file): $!, skipping file\n";
+		warn "chexec: stat($file): $!, skipping file\n";
 		next file;
 	}
 	$perms = $stbuf[2] & 07777;
 	$perms = docmd($cmd, $perms);
-	chmod($perms, $file) or warn "setexec: chmod($perms, $file): $!, skipping file\n";
+	chmod($perms, $file) or warn "chexec: chmod($perms, $file): $!, skipping file\n";
 }