- urpmi

  o after installing in chroot, migrate back rpmdb db version to one
    compatible with the rpm in the chroot

3 files changed, 68 insertions, 0 deletions

diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index 9cf8ab99..d7fbb504 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -82,6 +82,9 @@ my ($ok, $nok) = (0, 0);
 my @errors;
 my $exit_code = 0;
 
+my $migrate_back_rpmdb_db_version = 
+  $urpm->{root} && urpm::select::should_we_migrate_back_rpmdb_db_version($urpm, $state);
+
 foreach my $set (@{$state->{transaction} || []}) {
 
     #- put a blank line to separate with previous transaction or user question.
@@ -275,6 +278,10 @@ foreach my $set (@{$state->{transaction} || []}) {
     }
 }
 
+if ($migrate_back_rpmdb_db_version) {
+    urpm::sys::migrate_back_rpmdb_db_version($urpm, $urpm->{root});
+}
+
 $callbacks->{completed} and $callbacks->{completed}->();
 
 if ($nok) {
diff --git a/urpm/select.pm b/urpm/select.pm
index 6ae72bcb..3183eac8 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -10,6 +10,8 @@ use URPM;
 my $default_priority_list = 'rpm,perl-URPM,perl-MDV-Distribconf,urpmi,meta-task,glibc';
 my @priority_list = split(',', $default_priority_list);
 
+my $evr_re = qr/[^\-]*-[^\-]*\.[^\.\-]*$/;
+
 sub add_packages_to_priority_upgrade_list {
     @priority_list = uniq(@priority_list, @_);
 }
@@ -573,6 +575,21 @@ sub translate_why_unselected_one {
     $fullname . ($s ? " ($s)" : '');
 }
 
+sub selected_packages_providing {
+    my ($urpm, $state, $name) = @_;
+    map { $urpm->{depslist}[$_] } grep { $state->{selected}{$_} } keys %{$urpm->{provides}{$name} || {}};
+}
+
+sub was_pkg_name_installed {
+    my ($rejected, $name) = @_;
+
+    foreach (keys %$rejected) {
+	/^\Q$name\E-$evr_re/ or next;
+	$rejected->{$_}{obsoleted} and return 1;
+    }
+    0;
+}
+
 sub removed_packages {
     my (undef, $state) = @_;
     grep {
@@ -623,4 +640,30 @@ sub translate_why_removed_one {
     $fullname . ($s ? "\n ($s)" : '');
 }
 
+sub _libdb_version { $_[0] =~ /libdb-(\S+)\.so/ ? eval "v$1" : () }
+
+sub should_we_migrate_back_rpmdb_db_version {
+    my ($urpm, $state) = @_;
+
+    my ($pkg) = urpm::select::selected_packages_providing($urpm, $state, 'rpm') or return;
+    urpm::select::was_pkg_name_installed($state->{rejected}, 'rpm') and return;
+    my ($rooted_librpm_version) = map { _libdb_version($_) } $pkg->requires;
+
+    my $urpmi_librpm_version = _libdb_version(scalar `ldd /bin/rpm`);
+
+    if ($urpmi_librpm_version ge v4.6) {
+	if ($rooted_librpm_version && $rooted_librpm_version ge v4.6) {
+	    $urpm->{debug} and $urpm->{debug}("chrooted db version used by librpm is at least as good as non-rooted one");
+	} else {
+	    foreach my $bin ('db_dump', 'db42_load') {
+		urpm::sys::whereis_binary($bin) 
+		  or $urpm->{error}("can not migrate rpm db from Hash version 9 to Hash version 8 without $bin"), 
+		    return;
+	    }
+	    return 1;
+	}
+    }
+    0;
+}
+
 1;
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 2e36a273..088a3150 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -221,6 +221,24 @@ sub print_need_restart() {
     print "$_\n" foreach values %$h;
 }
 
+sub migrate_back_rpmdb_db_version {
+    my ($urpm, $root) = @_;
+
+    $urpm->{info}("migrating back the created rpm db from Hash version 9 to Hash version 8");
+
+    foreach my $db_file (glob("$root/var/lib/rpm/[A-Z]*")) {
+	rename $db_file, "$db_file.";
+	system("db_dump $db_file. | db42_load $db_file");
+	if (-e $db_file) {
+	    unlink "$db_file.";
+	} else {
+	    rename "$db_file.", $db_file;
+	    $urpm->{error}("rpm db migration failed on $db_file. You will not be able to run rpm chrooted");
+	    return;
+	}
+    }
+    clean_rpmdb_shared_regions($root);
+}
 
 #- create a plain rpm from an installed rpm and a delta rpm (in the current directory)
 #- returns the new rpm filename in case of success