summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_auto_install.pm
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2002-07-08 07:45:08 +0000
committerMystery Man <unknown@mandriva.org>2002-07-08 07:45:08 +0000
commitbe128d0615965c467107adeb2c8cecd1125318a1 (patch)
tree998f5b6803ad85a1411491ef4c499fa8b9760bb2 /perl-install/install_steps_auto_install.pm
parent9555bb791920e8feace953f90cf908e864451b59 (diff)
downloaddrakx-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.pm111
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;