From 18011f2e9d699e37c6da8bec2d02de2b84a96a85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 30 Mar 2000 14:35:23 +0000 Subject: no_comment --- perl-install/install2.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 1622b9cf0..6d028ebd2 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -63,6 +63,7 @@ arch() !~ /alpha/ ? ( ) : (), setupBootloader => [ __("Install bootloader"), 1, 1, '', "doInstallStep" ], configureX => [ __("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"] ], + generateAutoInstFloppy => [ __("Auto install floppy"), 1, 1, '!corporate !expert', "doInstallStep" ], exitInstall => [ __("Exit install"), 0, 0, 'beginner' ], ); for (my $i = 0; $i < @installSteps; $i += 2) { @@ -472,6 +473,11 @@ sub configureX { $o->setupXfree if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) || $clicked; } +#------------------------------------------------------------------------------ +sub generateAutoInstFloppy { + $o->generateAutoInstFloppy; +} + #------------------------------------------------------------------------------ sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") } @@ -524,6 +530,7 @@ sub main { newt => sub { $o->{interactive} = "newt" }, text => sub { $o->{interactive} = "newt" }, stdio => sub { $o->{interactive} = "stdio"}, + corporate => sub { $::corporate = 1 }, ks => sub { $::auto_install = 1 }, kickstart => sub { $::auto_install = 1 }, auto_install => sub { $::auto_install = 1 }, @@ -599,6 +606,8 @@ sub main { #- needed very early for install_steps_gtk eval { ($o->{mouse}, $o->{wacom}) = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse}; + $o->{allowFB} = listlength(cat_("/proc/fb")); + my $o_; while (1) { require"install_steps_$o->{interactive}.pm"; -- cgit v1.2.1