summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-15 13:07:33 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-15 13:07:33 +0000
commit696f30f9b0ae3998c921d182127ff8d062808856 (patch)
treedd83f24d16977bd8edef42fcfe9cc2f31bbd1c1b /perl-install
parent510378574d4d0a97bae46ab21fdf76395b2af1a8 (diff)
downloaddrakx-696f30f9b0ae3998c921d182127ff8d062808856.tar
drakx-696f30f9b0ae3998c921d182127ff8d062808856.tar.gz
drakx-696f30f9b0ae3998c921d182127ff8d062808856.tar.bz2
drakx-696f30f9b0ae3998c921d182127ff8d062808856.tar.xz
drakx-696f30f9b0ae3998c921d182127ff8d062808856.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Makefile16
-rw-r--r--perl-install/interactive_newt.pm1
-rw-r--r--perl-install/pkgs.pm16
3 files changed, 17 insertions, 16 deletions
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;