blob: 5290bbb053d8298a94a9e65038c2e3de3a81f07d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#!/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($_) } <F>;
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";
}
|
