summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-07-13 02:37:25 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-07-13 02:37:25 +0000
commit3b8399bc6a5f15b7c51e9af0eef1bec067d596c1 (patch)
tree457484e21a395bc919eaeb4c6755018067bd8388 /perl-install/pkgs.pm
parent860d52c32ed11ab87ed3507771792363f88cabe1 (diff)
downloaddrakx-backup-do-not-use-3b8399bc6a5f15b7c51e9af0eef1bec067d596c1.tar
drakx-backup-do-not-use-3b8399bc6a5f15b7c51e9af0eef1bec067d596c1.tar.gz
drakx-backup-do-not-use-3b8399bc6a5f15b7c51e9af0eef1bec067d596c1.tar.bz2
drakx-backup-do-not-use-3b8399bc6a5f15b7c51e9af0eef1bec067d596c1.tar.xz
drakx-backup-do-not-use-3b8399bc6a5f15b7c51e9af0eef1bec067d596c1.zip
Some factorization. Protection against /var/lib/urpmi being a
dangling symlink (see bug #9934)
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index af1777aae..f3f53ad92 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -343,14 +343,21 @@ sub unselectAllPackages($) {
callback_choices => \&packageCallbackChoices);
}
+sub urpmidir {
+ my ($prefix) = @_;
+ my $v = "$prefix/var/lib/urpmi";
+ -l $v && !-e _ and unlink $v and mkdir $v, 0755; #- dangling symlink
+ -w $v ? $v : '/tmp';
+}
+
sub psUpdateHdlistsDeps {
my ($prefix, $_method, $packages) = @_;
my $need_copy = 0;
+ my $urpmidir = urpmidir($prefix);
#- check if current configuration is still up-to-date and do not need to be updated.
foreach (values %{$packages->{mediums}}) {
$_->{selected} || $_->{ignored} or next;
- my $urpmidir = -w "$prefix/var/lib/urpmi" ? "$prefix/var/lib/urpmi" : "/tmp";
my $hdlistf = "$urpmidir/hdlist.$_->{fakemedium}.cz" . ($_->{hdlist} =~ /\.cz2/ && "2");
my $synthesisf = "$urpmidir/synthesis.hdlist.$_->{fakemedium}.cz" . ($_->{hdlist} =~ /\.cz2/ && "2");
if (-s $hdlistf != $_->{hdlist_size}) {
@@ -366,7 +373,6 @@ sub psUpdateHdlistsDeps {
if ($need_copy) {
#- this is necessary for urpmi.
- my $urpmidir = -w "$prefix/var/lib/urpmi" ? "$prefix/var/lib/urpmi" : "/tmp";
install_any::getAndSaveFile("Mandrake/base/$_", "$urpmidir/$_") foreach qw(rpmsrate);
}
}
@@ -407,7 +413,7 @@ sub psUsingHdlists {
sub psUsingHdlist {
my ($prefix, $method, $packages, $hdlist, $medium, $rpmsdir, $descr, $selected, $o_fhdlist, $o_pubkey) = @_;
my $fakemedium = "$descr ($method$medium)";
- my $urpmidir = -w "$prefix/var/lib/urpmi" ? "$prefix/var/lib/urpmi" : "/tmp";
+ my $urpmidir = urpmidir($prefix);
log::l("trying to read $hdlist for medium $medium");
#- if the medium already exist, use it.
@@ -618,7 +624,7 @@ sub saveCompssUsers {
}
}
}
- my $urpmidir = -w "$prefix/var/lib/urpmi" ? "$prefix/var/lib/urpmi" : "/tmp";
+ my $urpmidir = urpmidir($prefix);
output "$urpmidir/compssUsers.flat", $flat;
}