Remove old autoirpm attempt

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";
-}