diff options
Diffstat (limited to 'autoirpm.uninstall')
-rw-r--r-- | autoirpm.uninstall | 23 |
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"; -} |