summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/remove-unused-hardware-packages
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/remove-unused-hardware-packages')
-rw-r--r--perl-install/standalone/remove-unused-hardware-packages27
1 files changed, 0 insertions, 27 deletions
diff --git a/perl-install/standalone/remove-unused-hardware-packages b/perl-install/standalone/remove-unused-hardware-packages
deleted file mode 100644
index eb7a126dc..000000000
--- a/perl-install/standalone/remove-unused-hardware-packages
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-use lib qw(/usr/lib/libDrakX);
-use common;
-use pkgs;
-use interactive;
-use do_pkgs;
-use run_program;
-use standalone;
-
-my $in = interactive->vnew;
-my $wait = $in->wait_message(N("Hardware packages removal"),
- N("Finding unused hardware packages..."));
-my $do_pkgs = do_pkgs->do_pkgs($in);
-my @unused_hardware_packages = pkgs::detect_unused_hardware_packages($do_pkgs);
-undef $wait;
-
-#- we should have some gurpme
-if (@unused_hardware_packages &&
- $in->ask_yesorno(
- N("Hardware packages removal"),
- N("The following hardware packages do not seem to be useful for your system:") . "\n" .
- join("\n", map { " " . $_ } sort(@unused_hardware_packages)) . "\n" .
- N("Do you want to remove these packages?"))) {
- my $_wait = $in->wait_message(N("Please wait"), N("Removing packages..."));
- run_program::run('urpme', '--auto', @unused_hardware_packages);
-}