summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-26 21:30:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-26 21:30:07 +0000
commit3600a1fd1e9398fad208e3e94c6def2a8e84314a (patch)
treed2a5701e3436aff6a7c61e29f8254164505f23f4 /perl-install/pkgs.pm
parentaaab5d0fa8f4a6eef4c1d2ee6af9651f6e576db5 (diff)
downloaddrakx-backup-do-not-use-3600a1fd1e9398fad208e3e94c6def2a8e84314a.tar
drakx-backup-do-not-use-3600a1fd1e9398fad208e3e94c6def2a8e84314a.tar.gz
drakx-backup-do-not-use-3600a1fd1e9398fad208e3e94c6def2a8e84314a.tar.bz2
drakx-backup-do-not-use-3600a1fd1e9398fad208e3e94c6def2a8e84314a.tar.xz
drakx-backup-do-not-use-3600a1fd1e9398fad208e3e94c6def2a8e84314a.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm26
1 files changed, 19 insertions, 7 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 409bca76c..270272a1f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -128,7 +128,7 @@ sub extractHeaders($$$) {
cleanHeaders($prefix);
run_program::run("extract_archive",
- "$prefix/var/lib/urpmi/$medium->{hdlist}",
+ "/tmp/$medium->{hdlist}",
"$prefix/tmp/headers",
map { packageHeaderFile($_) } @$pkgs);
@@ -269,8 +269,8 @@ sub skipSetWithProvides {
packageSetFlagSkip($_, 1) foreach grep { $_ } map { $_, packageProvides($_) } map { packageByName($packages, $_) } @l;
}
-sub psUsingHdlists($) {
- my ($prefix) = @_;
+sub psUsingHdlists {
+ my ($prefix, $method) = @_;
my $listf = install_any::getFile('hdlists') or die "no hdlists found";
my @packages = ({}, [], {});
my @hdlists;
@@ -288,21 +288,25 @@ sub psUsingHdlists($) {
my ($hdlist, $medium) = @$_;
my $f = install_any::getFile($hdlist) or die "no $hdlist found";
+ my $fakemedium = $method . ($medium || 1);
$packages[2]{$medium} = { hdlist => $hdlist,
medium => $medium, #- default medium is ''.
+ fakemedium => $fakemedium,
min => scalar keys %{$packages[0]},
max => -1, #- will be updated after reading current hdlist.
};
#- copy hdlist file directly to $prefix/var/lib/urpmi, this will be used
#- for getting header of package during installation or after by urpmi.
- my $newf = "$prefix/var/lib/urpmi/$hdlist";
+ my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz2";
-e $newf and do { unlink $newf or die "cannot remove $newf: $!"; };
local *F;
open F, ">$newf" or die "cannot create $newf: $!";
my ($buf, $sz); while (($sz = sysread($f, $buf, 16384))) { syswrite(F, $buf) }
close F;
+ symlinkf $newf, "/tmp/$hdlist";
+
#- extract filename from archive, this take advantage of verifying
#- the archive too.
open F, "extract_archive $newf |" or die "unable to parse $newf";
@@ -724,6 +728,9 @@ sub install($$$;$$) {
return if $::g_auto_install || !scalar(@$toInstall);
+ #- for root loopback'ed /boot
+ my $loop_boot = readlink "$prefix/boot"; unlink "$prefix/boot"; mkdir "$prefix/boot", 0755;
+
#- first stage to extract some important informations
#- about the packages selected. this is used to select
#- one or many transaction.
@@ -746,8 +753,7 @@ sub install($$$;$$) {
my $callbackOpen = sub {
my $f = packageFile($packages{$_[0]});
print LOG "$f\n";
- my $fd = install_any::getFile($f) or install_any::rewindGetFile();
- $fd ||= install_any::getFile($f) or log::l("ERROR: bad file $f");
+ my $fd = install_any::getFile($f);
$fd ? fileno $fd : -1;
};
my $callbackClose = sub { packageSetFlagInstalled(delete $packages{$_[0]}, 1) };
@@ -827,7 +833,13 @@ sub install($$$;$$) {
log::l("rpm database closed");
cleanHeaders($prefix);
- install_any::rewindGetFile(); #- make sure to reopen the connection, usefull for ftp.
+
+ if ($loop_boot) {
+ my @files = glob_("$prefix/boot/*");
+ commands::cp("-f", @files, $loop_boot) if @files;
+ commands::rm("-rf", "$prefix/boot");
+ symlink $loop_boot, "$prefix/boot";
+ }
}
sub remove($$) {