summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_auto_install.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-25 22:59:18 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-25 22:59:18 +0000
commitd80182fb067de110a09af88969ab9844e11ce21d (patch)
tree93726966b4a51341fca6fa8d4bc290ed35f402f1 /perl-install/install_steps_auto_install.pm
parent31ad0827997c40a6471cbe0eddc3b89534d07323 (diff)
downloaddrakx-d80182fb067de110a09af88969ab9844e11ce21d.tar
drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.gz
drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.bz2
drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.xz
drakx-d80182fb067de110a09af88969ab9844e11ce21d.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_auto_install.pm')
-rw-r--r--perl-install/install_steps_auto_install.pm34
1 files changed, 34 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..254f092ff
--- /dev/null
+++ b/perl-install/install_steps_auto_install.pm
@@ -0,0 +1,34 @@
+package install_steps_auto_install;
+
+use diagnostics;
+use strict;
+use vars qw(@ISA);
+
+@ISA = qw(install_steps);
+
+#-######################################################################################
+#- misc imports
+#-######################################################################################
+use common qw(:common);
+use install_steps;
+use log;
+
+sub enteringStep($$$) {
+ my ($o, $step) = @_;
+ print _("Entering step `%s'\n", $o->{steps}{$step}{text});
+ $o->SUPER::enteringStep($step);
+}
+
+sub ask_warn {
+ log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
+}
+
+sub errorInStep {
+ print "error :(\n";
+ print "switch to console f2 for a shell\n";
+ print "press to return to reboot\n";
+ <STDIN>;
+ exec "true";
+}
+
+1;