diff options
Diffstat (limited to 'iurt_root_command')
-rwxr-xr-x | iurt_root_command | 7 |
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", [ |