summaryrefslogtreecommitdiffstats
path: root/autoirpm.uninstall
diff options
context:
space:
mode:
Diffstat (limited to 'autoirpm.uninstall')
-rw-r--r--autoirpm.uninstall23
1 files changed, 0 insertions, 23 deletions
diff --git a/autoirpm.uninstall b/autoirpm.uninstall
deleted file mode 100644
index cd03a7de..00000000
--- a/autoirpm.uninstall
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-
-$DIR = "/var/lib/urpmi";
-$BASE = "$DIR/autoirpm";
-$AUTO_INSTALL_BIN_LIST = "$BASE.binaries";
-$INSTALL_SCRIPT_REP = "$BASE.scripts";
-
-open F, $AUTO_INSTALL_BIN_LIST or die;
-map { chop; remove_links_and_scripts($_) } <F>;
-close F;
-
-sub remove_links_and_scripts($) {
- my ($rpm, @progs) = split;
-
- my $script = "$INSTALL_SCRIPT_REP/$rpm";
-
- -e $script or return 0; # not installed for this package
- foreach (<@progs>) {
- readlink "/$_" ne $script and next;
- unlink "/$_" or warn "removing $_ failed";
- }
- unlink $script or warn "removing $script failed";
-}