no_comment

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;