add command line umask option for cp

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", [