diff options
| author | damien <damien@mandriva.com> | 2001-01-26 18:26:49 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-01-26 18:26:49 +0000 |
| commit | 548d6279ed6f8821801a8d2d3030a5335dfee8db (patch) | |
| tree | b98ab8db504f1253c53db1b408ce3bf432392b6d /perl-install | |
| parent | ddbd3b72040dde36c5fbe7685411167aa15cb4cb (diff) | |
| download | drakx-backup-do-not-use-548d6279ed6f8821801a8d2d3030a5335dfee8db.tar drakx-backup-do-not-use-548d6279ed6f8821801a8d2d3030a5335dfee8db.tar.gz drakx-backup-do-not-use-548d6279ed6f8821801a8d2d3030a5335dfee8db.tar.bz2 drakx-backup-do-not-use-548d6279ed6f8821801a8d2d3030a5335dfee8db.tar.xz drakx-backup-do-not-use-548d6279ed6f8821801a8d2d3030a5335dfee8db.zip | |
added embedded mode
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakboot | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 48cbd406a..41e455a8c 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -12,6 +12,7 @@ use fsedit; use fs; use c; +$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /-embedded (\S*) (\S*)/; local $_ = join '', @ARGV; /-h/ and die "usage: drakboot [--expert]\n"; @@ -20,25 +21,27 @@ $::expert = /-expert/; my $in = interactive->vnew('su'); -my %l = ( - arch() !~ /sparc|alpha/ ? ( - _("Configure LILO/GRUB") => '', - _("Create a boot floppy") => ['/usr/X11R6/bin/drakfloppy'], - ) : (), - _("Format floppy") => [ '/usr/bin/kfloppy', '/usr/bin/gfloppy' ], -); +if (!$::isEmbedded) { + my %l = ( + arch() !~ /sparc|alpha/ ? ( + _("Configure LILO/GRUB") => '', + _("Create a boot floppy") => ['/usr/X11R6/bin/drakfloppy'], + ) : (), + _("Format floppy") => [ '/usr/bin/kfloppy', '/usr/bin/gfloppy' ], + ); -while (my ($k, $v) = each %l) { - $v or next; - foreach (@$v) { - -x $_ and $l{$k} = $_, last; + while (my ($k, $v) = each %l) { + $v or next; + foreach (@$v) { + -x $_ and $l{$k} = $_, last; + } + -x $l{$k} or delete $l{$k}; } - -x $l{$k} or delete $l{$k}; -} -if ($ENV{DISPLAY} && c::Xtest($ENV{DISPLAY})) { - my $cmd = $l{$in->ask_from_list(_("Choice"), _("What do you want to do?"), [ keys %l ])}; - exec $cmd if $cmd; + if ($ENV{DISPLAY} && c::Xtest($ENV{DISPLAY})) { + my $cmd = $l{$in->ask_from_list(_("Choice"), _("What do you want to do?"), [ keys %l ])}; + exec $cmd if $cmd; + } } my $bootloader = bootloader::read('', '/etc/lilo.conf'); |