summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-06 15:58:22 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-06 15:58:22 +0000
commit23d61b096f116ae22b81de9fe0ccc20e0bd77a03 (patch)
tree3f9aac286744de05d356cd4b64e023e74a22fb9e /perl-install/pkgs.pm
parent4613b6aad9d8df4435b05ec176d944632b11c0cf (diff)
downloaddrakx-backup-do-not-use-23d61b096f116ae22b81de9fe0ccc20e0bd77a03.tar
drakx-backup-do-not-use-23d61b096f116ae22b81de9fe0ccc20e0bd77a03.tar.gz
drakx-backup-do-not-use-23d61b096f116ae22b81de9fe0ccc20e0bd77a03.tar.bz2
drakx-backup-do-not-use-23d61b096f116ae22b81de9fe0ccc20e0bd77a03.tar.xz
drakx-backup-do-not-use-23d61b096f116ae22b81de9fe0ccc20e0bd77a03.zip
created function for examining already installed package on install (oem).
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm35
1 files changed, 35 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 592f0143a..314c4e61d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -788,6 +788,41 @@ sub versionCompare($$) {
}
}
+sub selectPackagesAlreadyInstalled {
+ my ($packages, $prefix) = @_;
+
+ log::l("reading /usr/lib/rpm/rpmrc");
+ c::rpmReadConfigFiles() or die "can't read rpm config files";
+ log::l("\tdone");
+
+ my $db = c::rpmdbOpenForTraversal($prefix) or die "unable to open $prefix/var/lib/rpm/packages.rpm";
+ log::l("opened rpm database for examining existing packages");
+
+ #- this method has only one objectif, check the presence of packages
+ #- already installed and avoid installing them again. this is to be used
+ #- with oem installation, if the database exists, preselect the packages
+ #- installed WHATEVER their version/release (log if a problem is perceived
+ #- is enough).
+ c::rpmdbTraverse($db, sub {
+ my ($header) = @_;
+ my $p = $packages->[0]{c::headerGetEntry($header, 'name')};
+
+ if ($p) {
+ my $version_cmp = versionCompare(c::headerGetEntry($header, 'version'), packageVersion($p));
+ my $version_rel_test = $version_cmp > 0 || $version_cmp == 0 &&
+ versionCompare(c::headerGetEntry($header, 'release'), packageRelease($p)) >= 0;
+ $version_rel_test or log::l("keeping an older package, avoiding selecting $p->{file}");
+ packageSetFlagInstalled($p, 1);
+ }
+ });
+
+ log::l("before closing db");
+ #- close db, job finished !
+ c::rpmdbClose($db);
+ log::l("done selecting packages to upgrade");
+
+}
+
sub selectPackagesToUpgrade($$$;$$) {
my ($packages, $prefix, $base, $toRemove, $toSave) = @_;