From baabd04d3ba7a4f73bf297d01b7d0820a1f2bde9 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 2 Nov 2005 16:08:42 +0000 Subject: Remove old autoirpm attempt --- autoirpm.update | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 autoirpm.update (limited to 'autoirpm.update') diff --git a/autoirpm.update b/autoirpm.update deleted file mode 100644 index 5290bbb0..00000000 --- a/autoirpm.update +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl - -$DIR = "/var/lib/urpmi"; -$DIR2 = "/etc/urpmi"; -$BASE = "$DIR/autoirpm"; -$BASE2 = "$DIR2/autoirpm"; -$AUTO_INSTALL_BIN_LIST = "$BASE.binaries"; -$INSTALL_SCRIPT_REP = "$BASE.scripts"; - -system("packdrake --cat $DIR/hdlist*.cz | autoirpm.update-all $BASE2.allow $BASE2.deny - > $AUTO_INSTALL_BIN_LIST"); -$? == 0 or die "autoirpm.upgrade-all failed\n"; - -open F, $AUTO_INSTALL_BIN_LIST or die; -map { chop; create_links_and_install_scripts($_) } ; -close F; - -sub create_links_and_install_scripts($) { - my ($rpm, @progs) = split ' ', $_[0]; - my $script = "$INSTALL_SCRIPT_REP/$rpm"; - - foreach (@progs) { lstat "/$_" and return } # verify that it's not installed - - foreach (@progs) { - mkdir_(dirname("/$_")); - symlink $script, "/$_"; # or die "$rpm: /$_"; - } - - open G, ">$script" or die; - print G "_irpm $rpm \$0 \$*\n"; - close G; - chmod 0755, "$script"; -} - -sub dirname { local $_ = shift; s|[^/]*/*\s*$||; s|(.)/*$|$1|; $_ || '.' } - -sub mkdir_ { - -d $_[0] and return; - - my $root = dirname $_[0]; - if (-e $root) { - -d $root or die "mkdir: error creating directory $_[0]: $root is a file and i won't delete it\n"; - } else { - mkdir_($root); - } - mkdir $_[0], 0755 or die "mkdir: error creating directory $_: $!\n"; -} -- cgit v1.2.1