From 696f30f9b0ae3998c921d182127ff8d062808856 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 15 Nov 1999 13:07:33 +0000
Subject: no_comment

---
 perl-install/Makefile            | 16 +++-------------
 perl-install/interactive_newt.pm |  1 -
 perl-install/pkgs.pm             | 16 ++++++++++++++--
 3 files changed, 17 insertions(+), 16 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Makefile b/perl-install/Makefile
index 056f977de..87df7183b 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -9,11 +9,10 @@ STAGE2      = $(ROOTDEST)/Mandrake/base/mdkinst_stage2
 BASE        = $(ROOTDEST)/Mandrake/base
 DESTREP4PMS = $(DEST)$(REP4PMS)
 PERL        = perl
-LOCALFILES  = pnp_serial mouseconfig ddcxinfos
+LOCALFILES  = pnp_serial mouseconfig
 LOCALFILES2 = extract_archive
 DIRS        = c Newt po pci_probing resize_fat
 EXCLUDE     = $(LOCALFILES) boot.img keymaps consolefonts install
-RPMS        = $(wildcard $(ROOTDEST)/Mandrake/RPMS/*.rpm)
 CFLAGS	    = -Wall
 override CFLAGS  += -pipe
 
@@ -26,7 +25,7 @@ TAGS: $(PMS)
 
 clean:
 	for i in $(DIRS); do $(MAKE) -C $$i clean; done
-	rm -rf gendepslist auto ../diskdrake*
+	rm -rf auto ../diskdrake*
 	find . -name "*~" -o -name ".#*" -o -name "TAGS" -o -name "*.old" | xargs rm -f
 
 tar: clean
@@ -55,15 +54,6 @@ test_pms: verify_c
 verify_c:
 	./verify_c $(PMS)
 
-gendepslist: %: %.cc 
-	$(CXX) -I/usr/include/rpm $(CFLAGS) $< -lrpm -ldb1 -lz -o $@
-
-$(BASE)/depslist: $(BASE)/hdlist gendepslist
-	./gendepslist -h $@ $<
-
-$(BASE)/hdlist: $(RPMS) 
-	$(ROOTDEST)/misc/genhdlist $(ROOTDEST)
-
 install_pms: $(DIRS)
 	for i in `perl -ne 's/sub (\w+?)_? {.*/$$1/ and print' commands.pm`; do ln -sf commands $(DEST)/usr/bin/$$i; done
 
@@ -155,7 +145,7 @@ get_needed_files: $(DIRS)
 
 	tar xyC $(DEST) -f ../install/install1_pcmcia.tar.bz2 ./etc/pcmcia
 
-full_stage2: $(BASE)/depslist $(BASE)/hdlist
+full_stage2:
 	sudo rm -rf $(DEST)
 	mkdir -p $(DEST)
 	$(MAKE) get_needed_files 
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 63346ed65..4a58dc1a2 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -143,7 +143,6 @@ sub ask_from_entries_refW {
 	 my ($w, $ref) = @_;
 	 my $val = ${$ref->{val}};
 	 sub { 
-	     print STDERR "$ref->{type}: ($val)\n";
 	     $ref->{type} eq "bool" ? 
 	       $w->CheckboxSetValue(checkval($val)) :
 	     $ref->{type} eq "list" ?
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 07d04073b..55fcb1caf 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -21,6 +21,11 @@ hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers
 hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb
 );
 
+my @preferred = qw(
+
+);
+
+
 my $A = 20471;
 my $B = 16258;
 sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB.
@@ -46,7 +51,14 @@ sub select($$;$) {
 	my %l; @l{@{$p->{deps} || die "missing deps file"}} = ();
 	while (do { my %l = %l; while (($n, $v) = each %l) { last if $v != 1; } $n }) {
 	    $l{$n} = 1;
-	    my $i = Package($packages, $n) or next;
+	    my $i = Package($packages, $n);
+	    if (!$i && $n =~ /\|/) {
+		foreach (split '\|', $n) {
+		    print "SSSSSSSSSSSSS $_\n";
+		    $i = Package($packages, $_);
+		    last if $i && $i->{selected};
+		}
+	    }
 	    $i->{base} ||= $base;
 	    $i->{deps} or log::l("missing deps for $n");
 	    unless ($i->{installed}) {
@@ -163,7 +175,7 @@ sub getDeps($) {
     my $f = install_any::getFile("depslist") or die "can't find dependencies list";
     foreach (<$f>) {
 	my ($name, $size, @deps) = split;
-	($name, @deps) = map { chop_version(first(split '\|')) } ($name, @deps); #-TODO better handling of choice
+	($name, @deps) = map { join '|', map { chop_version($_) } split '\|' } ($name, @deps);
 	$packages->{$name} or next;
 	$packages->{$name}{size} = $size;
 	$packages->{$name}{deps} = \@deps;
-- 
cgit v1.2.1