aboutsummaryrefslogtreecommitdiffstats
path: root/iurt_root_command
diff options
context:
space:
mode:
authorOlivier Blin <blino@mageia.org>2011-01-16 22:35:32 +0000
committerOlivier Blin <blino@mageia.org>2011-01-16 22:35:32 +0000
commitc75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa (patch)
tree0a8a52dbb0cab5a1c83bca0389fcc93f445730f9 /iurt_root_command
parent18d4ef57d1c13a794056f0125fbd62f99c0ff2da (diff)
downloadiurt-c75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa.tar
iurt-c75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa.tar.gz
iurt-c75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa.tar.bz2
iurt-c75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa.tar.xz
iurt-c75ebc4dc984937b74ca27aa5cbfe2fc4acb02fa.zip
add command line umask option for cp
Diffstat (limited to 'iurt_root_command')
-rwxr-xr-xiurt_root_command7
1 files changed, 5 insertions, 2 deletions
diff --git a/iurt_root_command b/iurt_root_command
index 6fb68af..1d377b3 100755
--- a/iurt_root_command
+++ b/iurt_root_command
@@ -49,7 +49,7 @@ $run{todo} = [];
"$program_name is a perl script to execute commands which need root privilege, it helps probram which needs occasional root privileges for some commands.",
sub { $arg or usage($program_name, \@params) }, "Running $program_name" ],
[ "", "cp", [
- ["", "cp", -1, "[-r] <file1> <file2> ... <filen> <dest>", "copy the files to dest",
+ ["", "cp", -1, "[-r] [-u <umask>] <file1> <file2> ... <filen> <dest>", "copy the files to dest",
sub {
my ($tmp, @arg) = @_;
$tmp->[0] ||= {};
@@ -59,7 +59,10 @@ $run{todo} = [];
["r", "recursive", 0, "",
"Also copy directories and subdirectories",
sub { my ($tmp) = @_; $tmp->[0]{recursive} = 1; 1 }, "Set the recursive flag"],
- ], "[-r] <file1> <file2> ... <filen> <dest>",
+ [ "u", "umask", 1, "<umask>",
+ "Set the umask",
+ sub { my ($tmp) = @_; ($tmp->[0]{umask}) = @_; 1 }, "Setting umask" ],
+ ], "[-r] [-u <umask>] <file1> <file2> ... <filen> <dest>",
"Copy files",
\&cp, "Copying files" ],
[ "", "ln", [