summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_auto_install.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/install/steps_auto_install.pm
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/install/steps_auto_install.pm')
-rw-r--r--perl-install/install/steps_auto_install.pm138
1 files changed, 138 insertions, 0 deletions
diff --git a/perl-install/install/steps_auto_install.pm b/perl-install/install/steps_auto_install.pm
new file mode 100644
index 000000000..3b5e24636
--- /dev/null
+++ b/perl-install/install/steps_auto_install.pm
@@ -0,0 +1,138 @@
+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;
+use install::steps_gtk;
+
+sub new {
+ my ($type, $o) = @_;
+
+ # Handle legacy options
+ $o->{interactive} ||= 'gtk' if $graphical || !is_empty_array_ref($o->{interactiveSteps});
+ push @{$o->{interactiveSteps}}, qw(installPackages configureNetwork), @graphical_steps, if_(!$o->{autoExitInstall}, 'exitInstall');
+
+ if ($o->{interactive}) {
+ require "install/steps_$o->{interactive}.pm";
+
+ @ISA = ('install::steps_' . $o->{interactive}, @ISA);
+
+ foreach my $f (@{$o->{orderedSteps}}) {
+ $o->{steps}{$f}{auto} = 1 if !member($f, @{$o->{interactiveSteps}});
+ }
+
+ goto &{$install::{'steps_' . $o->{interactive} . '::'}{new}};
+ } else {
+ @ISA = ('install::steps_auto_install_non_interactive', @ISA);
+ (bless {}, ref($type) || $type)->install::steps::new($o);
+ }
+}
+
+sub exitInstall {
+ my ($o, $alldone) = @_;
+
+ if ($o->{interactive}) {
+ $o->SUPER::exitInstall($alldone);
+ } else {
+ install::steps::exitInstall($o);
+ return if $o->{autoExitInstall};
+ print "\a";
+ print "Auto installation complete\n";
+ print "Press <Enter>" , $::local_install ? '' : " 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;
+
+my $iocharset;
+
+sub enteringStep {
+ my ($o, $step) = @_;
+
+ my ($s, $t) = (N_("Entering step `%s'\n"), common::remove_translate_context($o->{steps}{$step}{text}));
+ my $txt;
+ if ($iocharset && !$::local_install) {
+ $txt = sprintf(translate($s), translate($t));
+ $txt = Locale::gettext::iconv($txt, "utf-8", $iocharset);
+ } else {
+ $txt = sprintf($s, $t);
+ }
+ print $txt;
+
+ $o->install::steps::enteringStep($step);
+}
+
+sub rebootNeeded {
+ my ($o) = @_;
+ errorInStep($o, <<EOF);
+While partitioning, the partition table re-read failed, needing a reboot
+This is plain wrong for an auto_install
+EOF
+}
+
+sub ask_warn {
+ my ($_o, $_title, $message) = @_;
+ log::l(join(" ", deref_array($message)) . ' ' . backtrace());
+}
+
+sub wait_message {
+ my ($_o, $_title, $_message) = @_;
+}
+sub wait_message_with_progress_bar {
+ my ($_o, $_title) = @_;
+ undef, sub {};
+}
+
+sub charsetChanged {
+ my ($o) = @_;
+ lang::load_console_font($o->{locale});
+
+ my ($name, $_sfm, $acm) = lang::l2console_font($o->{locale}, 1);
+ my %fs_options = lang::fs_options($o->{locale});
+ $iocharset = $name && $acm && $fs_options{iocharset} ne 'utf8' ? $fs_options{iocharset} : '';
+}
+
+sub errorInStep {
+ my ($_o, $err) = @_;
+ print "error :(\n";
+ print "$err\n\n";
+ print "switch to console f2 for a shell\n";
+ print "Press <Enter> to reboot\n";
+
+ my $answer = <STDIN>;
+ if ($answer =~ /restart/i) {
+ log::l("restarting install");
+ c::_exit(0x35);
+ }
+ c::_exit(1);
+}
+
+
+#-######################################################################################
+#- Steps Functions
+#-######################################################################################
+sub installPackages {
+ my ($o, $packages) = @_;
+ catch_cdie { $o->install::steps::installPackages($packages) } sub { print formatError($@), "\n"; 1 };
+}
+
+1;