clean and reindent the array that contains all options

1 files changed, 21 insertions, 11 deletions

diff --git a/iurt_root_command b/iurt_root_command
index 57e709e..28c1394 100755
--- a/iurt_root_command
+++ b/iurt_root_command
@@ -50,8 +50,9 @@ $run{todo} = [];
 		    [--mkdir [--parents] <dir1> <dir2> ... <dirn>]", 
     "$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] <file1> <file2> ... <filen> <dest>", "copy the files to dest",
         sub {    
             my ($tmp, @arg) = @_; 
             $tmp->[0] ||= {}; 
@@ -64,6 +65,7 @@ $run{todo} = [];
     ], "[-r] <file1> <file2> ... <filen> <dest>", 
     "Copy files", 
     \&cp, "Copying files" ],
+
    [ "", "ln", [
    ["", "ln", 2, "<file1> <file2>", "link file1 to file2",
         sub {    
@@ -72,12 +74,10 @@ $run{todo} = [];
             push @$tmp, @arg; 
             1;
         }, "Setting ln command arguments"], 
-#        ["r", "recursive", 0, "",  
-#        "Also create needed parents directories",  
-#        sub { my ($tmp) = @_; $tmp->[0]{recursive} = 1; 1 }, "Set the recursive flag"], 
     ], "<file1> <file2>", 
     "Link files", 
     \&ln, "Linking files" ],
+
     [ "", "mkdir", [
     ["", "mkdir", -1, "[--parents] <dir1> <dir2> ... <dirn>", "mkdir create the given path",
         sub {    
@@ -92,8 +92,9 @@ $run{todo} = [];
     ], "[--parents] <dir1> <dir2> ... <dirn>", 
     "mkdir create the given path", 
     \&mkdir, "Creating the path" ],
+
     [ "", "rm", [
-   ["", "rm", -1, "[-r] <file1> <file2> ... <filen>", "remove the provided files",
+    ["", "rm", -1, "[-r] <file1> <file2> ... <filen>", "remove the provided files",
         sub {    
             my ($tmp, @arg) = @_; 
             $tmp->[0] ||= {}; 
@@ -106,17 +107,21 @@ $run{todo} = [];
     ], "[-r] <file1> <file2> ... <filen>", 
     "Remove files", 
     \&rm, "Removing files" ],
+
     [ "", "initdb", 1 , "<chroot>", 
     "perform a rpm --initdb in the chroot.", 
     \&initdb, "Initializing the rpm database" ],
+
     [ "v", "verbose", 1, "<verbose level>", 
     "modprobe try to modprobe the given module if authorized.", 
     sub { $run{verbose} = $_[0]; 1 }, "Setting verbose level" ],
+    
     [ "", "modprobe", 1, "<module>", 
     "modprobe try to modprobe the given module if authorized.", 
     \&modprobe, "Modprobing" ],
-   [ "", "tar", [
-   ["", "tar", 2, "<file> <directory>", "tar directory into file",
+
+    [ "", "tar", [
+    ["", "tar", 2, "<file> <directory>", "tar directory into file",
         sub {    
             my ($tmp, @arg) = @_; 
             $tmp->[0] ||= {}; 
@@ -126,8 +131,9 @@ $run{todo} = [];
     ], "<file> <directory>", 
     "Create tarball", 
     \&tar, "Create tarball" ],
-   [ "", "untar", [
-   ["", "untar", -1, "<file> <directory> [files]", "untar file into directory (optionally selecting files only)",
+
+    [ "", "untar", [
+    ["", "untar", -1, "<file> <directory> [files]", "untar file into directory (optionally selecting files only)",
         sub {    
             my ($tmp, @arg) = @_; 
             $tmp->[0] ||= {}; 
@@ -137,17 +143,21 @@ $run{todo} = [];
     ], "<file> <directory> [files]", 
     "Uncompress tarball", 
     \&untar, "Uncompress tarball" ],
+
     [ "", "bindmount", 2, "<source> <dest>", 
     "bind mount source on dest", 
     \&bindmount, "Bind mounting" ],
+
     [ "", "umount", 1, "<directory>", 
     "umount the given directory", 
     \&umount, "Unmounting" ],
+
     [ "", "useradd", 3, "<directory> <username> [uid]", 
     "Add user in given chroot", 
     \&useradd, "Useradd" ],
-   [ "", "urpmi", [
-   ["", "urpmi", -1, "urpmi options", "run urpmi with urpmi options (should have chroot options)",
+
+    [ "", "urpmi", [
+    ["", "urpmi", -1, "urpmi options", "run urpmi with urpmi options (should have chroot options)",
         sub {    
             my ($tmp, @arg) = @_; 
             push @$tmp, @arg;