diff options
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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) { @@ -473,6 +474,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"; |