summaryrefslogtreecommitdiffstats
path: root/urpmq
diff options
context:
space:
mode:
Diffstat (limited to 'urpmq')
-rwxr-xr-xurpmq31
1 files changed, 23 insertions, 8 deletions
diff --git a/urpmq b/urpmq
index 09f9d090..e6b46707 100755
--- a/urpmq
+++ b/urpmq
@@ -50,6 +50,7 @@ usage:
") . N(" --sortmedia - sort media according to substrings separated by comma.
") . N(" --synthesis - use the given synthesis instead of urpmi db.
") . N(" --auto-select - automatically select packages to upgrade the system.
+") . N(" --auto-orphans - list orphans
") . N(" --no-suggests - do not auto select \"suggested\" packages.
") . N(" --fuzzy - impose fuzzy search (same as -y).
") . N(" --keep - keep existing packages if possible, reject requested
@@ -137,6 +138,27 @@ $options{nodepslist} = $options{list_aliases}
|| $options{list_url};
$options{nolock} = 1 if $options{nodepslist};
+#- print sub for query.
+my $pkg_to_string = sub {
+ my ($pkg) = @_;
+ my $str = '';
+ $options{group} and $str .= $pkg->group . '/';
+ $str .= $pkg->name;
+ $options{version} and $str .= '-' . $pkg->version;
+ $options{release} and $str .= '-' . $pkg->release;
+ $options{arch} and $str .= '.' . $pkg->arch;
+ $str;
+};
+
+if ($options{auto_orphans}) {
+ !@names && !@src_names or $urpm->{fatal}(1, N("usage: \"urpmq --auto-orphans\" with no argument"));
+ $options{env} and $urpm->{fatal}(1, N("Can't use %s with %s", '--env', '--auto-orphans'));
+ require urpm::orphans;
+ my $orphans = urpm::orphans::get_orphans($urpm);
+ print "$_\n" foreach sort map { $pkg_to_string->($_) } @$orphans;
+ exit 0;
+}
+
if ($options{env}) {
print N("using specific environment on %s\n", $options{env});
#- setting new environment.
@@ -487,14 +509,7 @@ $rpm_lock and $rpm_lock->unlock;
#- print sub for query.
my $query_sub = sub {
my ($id) = @_;
- my $pkg = $urpm->{depslist}[$id];
- my $str = '';
- $options{group} and $str .= $pkg->group . '/';
- $str .= $pkg->name;
- $options{version} and $str .= '-' . $pkg->version;
- $options{release} and $str .= '-' . $pkg->release;
- $options{arch} and $str .= '.' . $pkg->arch;
- $str;
+ $pkg_to_string->($urpm->{depslist}[$id]);
};
my %hack_only_one;