summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--docs/TODO5
-rw-r--r--perl-install/Makefile2
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm4
-rw-r--r--perl-install/install_steps_interactive.pm3
-rw-r--r--perl-install/run_program.pm5
-rw-r--r--perl-install/share/install.rc22
7 files changed, 33 insertions, 10 deletions
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"