handle commands with unhandled options in a more generic way

1 files changed, 8 insertions, 4 deletions

diff --git a/iurt_root_command b/iurt_root_command
index 6de4785..e54ce76 100755
--- a/iurt_root_command
+++ b/iurt_root_command
@@ -157,6 +157,10 @@ $run{todo} = [];
     \&urpmi, "Run urpmi in chroot" ],
 );
 
+my %commands_with_more_args = (
+    "--urpmi" => [ \&urpmi, "urpmi" ],
+);
+
 open(my $LOG, ">&STDERR");
 $run{LOG} = sub { print $LOG @_ };
 
@@ -165,11 +169,11 @@ plog_init($program_name, $LOG, $run{verbose});
 
 my $todo;
 
-# (blino) do not use mkcd to parse urpmi command line
-# I fail to make it no parse arguments after -- on command line
-if ($ARGV[0] eq '--urpmi') {
+# (blino) do not use mkcd to parse complicated command lines with unhandled options
+# I fail to make mkcd not parse arguments after -- on command line
+if (my $command = $commands_with_more_args{$ARGV[0]}) {
     my (undef, @options) = @ARGV;
-    $todo = [ [ \&urpmi, \@options, "urpmi" ] ];
+    $todo = [ [ $command->[0], \@options, $command->[1] ] ];
 } else {
     $todo = parseCommandLine($program_name, \@ARGV, \@params);
     @ARGV and usage($program_name, \@params, "@ARGV, too many arguments");