diff options
| -rw-r--r-- | gurpmi.pm | 12 | ||||
| -rwxr-xr-x | gurpmi2 | 5 |
2 files changed, 12 insertions, 5 deletions
@@ -32,6 +32,8 @@ Usage : Options : --auto-select --no-verify-rpm + --media media1,... + --searchmedia media1,... USAGE exit 0; } @@ -57,14 +59,16 @@ sub parse_command_line { push @ARGV_expanded, $a; } } + my $nextopt; foreach (@ARGV_expanded) { + if ($nextopt) { $options{$nextopt} = $_; undef $nextopt; next } if (/^-/) { - if ($_ eq '--no-verify-rpm') { - $options{'no-verify-rpm'} = 1; + if (/^--(no-verify-rpm|auto-select)$/) { + $options{$1} = 1; next; } - if ($_ eq '--auto-select') { - $options{'auto-select'} = 1; + if (/^--(media|searchmedia)$/) { + $nextopt = $1; next; } /^--?[hv?]/ and usage(); @@ -101,7 +101,10 @@ sub configure_urpm { }; $urpm->exlock_rpm_db; $urpm->shlock_urpmi_db; - $urpm->configure; + $urpm->configure( + media => $gurpmi::options{media}, + searchmedia => $gurpmi::options{searchmedia}, + ); $urpm->{options}{'verify-rpm'} = 0 if $gurpmi::options{'no-verify-rpm'}; #- default options values exists $urpm->{options}{$_} or $urpm->{options}{$_} = 1 foreach qw(post-clean verify-rpm split-length); |