From 107b1cbeace77c78d4885c138ca57d373a125bdf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 12:35:37 +0000
Subject: no_comment

---
 docs/TODO                                 |  5 +----
 perl-install/Makefile                     |  2 +-
 perl-install/install2.pm                  |  2 +-
 perl-install/install_any.pm               |  4 +++-
 perl-install/install_steps_interactive.pm |  3 +--
 perl-install/run_program.pm               |  5 ++++-
 perl-install/share/install.rc             | 22 ++++++++++++++++++++++
 7 files changed, 33 insertions(+), 10 deletions(-)
 create mode 100644 perl-install/share/install.rc

diff --git a/docs/TODO b/docs/TODO
index f91d94bd1..1d8595b16 100644
--- a/docs/TODO
+++ b/docs/TODO
@@ -2,9 +2,6 @@ do not allow empty password for root, otherwise you can't login :(
 
 xmodmap needed even for english as the backspace is not what it should
 
-when we have /mnt mounted, check that all the devices of fstab are in /mnt/dev
-(otherwise it won't boot)
-
 remove the hack in pkgs.pm (search for hack)
 
 detect and propose to choose devices before diskdrake
@@ -25,7 +22,7 @@ insmod of /modules/loop.o fails (eg: in mkbootdisk)
 (no /modules nor insmod)
 
 install2 sigsegv when leaving :(
-(just do active and it will do it)
+(i hacked init to reboot on error)
 
 xmodmaps for every languages (maybe gnome-core xmodmaps can help)
 
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 8155ce1fc..cd103b0c2 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -161,6 +161,6 @@ stage2:
 
 # function f() { grep "$*" /usr/include/*.h /usr/include/*/*.h; }
 
-# dd if=/dev/zero of=/tmp/initrd bs=1k count=2000 ; echo y | mke2fs /tmp/initrd ; mount /tmp/initrd /mnt/disk/ -o loop ; cd ~pixel/gi/perl-install ; install -s install/install install1/bin/install ; cp -a install1/* /mnt/disk/ ; umount /mnt/disk ; gzip -c /tmp/initrd > /tmp/initrd.img ; mcopy -o /tmp/initrd.img a:
+# dd if=/dev/zero of=/tmp/initrd bs=1k count=2000 ; echo y | mke2fs /tmp/initrd ; mount /tmp/initrd /mnt/disk/ -o loop ; cd ~pixel/gi/perl-install ; install -s install/install install1/bin/install ; install -s installinit/init install1/bin/ ; cp -a install1/* /mnt/disk/ ; umount /mnt/disk ; gzip -c /tmp/initrd > /tmp/initrd.img ; mcopy -o /tmp/initrd.img a:
 # mount /tmp/initrd /mnt/disk/ -o loop ;  ; umount /mnt/disk ; gzip -c /tmp/initrd > /tmp/initrd.img ; mcopy -o /tmp/initrd.img a:
 
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index cab2718db..d951ec570 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -208,7 +208,7 @@ sub configureServices { $o->servicesConfig }
 sub setRootPassword { $o->setRootPassword }
 sub addUser { 
     $o->addUser;
-    run_program::rooted($o->{prefix}, "pwconv"); # use shadow passwords
+    run_program::rooted($o->{prefix}, "pwconv") or log::l("pwconv failed"); # use shadow passwords
 }
 
 sub createBootdisk {
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d299b8bfc..1233b6e9e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -92,7 +92,9 @@ sub mouse_detect() {
 
 sub shells($) {
     my ($o) = @_;
-    grep { -x "$o->{prefix}$_" } @{$o->{default}->{shells}};
+    my @l = grep { -x "$o->{prefix}$_" } @{$o->{default}->{shells}};
+    @l or die "no shell available";
+    @l;
 }
 
 sub upgrFindInstall {
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d1436523e..106d56c96 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -33,7 +33,7 @@ use lang;
 use log;
 
 1;
-=cut
+
 
 sub errorInStep($$) {
     my ($o, $err) = @_;
@@ -115,4 +115,3 @@ consult the Errata available from http://www.linux-mandrake.com/.
 Information on configuring your system is available in the post
 install chapter of the Official Linux Mandrake User's Guide."));
 }
-=cut
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 2973a57cc..54887f882 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -25,6 +25,9 @@ sub rooted($$@) {
 	$root and chroot $root;
 	chdir "/";
 
-	exec $name, @args or log::l("exec of $name failed: $!"), exec('false') || exit(1);
+	unless (exec $name, @args) {
+	    log::l("exec of $name failed: $!");
+	    exec('false') or exit(1);
+	}
     }
 }
diff --git a/perl-install/share/install.rc b/perl-install/share/install.rc
new file mode 100644
index 000000000..aa893579d
--- /dev/null
+++ b/perl-install/share/install.rc
@@ -0,0 +1,22 @@
+
+
+style "border"
+{
+  bg[NORMAL] = { 0, 0, 0 }
+}
+
+style "steps"
+{
+  bg[NORMAL] = { 0, 0, 0 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
+style "title"
+{
+  bg[NORMAL] = { 0, 0.66, 1.0 }
+#  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
+
+widget "*Title" style "title"
+widget "*Steps" style "steps"
-- 
cgit v1.2.1