diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
commit | be128d0615965c467107adeb2c8cecd1125318a1 (patch) | |
tree | 998f5b6803ad85a1411491ef4c499fa8b9760bb2 /perl-install/install_steps_auto_install.pm | |
parent | 9555bb791920e8feace953f90cf908e864451b59 (diff) | |
download | drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.gz drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.bz2 drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.xz drakx-be128d0615965c467107adeb2c8cecd1125318a1.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_8_2mdk'.V1_1_8_2mdk
Diffstat (limited to 'perl-install/install_steps_auto_install.pm')
-rw-r--r-- | perl-install/install_steps_auto_install.pm | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm deleted file mode 100644 index cd0282800..000000000 --- a/perl-install/install_steps_auto_install.pm +++ /dev/null @@ -1,111 +0,0 @@ -package install_steps_auto_install; # $Id$ - -use diagnostics; -use strict; -use vars qw(@ISA $graphical @graphical_steps); - -@ISA = qw(install_steps); - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use common; -use install_steps; - -sub new { - my ($type, $o) = @_; - - # Handle legacy options - $o->{interactive} ||= 'gtk' if $graphical || !is_empty_array_ref($o->{interactiveSteps}); - push @{$o->{interactiveSteps}}, qw(installPackages exitInstall), @graphical_steps; - - if ($o->{interactive}) { - my $interactiveClass = "install_steps_$o->{interactive}"; - require"$interactiveClass.pm"; #- no space to skip perl2fcalls - - @ISA = ($interactiveClass, @ISA); - - for (my $f = $o->{steps}{first}; $f; $f = $o->{steps}{$f}{next}) { - my $auto_name = member($f, @{$o->{interactiveSteps}}) ? 'noauto' : 'auto'; - $o->{steps}{$f}{$auto_name} = 1; - } - - goto &{$::{$interactiveClass . "::"}{new}}; - } else { - @ISA = ('install_steps_auto_install_non_interactive', @ISA); - (bless {}, ref $type || $type)->install_steps::new($o); - } -} - - -sub exitInstall { - my ($o, $alldone) = @_; - return if $o->{autoExitInstall}; - - if ($o->{interactive}) { - $o->SUPER::exitInstall($alldone); - } else { - install_steps::exitInstall($o); - print "\a"; - print "Auto installation complete (the postInstall is not done yet though)\n"; - print "Press <Enter> to reboot\n"; - <STDIN>; - } -} - - -#-###################################################################################### -#- install_steps_auto_install_non_interactive package -#-###################################################################################### -package install_steps_auto_install_non_interactive; - -use install_steps; -use lang; -use modules; -use common; -use log; - -sub configureNetwork { - my ($o) = @_; - modules::load_category('network/main|usb'); - goto &install_steps::configureNetwork; -} - -sub enteringStep { - my ($o, $step) = @_; - my ($s, $t) = (__("Entering step `%s'\n"), $o->{steps}{$step}{text}); - ($s, $t) = (translate($s), translate($t)) if $ENV{LANG} !~ /ja|ko|zh/; - print sprintf($s, $t); - $o->install_steps::enteringStep($step); -} - -sub ask_warn { - log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]); -} - -sub wait_message {} - -sub errorInStep { - print "error :(\n"; - print "switch to console f2 for a shell\n"; - print "Press <Enter> to reboot\n"; - <STDIN>; - c::_exit(0); -} - - -#-###################################################################################### -#- Steps Functions -#-###################################################################################### -sub selectLanguage { - my ($o) = @_; - $o->install_steps::selectLanguage; - lang::load_console_font($o->{lang}); -} - -sub installPackages { - my ($o, $packages) = @_; - catch_cdie { $o->install_steps::installPackages($packages) } sub { print "$@\n"; 1 } -} - -1; |