From bc25ea4a6ee8505a77972e2a723607735a4e19f9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 22 Jul 1999 09:39:38 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 45848cd9a..bb485e767 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -102,12 +102,12 @@ sub psUsingDirectory(;$) {
 
     $dirname ||= install_any::imageGetFile('');
     log::l("scanning $dirname for packages");
-    foreach (glob_("$dirname/*.rpm")) {
-	local *F;
-	open F, $_ or log::l("failed to open package $_: $!");
-	my $header = c::rpmReadPackageHeader(fileno F) or log::l("failed to rpmReadPackageHeader $_: $!");
-	my $name = c::headerGetEntry($header, 'name');
-	addInfosFromHeader(\%packages, $header, $_);
+    foreach (all("$dirname")) {
+	my ($name, $version, $release) = /(.*)-([^-]+)-([^-.]+)\.[^.]+\.rpm/ or log::l("skipping $_"), next;
+	$packages{$name} = {
+            name => $name, version => $version, release => $release,
+	    file => "$dirname/$_", selected => 0, deps => [],
+        };
     }
     \%packages;
 }
@@ -118,9 +118,10 @@ sub getDeps($) {
     local *F;
     open F, install_any::imageGetFile("depslist"); # or die "can't find dependencies list";
     foreach (<F>) {
-	my ($name, @deps) = split;
-	Package($packages, $name)->{deps} = \@deps;
-	map { push @{Package($packages, $_)->{provides}}, $name } @deps;
+	my ($name, $size, @deps) = split;
+	$packages->{$name}->{size} = $size;
+	$packages->{$name}->{deps} = \@deps;
+	map { push @{$packages->{$_}->{provides}}, $name } @deps;
     }
 }
 
-- 
cgit v1.2.1