From 9ee84a2c340af2d4b1912d7573c2223368a22903 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Mar 2000 23:18:25 +0000
Subject: no_comment

---
 perl-install/ChangeLog                    |  4 ++++
 perl-install/Makefile                     |  5 ++++-
 perl-install/fs.pm                        |  4 ----
 perl-install/install2.pm                  |  9 +--------
 perl-install/install_any.pm               | 11 ++---------
 perl-install/install_steps.pm             | 11 ++++++++---
 perl-install/install_steps_interactive.pm |  4 +++-
 perl-install/loopback.pm                  | 31 +++++++++++++++++++++++--------
 perl-install/pkgs.pm                      |  2 +-
 perl-install/share/compssList             |  2 +-
 perl-install/share/list                   |  2 ++
 perl-install/standalone/diskdrake         |  2 +-
 12 files changed, 50 insertions(+), 37 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index ce91e1e24..d828ede61 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,7 @@
+2000-03-22  Pixel  <pixel@mandrakesoft.com>
+
+	* pci_probing/pcitable: replace Server:Rage128 by proper XFree entry
+
 2000-03-20  François Pons  <fpons@mandrakesoft.com>
 
 	* detect_devices.pm, fs.pm, install_any.pm: added supports for
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 4cad2c4d5..d2cdc4e97 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -56,7 +56,10 @@ install_pms: $(DIRS)
 get_needed_files: $(DIRS)
 #	export PERL_INSTALL_TEST=1 ; strace -f -e trace=file -o '| grep -v "(No such file or directory)" | sed -e "s/[^\"]*\"//" -e "s/\".*//" | grep "^/" | grep -v -e "^/tmp" -e "^/home" -e "^/proc" -e "^/var" -e "^/dev" -e "^/etc" -e "^/usr/lib/rpm" > /tmp/list ' $(PERL) -d install2 < /dev/null
 	perl -pe "s/ARCH/$(ARCH)/g" share/list > /tmp/list
-#	perl -pi -e 's/00503/5.660/g' /tmp/list
+
+#	perl -pi -e 's/00503/6.0/g' /tmp/list
+#	see also /usr/lib/perl5/5.00503/ARCH-linux/Data/Dumper.pm
+
 	cat `../tools/specific_arch share/list` >> /tmp/list
 	find auto -follow -name "*.so" >> /tmp/list
 
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 11deb20f8..7ab038273 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -135,8 +135,6 @@ sub format_part {
 sub formatMount_part {
     my ($part, $raid, $fstab, $prefix, $callback) = @_;
 
-    log::l("formatMount_part: $part->{mntpoint}\n");
-
     if (isLoopback($part)) {
 	formatMount_part($part->{device}, $raid, $fstab, $prefix, $callback);
     }
@@ -144,8 +142,6 @@ sub formatMount_part {
 	formatMount_part($p, $raid, $fstab, $prefix, $callback) unless loopback::carryRootLoopback($part);
     }
 
-    log::l("formatMount_part: $part->{mntpoint} really\n");
-
     if ($part->{toFormat}) {
 	$callback->($part) if $callback;
 	format_part($raid, $part, $prefix);
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index b666c536e..07095f8b7 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -191,11 +191,6 @@ $o = $::o = {
 #-    display => "192.168.1.19:1",
     steps        => \%installSteps,
     orderedSteps => \@orderedInstallSteps,
-    base => [ qw(basesystem sed initscripts console-tools utempter ldconfig chkconfig ntsysv setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep gzip hdparm info kernel less ldconfig logrotate losetup man mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash ash setserial shadow-utils sh-utils stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which perl-base msec) ],
-    base_i386 => [ "lilo", "grub", "mkbootdisk", "isapnptools" ],
-    base_alpha => [ "aboot", "isapnptools" ],
-    base_sparc => [ "silo", "mkbootdisk" ],
-    base_ppc => [ "kernel-pmac", "pdisk", "hfsutils" ],
 
 #- for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm
 #-    intf => [ { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' } ],
@@ -360,9 +355,7 @@ sub choosePackages {
 	pkgs::unselectPackage($o->{packages}, $pkg) if $pkg && $o->{security} > 3;
 
 	#- check pre-condition where base backage has to be selected.
-	foreach (@{$o->{base}}) {
-	    pkgs::packageFlagSelected(pkgs::packageByName($o->{packages}, $_)) or die "base package not selected";
-	}
+	pkgs::packageFlagSelected(pkgs::packageByName($o->{packages}, 'basesystem')) or die "basesystem package not selected";
     }
 }
 
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 321c6731a..f9f04da84 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -185,8 +185,6 @@ sub setPackages($) {
 
 	pkgs::getDeps($o->{packages});
 
-	push @{$o->{base}}, @{delete($o->{"base_" . arch()}) || []};
-
 	$o->{compss} = pkgs::readCompss($o->{packages});
 	$o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $o->{compss});
 	($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss});
@@ -195,12 +193,7 @@ sub setPackages($) {
 	push @l, "kapm" if $o->{pcmcia};
 	$_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { $o->{packages}{$_} } @l;
 
-	grep { !pkgs::packageByName($o->{packages}, $_) && log::l("missing base package $_") } @{$o->{base}} and die "missing some base packages";
-
-	foreach (@{$o->{base}}) {
-	    my $p = pkgs::packageByName($o->{packages}, $_) or log::l("missing base package $_"), next;
-	    pkgs::selectPackage($o->{packages}, $p, 1);
-	}
+	pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1);
 
 	#- must be done after selecting base packages (to save memory)
 	pkgs::getProvides($o->{packages});
@@ -486,7 +479,7 @@ sub g_auto_install(;$) {
     my @fields = qw(mntpoint type size);
     $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ];
     
-    exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount); #- TODO modules bootloader 
+    exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount); #- TODO modules bootloader 
 
     if (my $card = $::o->{X}{card}) {
 	$o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth);
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 5abd53cff..7d3b00e03 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -17,6 +17,7 @@ use raid;
 use keyboard;
 use log;
 use fsedit;
+use loopback;
 use commands;
 use network;
 use any;
@@ -157,7 +158,9 @@ sub choosePartitionsToFormat($$) {
 	$_->{mntpoint} or next;
 
 	unless ($_->{toFormat} = $_->{notFormatted} || $o->{partitioning}{autoformat}) {
-	    my $t = fsedit::typeOfPart($_->{device});
+	    my $t = isLoopback($_) ? 
+	      eval { fsedit::typeOfPart($o->{prefix} . loopback::file($_)) } :
+	      fsedit::typeOfPart($_->{device});
 	    $_->{toFormatUnsure} = $_->{mntpoint} eq "/" ||
 	      #- if detected dos/win, it's not precise enough to just compare the types (too many of them)
 	      (isFat({ type => $t }) ? !isFat($_) : $t != $_->{type});
@@ -655,8 +658,10 @@ sub setupBootloader($) {
     } elsif (arch() =~ /^sparc/) {
         silo::install($o->{prefix}, $o->{bootloader});
     } else {
-        lilo::install_grub($o->{prefix}, $o->{bootloader}, $o->{fstab});
-        lilo::install($o->{prefix}, $o->{bootloader}, $o->{fstab});
+        eval { lilo::install($o->{prefix}, $o->{bootloader}, $o->{fstab}) };
+	my $err = $@;
+        eval { lilo::install_grub($o->{prefix}, $o->{bootloader}, $o->{fstab}) };
+	die if $err;
     }
 }
 
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 26781f254..e736afb74 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -213,7 +213,9 @@ sub choosePartitionsToFormat($$) {
     log::l("preparing to format $_->{mntpoint}") foreach grep { $_->{toFormat} } @l;
 
     my %label;
-    $label{$_} = (isSwap($_) ? type2name($_->{type}) : $_->{mntpoint}) . "   ($_->{device})" foreach @l;
+    $label{$_} = sprintf("%s   (%s)", 
+			 isSwap($_) ? type2name($_->{type}) : $_->{mntpoint}, 
+			 isLoopback($_) ? loopback::file($_) : $_->{device}) foreach @l;
 
     $o->ask_many_from_list_ref('', _("Choose the partitions you want to format"),
 			       [ map { $label{$_} } @l ],
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 88623fbe2..8fd9c8748 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -6,7 +6,7 @@ use strict;
 #-######################################################################################
 #- misc imports
 #-######################################################################################
-use common qw(:common :system :file);
+use common qw(:common :system :file :functional);
 use partition_table qw(:types);
 use commands;
 use fs;
@@ -79,17 +79,19 @@ sub inspect {
 
     if ($part->{isMounted}) {
 	$dir = ($prefix || '') . $part->{mntpoint};
+    } elsif ($part->{notFormatted} && !$part->{isFormatted}) {
+	$dir = '';
     } else {
 	mkdir $dir, 0700;
 	fs::mount($part->{device}, $dir, type2fs($part->{type}), 'rdonly');
     }
-    my $h = bless \$dir, "loopback::inspect";
-    common::add_f4before_leaving(sub {  
-	unless ($part->{isMounted}) {
+    my $h = before_leaving {
+	if (!$part->{isMounted} && $dir) {
 	    fs::umount($dir);
 	    unlink($dir)
 	}
-    }, $h, 'DESTROY');
+    };
+    $h->{dir} = $dir;
     $h;
 }
 
@@ -97,18 +99,31 @@ sub getFree {
     my ($dir, $part) = @_;
     my ($freespace);
 
-    if ($part->{isFormatted} || !$part->{notFormatted}) {
-	$freespace = $part->{size};
-    } else {
+    if ($dir) {
 	my $buf = ' ' x 20000;
 	syscall_('statfs', $dir, $buf) or return;
 	my (undef, $blocksize, $size, undef, $free, undef) = unpack "L2L4", $buf;
 	$_ *= $blocksize / 512 foreach $free;
 	
 	$freespace = $free;
+    } else {
+	$freespace = $part->{size};
     }
+
     $freespace - sum map { $_->{size} } @{$part->{loopback} || []};
 }
 
+#- returns the size of the loopback file if it already exists
+#- returns -1 is the loopback file can't be used
+sub verifFile {
+    my ($dir, $file, $part) = @_;
+    -e "$dir$file" and return -s "$dir$file";
+
+    $_->{loopback_file} eq $file and return -1 foreach @{$part->{loopback} || []};
+
+    undef;
+}
+
+
 1;
 
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c391b2494..0f8a5bd52 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -65,7 +65,7 @@ autoirpm autoirpm-icons numlock
   'zh_TW.Big5' => [ 'rxvt-CLE', 'fonts-ttf-big5' ],
 );
 
-@preferred = qw(perl-GTK postfix ghostscript-X);
+@preferred = qw(perl-GTK postfix ghostscript-X vim-minimal);
 
 #- constant for small transaction.
 $limitMinTrans = 8;
diff --git a/perl-install/share/compssList b/perl-install/share/compssList
index 06b37556a..149099317 100644
--- a/perl-install/share/compssList
+++ b/perl-install/share/compssList
@@ -318,7 +318,7 @@ grip                                          60     0    35
 groff                                         97    97    97
 groff-gxditview                               22     0    19
 grpmi                                          0     0     0
-grub                                           2     0     9
+grub                                          99    99    99
 gscript                                        0     0     0
 gsl                                           10     0     0
 gsu                                           65     0    53
diff --git a/perl-install/share/list b/perl-install/share/list
index 64753eafe..c1436489d 100644
--- a/perl-install/share/list
+++ b/perl-install/share/list
@@ -56,6 +56,8 @@
 /usr/lib/perl5/5.00503/Symbol.pm
 /usr/lib/perl5/5.00503/Time/Local.pm
 /usr/lib/perl5/5.00503/dumpvar.pl
+/usr/lib/perl5/5.00503/warnings.pm
+/usr/lib/perl5/5.00503/warnings/register.pm
 /usr/lib/perl5/5.00503/ARCH-linux/Config.pm
 /usr/lib/perl5/5.00503/ARCH-linux/DynaLoader.pm
 /usr/lib/perl5/5.00503/ARCH-linux/Fcntl.pm
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index f4f1e0d5c..9b782332a 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -22,7 +22,7 @@
 # DiskDrake is also based upon the libfdisk and the install from Red Hat Software
 
 
-use lib qw(/usr/lib/libDrakX);
+use lib "."; #qw(/usr/lib/libDrakX);
 use common qw(:common :functional);
 use diskdrake;
 use interactive_gtk;
-- 
cgit v1.2.1