summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_auto_install.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_auto_install.pm')
-rw-r--r--perl-install/install_steps_auto_install.pm43
1 files changed, 0 insertions, 43 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
deleted file mode 100644
index a48154aea..000000000
--- a/perl-install/install_steps_auto_install.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-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", translate($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 <Enter> to reboot\n";
- <STDIN>;
- c::_exit(0);
-}
-
-sub exitInstall {
- my ($o) = @_;
- return if $o->{autoExitInstall};
-
- print "Auto installation complete\n";
- print "Press <Enter> to reboot\n";
- <STDIN>;
-}
-
-1;