diff options
Diffstat (limited to 'urpmq')
| -rwxr-xr-x | urpmq | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -46,6 +46,7 @@ usage: ") . _(" -r - print version and release too with name. ") . _(" -f - print version, release and arch with name. ") . "\n" . _(" --update - use only update media. +") . _(" --mediums - use only the medium listed by comma. ") . _(" --auto-select - automatically select packages for upgrading the system. ") . _(" --headers - extract headers for package listed from urpmi db to stdout (root only). @@ -61,6 +62,7 @@ my @nextargv; for (@ARGV) { /^--help$/ and do { usage; next }; /^--update$/ and do { $query->{update} = 1; next }; + /^--mediums$/ and do { push @nextargv, \$query->{mediums}; next }; /^--auto-select$/ and do { $query->{auto_select} = 1; next }; /^--headers$/ and do { $query->{headers} = 1; next }; /^--sources$/ and do { $query->{sources} = 1; next }; @@ -92,7 +94,10 @@ my $urpm = new urpm; $query->{verbose} or $urpm->{log} = sub {}; $urpm->read_config(nocheck_access => 1); -$urpm->parse_synthesis($_) foreach grep { !$_->{ignore} && (!$update || $_->{active}) } @{$urpm->{media} || []}; +$query->{mediums} and $urpm->select_media(split ',', $query->{mediums}); +foreach (grep { !$_->{ignore} && (!$query->{update} || $_->{update}) && (!$query->{mediums} || $_->{modified}) } @{$urpm->{media} || []}) { + $urpm->parse_synthesis($_); +} if (@files) { #- build closure with local package and return list of names. @@ -100,7 +105,7 @@ if (@files) { } #- relocate depslist. -$urpm->relocate_depslist_provides(use_active => $query->{update}); +$urpm->relocate_depslist_provides(); #- search the packages according the selection given by the user, #- basesystem is added to the list so if it need to be upgraded, all its dependency |